From: ajt <>
Date: Fri, 23 Feb 2001 15:46:23 +0000 (-0800)
Subject: [project @ 2001-02-23 07:46:23 by ajt]
X-Git-Tag: release/2.6.0~1148
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=03404329f6fa419eb41eb6136a78e3d1bcb1f716;p=debbugs.git

[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 b68d440b..cb7529aa 100755
--- 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";