From 03404329f6fa419eb41eb6136a78e3d1bcb1f716 Mon Sep 17 00:00:00 2001
From: ajt <>
Date: Fri, 23 Feb 2001 07:46:23 -0800
Subject: [PATCH] [project @ 2001-02-23 07:46:23 by ajt] optimise
 maintainer-email queries too

---
 cgi/pkgreport.cgi | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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";
-- 
2.39.5