From: doogie <>
Date: Mon, 21 Oct 2002 13:32:48 +0000 (-0800)
Subject: [project @ 2002-10-21 06:32:48 by doogie]
X-Git-Tag: release/2.6.0~1019
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a731a7faf718c1b7d593aac94d75253a11b4de21;p=debbugs.git

[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 69dbdf1c..1e255ee7 100644
--- 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;