+sub getpkgsrc {
+ my %pkgsrc;
+
+ open(MM,"$gPackageSource") or &quit("open $gPackageSource: $!");
+ while(<MM>) {
+ next unless m/^(\S+)\s+(\S.*\S)\s*$/;
+ ($a,$b)=($1,$2);
+ $a =~ y/A-Z/a-z/;
+ $pkgsrc{$a}= $b;
+ }
+ close(MM);
+
+ return \%pkgsrc
+}
+
+sub getbugdir {
+ my ( $bugnum, $ext ) = @_;
+ my $archdir = sprintf "%02d", $bugnum % 100;
+ foreach ( ( "$gSpoolDir/db-h/$archdir", "$gSpoolDir/db", "$gSpoolDir/archive/$archdir" ) ) {
+ return $_ if ( -r "$_/$bugnum.$ext" );
+ }
+ return undef;
+}
+