[project @ 2001-11-17 06:38:04 by doogie]

Return previously read data in getmaintainers and getpkgsrc, instead of
reparsing the file each time they are called.

diff --git a/cgi/common.pl b/cgi/common.pl
index 626be400ddb88030770f00118b4878b1b82ffb48..e071e8261dad4a4f675266ec81768c2da413703c 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -387,7 +387,9 @@ sub maintencoded {
     return $encoded;
 }
 
+my $_maintainer;
 sub getmaintainers {
+    return $_maintainer if $_maintainer;
     my %maintainer;
 
     open(MM,"$gMaintainerFile") or &quit("open $gMaintainerFile: $!");
@@ -406,11 +408,13 @@ sub getmaintainers {
        $maintainer{$a}= $b;
     }
     close(MM);
-
-    return \%maintainer;
+    $_maintainer = \%maintainer;
+    return $_maintainer;
 }
 
+my $_pkgsrc;
 sub getpkgsrc {
+    return $_pkgsrc if $_pkgsrc;
     my %pkgsrc;
 
     open(MM,"$gPackageSource") or &quit("open $gPackageSource: $!");
@@ -421,8 +425,8 @@ sub getpkgsrc {
        $pkgsrc{$a}= $b;
     }
     close(MM);
-
-    return \%pkgsrc
+    $_pkgsrc = \%pkgsrc;
+    return $_pkgsrc;
 }
 
 sub getbugdir {