[project @ 2002-10-21 06:32:48 by doogie]

Modified to support the a component column in sources(main/contrib ...).

diff --git a/cgi/common.pl b/cgi/common.pl
index 69dbdf1c46cd0325341bf2187e2110e080fc5e98..1e255ee7fae2d7c449fd1567179152d00786f028 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -493,22 +493,32 @@ sub getmaintainers {
 }
 
 my $_pkgsrc;
+my $_pkgcomponent;
 sub getpkgsrc {
     return $_pkgsrc if $_pkgsrc;
     my %pkgsrc;
+    my %pkgcomponent;
 
     open(MM,"$gPackageSource") or &quit("open $gPackageSource: $!");
     while(<MM>) {
-       next unless m/^(\S+)\s+(\S.*\S)\s*$/;
-       ($a,$b)=($1,$2);
+       next unless m/^(\S+)\s+(\S+)\s+(\S.*\S)\s*$/;
+       ($a,$b,$c)=($1,$2,$3);
        $a =~ y/A-Z/a-z/;
-       $pkgsrc{$a}= $b;
+       $pkgsrc{$a}= $c;
+       $pkgcomponent{$a}= $b;
     }
     close(MM);
     $_pkgsrc = \%pkgsrc;
+    $_pkgcomponent = \%pkgcomponent;
     return $_pkgsrc;
 }
 
+sub getpkgcomponent {
+    return $_pkgcomponent if $_pkgcomponent;
+    getpkgsrc();
+    return $_pkgcomponent;
+}
+
 sub getbugdir {
     my ( $bugnum, $ext ) = @_;
     my $archdir = sprintf "%02d", $bugnum % 100;