Maintainer for $pkg is " - . htmlsanit($maintainers{$pkg}) . ".
\n"; + my $maint = $pkg ? $maintainers{$pkg} : $maintainers{$src} ? $maintainers{$src} : undef; + if (defined $maint) { + print "Maintainer for " . ( defined($pkg) ? $pkg : "source package $src" ) . " is " + . htmlsanit($maint) . ".
\n"; + } + my %pkgsrc = %{getpkgsrc()}; + my @pkgs; + $src = $pkgsrc{ $pkg } if ( $pkg && !$src ); + foreach ( keys %pkgsrc ) { + push @pkgs, $_ if $pkgsrc{$_} eq $src && ( ( $pkg && !( $_ eq $pkg ) ) || ( !$pkg && $src ) ); + } + if ( @pkgs ) { + @pkgs = sort @pkgs; + if ($pkg) { + print "You may want to refer to the following packages that are part of the same source:You might like to refer to the %s package page, or to the source package %s's bug page.
\n", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg"), urlsanit(srcurl($src)), $src; } - print "Note that with multi-binary packages there may be other\n"; - print "reports filed under the different binary package names.
\n"; - print "\n"; -my $stupidperl = ${debbugs::gPackagePages}; - printf "You might like to refer to the %s package page
\n", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg"); } elsif (defined $maint || defined $maintenc) { print "Note that maintainers may use different Maintainer fields for\n"; print "different packages, so there may be other reports filed under\n"; diff --git a/scripts/config.debian b/scripts/config.debian index 22ecfcd..d9962fa 100644 --- a/scripts/config.debian +++ b/scripts/config.debian @@ -1,5 +1,5 @@ # This is the bugs.debian.org debbugs configuration file. -# $Id: config.debian,v 1.12 2001/08/16 06:58:08 joy Exp $ +# $Id: config.debian,v 1.13 2001/11/17 00:40:03 doogie Exp $ # Domains $gEmailDomain = "bugs.debian.org"; @@ -73,3 +73,4 @@ $gMaintainerFileOverride = "$gConfigDir/Maintainers.override"; $gUnknownMaintainerEmail = "unknown-package\@qa.debian.org"; $gPseudoDescFile = "$gConfigDir/pseudo-packages.description"; +$gPackageSource = "$gConfigDir/indices/sources"; diff --git a/scripts/config.in b/scripts/config.in index b0ba4aa..59119ce 100644 --- a/scripts/config.in +++ b/scripts/config.in @@ -1,6 +1,6 @@ # This is the template debbugs configuration file. # You *must* edit it in order for debbugs to work. -# $Id: config.in,v 1.13 2001/04/24 19:10:26 doogie Exp $ +# $Id: config.in,v 1.14 2001/11/17 00:40:03 doogie Exp $ # Domains $gEmailDomain = "bugs.something"; # e.g. bugs.debian.org @@ -69,3 +69,4 @@ $gAJIndex = "/debian/home/ajt/ajbug/pkgindex"; # AJ's package index $gMaintainerFile = "$gConfigDir/Maintainers"; $gMaintainerFileOverride = "$gConfigDir/Maintainers.override"; $gPseudoDescFile = "$gConfigDir/pseudo-packages.description"; +$gPackageSource = "$gConfigDir/indices/sources"; -- 2.39.2