search.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# search.cgi
# Display a list of packages where the name or description matches some string

require './software-lib.pl';
&ReadParse();

$n = &list_packages();
$s = $in{'search'};
for($i=0; $i<$n; $i++) {
	if ($packages{$i,'name'} =~ /$s/i || $packages{$i,'desc'} =~ /$s/i) {
		push(@match, $i);
		}
	}
if (@match == 1) {
	$p = $packages{$match[0],'name'};
	&redirect("edit_pack.cgi?package=".&urlize($p));
	exit;
	}

&header($text{'search_title'}, "", "search");
print "<hr>\n";
if (@match) {
	print "<h3>",&text('search_match', "<tt>$s</tt>"),"</h3>\n";
	print "<table border width=100%>\n";
	print "<tr $tb> <td><b>$text{'search_pack'}</b></td> ",
	      "<td><b>$text{'search_class'}</b></td> ",
	      "<td><b>$text{'search_desc'}</b></td> </tr>\n";
	foreach $i (@match) {
		print "<tr $cb>\n";
		print "<td><a href=\"edit_pack.cgi?package=",
		      &urlize($packages{$i,'name'}),"\">$packages{$i,'name'}",
		      "</a></td>\n";
		$c = $packages{$i,'class'};
		print "<td>",$c ? $c : $text{'search_none'},"</td>\n";
		print "<td>$packages{$i,'desc'}</td>\n";
		print "</tr>\n";
		}
	print "</table><p>\n";
	}
else {
	print "<h3>",&text('search_nomatch', "<tt>$s</tt>"),"</h3>\n";
	}

print "<hr>\n";
&footer("", $text{'index_return'});