--- title.cgi Tue May 1 09:03:24 2001
+++ title2.cgi Sat Jan 19 09:19:01 2002
@@ -94,6 +94,7 @@
################################################################
# global variables
my ($arg, @CAT, @SELECTED_CAT, %cat, $dispOrder, @filelist, @NEW, $hnf);
+my ($grep,@GREP);
my ($mode);
my %GRP_DB = ();
my %RLINK_DB = ();
@@ -106,8 +107,10 @@
sub getArg () {
$arg = $ENV{'QUERY_STRING'};
$arg =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack("C", hex($1))/ge;
-
+
$arg =~ s/CAT=([^&]*)/push(@SELECTED_CAT, $1);"";/ge;
+ $arg =~ s/GREP=([^&]*)/push(@GREP, $1);"";/ge;
+ $grep = @GREP[0]; # currently only one grep allowed.
foreach (@SELECTED_CAT) {
if ($_ eq "ALL") {
undef @SELECTED_CAT;
@@ -215,7 +218,8 @@
print "\n";
foreach $title (@{$CAT{$cat}}) {
- print "$title
\n";
+ if (!( (defined($grep) && (grep(/$grep/i,$title) == 0 )))){
+ print "($grep): $title
\n";}
}
}
}