From a731a7faf718c1b7d593aac94d75253a11b4de21 Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Mon, 21 Oct 2002 05:32:48 -0800
Subject: [PATCH] [project @ 2002-10-21 06:32:48 by doogie] Modified to support
 the a component column in sources(main/contrib ...).

---
 cgi/common.pl | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/cgi/common.pl b/cgi/common.pl
index 69dbdf1..1e255ee 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;
-- 
2.39.2