httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Dirk-Willem van Gulik <di...@covalent.net>
Subject cvs commit: apache-search-site index.cgi
Date Fri, 19 Jan 2001 06:19:13 GMT

Received: (qmail 39671 invoked by uid 1011); 19 Jan 2001 06:12:21 -0000
Date: 19 Jan 2001 06:12:21 -0000
Message-ID: <20010119061221.39670.qmail@apache.org>
From: dirkx@apache.org
To: apache-search-site-cvs@apache.org
Subject: cvs commit: apache-search-site index.cgi

dirkx       01/01/18 22:12:21

  Modified:    .        index.cgi
  Log:
  Fix bugs database search; which is special
  
  Revision  Changes    Path
  1.3       +4 -3      apache-search-site/index.cgi
  
  Index: index.cgi
  ===================================================================
  RCS file: /home/cvs/apache-search-site/index.cgi,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- index.cgi	2001/01/19 05:52:11	1.2
  +++ index.cgi	2001/01/19 06:12:21	1.3
  @@ -70,7 +70,7 @@
   			unless $on_master;
   		return ($x, $_[0]); 
   		},
  -	'bugs.apche.org' => sub { $_[0] =~ m/(\d+)$/;
  +	'bugs.apache.org' => sub { $_[0] =~ m/(\d+)$/;
   		return "http://bugs.apache.org/index/full/".$1,'';
   		}
   	);
  @@ -194,6 +194,7 @@
   	$title = $1 if $url =~ m/([^\/]+)\s*$/;
   	};
      push @results, {
  +	idx => $index,
   	rank => $rank,
   	db =>  $db{ $index },
   	title => $title,
  @@ -251,8 +252,8 @@
   Search_Results
   foreach $r (@results[ 0 .. $count-1 ]) {
      select(STDOUT); 
  -   $rule = exists $map{ $r->{db} } ? $map{ $r->{db} } : '_';
  -   ($url,$master) =  &{ $map{ $rule }}($r->{url}); 
  +   $rule = exists $map{ $r->{idx} } ? $r->{idx} : '_';
  +   ($url,$master) =  &{ $map{ $rule }} ($r->{url}); 
      print qq|<li><A HREF="$url">$r->{title}</A>|;
      print " (on your Mirror)" unless $master eq '' or $on_master;
      print "<br><dir>";
  
  
  


Mime
View raw message