[project @ 2001-02-20 09:45:50 by ajt]

fix up by-*.idx optimisation a bit

diff --git a/cgi/common.pl b/cgi/common.pl
index eb837e59956a584acc9b92aed2fa25c35892f6dd..c91f6bfa5ffd7d538c7272da270b62a6408314c1 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl -w
 
+use DB_File;
+use Fcntl qw/O_RDONLY/;
+
 my $common_archive = 0;
 my $common_repeatmerged = 1;
 my %common_include = ();
@@ -33,7 +36,7 @@ sub readparse {
         $val=~s/%(..)/pack("c",hex($1))/ge;
         $ret{$key}=$val;
     }
-$debug = 1 if ($ret{"debug"} eq "aj");
+$debug = 1 if (defined $ret{"debug"} && $ret{"debug"} eq "aj");
     return %ret;
 }
 
@@ -299,7 +302,8 @@ sub getbugs {
     if (!$common_archive && defined $opt && 
         -e "$debbugs::gSpoolDir/by-$opt.idx") 
     {
-        tie my %lookup, DB_File => "$debbugs::gSpoolDir/by-$opt.idx", O_RDONLY
+        my %lookup;
+        tie %lookup, DB_File => "$debbugs::gSpoolDir/by-$opt.idx", O_RDONLY
             or die "$0: can't open $debbugs::gSpoolDir/by-$opt.idx ($!)\n";
        while ($key = shift) {
             my $bugs = $lookup{$key};

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index ddf6f01a6909b2321441fa47d5c48470dad6a832..b68d440b050d50fcca41a06bf5d1fe13e7a61de9 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -80,7 +80,7 @@ if (defined $pkg) {
                       ($se = $d{"submitter"} || "") =~ s/\s*\(.*\)\s*//;
                       $se = $1 if ($se =~ m/<(.*)>/);
                       return $se eq $submitter;
-                    }, 'submitter', $submitter);
+                    }, 'submitter-email', $submitter);
 } elsif (defined $severity) {
   $tag = "$status $severity bugs";
   @bugs = getbugs(sub {my %d=@_;