[project @ 2001-02-23 07:46:23 by ajt]

optimise maintainer-email queries too

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index b68d440b050d50fcca41a06bf5d1fe13e7a61de9..cb7529aa1c9ae9e497d6e25e38224df72daba022 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -62,11 +62,18 @@ if (defined $pkg) {
 } elsif (defined $maint) {
   my %maintainers = getmaintainers();
   $tag = "maintainer $maint";
+  my @pkgs = ();
+  foreach my $p (keys %maintainers) {
+    my $me = $maintainers{$p};
+    $me =~ s/\s*\(.*\)\s*//;
+    $me = $1 if ($me =~ m/<(.*)>/);
+    push @pkgs, $p if ($me eq $maint);
+  }
   @bugs = getbugs(sub {my %d=@_; my $me; 
                       ($me = $maintainers{$d{"pkg"}}||"") =~ s/\s*\(.*\)\s*//;
                       $me = $1 if ($me =~ m/<(.*)>/);
                       return $me eq $maint;
-                    })
+                    }, 'package', @pkgs);
 } elsif (defined $maintenc) {
   my %maintainers = getmaintainers();
   $tag = "encoded maintainer $maintenc";