--- diary/title.cgi	Tue May  1 09:03:24 2001
+++ diary/title2.cgi	Sat Jan 19 11:46:25 2002
@@ -93,7 +93,9 @@
 
 ################################################################
 # global variables
+my $started = time();
 my ($arg, @CAT, @SELECTED_CAT, %cat, $dispOrder, @filelist, @NEW, $hnf);
+my ($grep,@GREP);
 my ($mode);
 my %GRP_DB = ();
 my %RLINK_DB = ();
@@ -106,8 +108,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 +219,8 @@
       print "</h3>\n";
 
       foreach $title (@{$CAT{$cat}}) {
-        print "$title<br>\n";
+	  if (!( (defined($grep) && (grep(/$grep/i,$title) == 0 )))){
+	      print "($grep): $title<br>\n";}
       }
     }
   }
@@ -224,7 +229,7 @@
       print "$title<br>\n";
     }
   }
-
+  print " elapsed: ",time() - $started," sec.<br>\n";
   &html_footer;
 }