\n";
my $showresult = 1;
if (defined $pkg || defined $src) {
my $showpkg = htmlsanit((defined $pkg) ? $pkg : "source package $src");
my %maintainers = %{getmaintainers()};
my $maint = $pkg ? $maintainers{$pkg} : $maintainers{$src} ? $maintainers{$src} : undef;
if (defined $maint) {
print '
';
print htmlmaintlinks(sub { $_[0] == 1 ? "Maintainer for $showpkg is "
: "Maintainers for $showpkg are "
},
$maint);
print ".
\n";
} else {
print "
No maintainer for $showpkg. Please do not report new bugs against this package.
\n";
}
if (defined $maint or @bugs) {
my %pkgsrc = %{getpkgsrc()};
my $srcforpkg;
if (defined $pkg) {
$srcforpkg = $pkgsrc{$pkg};
defined $srcforpkg or $srcforpkg = $pkg;
}
my @pkgs = getsrcpkgs($pkg ? $srcforpkg : $src);
undef $srcforpkg unless @pkgs;
@pkgs = grep( !/^\Q$pkg\E$/, @pkgs ) if ( $pkg );
if ( @pkgs ) {
@pkgs = sort @pkgs;
if ($pkg) {
print "
You may want to refer to the following packages that are part of the same source:\n";
} else {
print "
You may want to refer to the following individual bug pages:\n";
}
push @pkgs, $src if ( $src && !grep(/^\Q$src\E$/, @pkgs) );
print join( ", ", map( "$_", @pkgs ) );
print ".\n";
}
my @references;
my $pseudodesc = getpseudodesc();
if ($pkg and defined($pseudodesc) and exists($pseudodesc->{$pkg})) {
push @references, "to the list of other pseudo-packages";
} else {
if ($pkg and defined $gPackagePages) {
push @references, sprintf "to the %s package page", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg");
}
if (defined $gSubscriptionDomain) {
my $ptslink = $pkg ? $srcforpkg : $src;
push @references, "to the Package Tracking System";
}
# Only output this if the source listing is non-trivial.
if ($pkg and $srcforpkg and (@pkgs or $pkg ne $srcforpkg)) {
push @references, sprintf "to the source package %s's bug page", srcurl($srcforpkg), htmlsanit($srcforpkg);
}
}
if (@references) {
$references[$#references] = "or $references[$#references]" if @references > 1;
print "
You might like to refer ", join(", ", @references), ".
\n";
}
if (defined $maint || defined $maintenc) {
print "
If you find a bug not listed here, please\n";
printf "report it.
There is no record of the " .
(defined($pkg) ? htmlsanit($pkg) . " package"
: htmlsanit($src) . " source package") .
", and no bugs have been filed against it.
Note that maintainers may use different Maintainer fields for\n";
print "different packages, so there may be other reports filed under\n";
print "different addresses.\n";
} elsif (defined $submitter) {
print "
Note that people may use different email accounts for\n";
print "different bugs, so there may be other reports filed under\n";
print "different addresses.\n";
}
set_option("archive", !$archive);
printf "
";
for my $i (0..$#prior) {
my $local_result = '';
foreach my $key ( @{$order[$i]} ) {
my $count = $count{"g_${i}_$key"};
next if !$count or !$title[$i]->[$key];
$local_result .= "
$count $title[$i]->[$key]
\n";
}
if ( $local_result ) {
$footer .= "
$names[$i]
\n$local_result
\n";
}
}
$footer .= "
\n";
}
$result = $header . $result if ( $common{show_list_header} );
$result .= $footer if ( $common{show_list_footer} );
return $result;
}
sub pkg_htmlpackagelinks {
my $pkgs = shift;
return unless defined $pkgs and $pkgs ne '';
my $strong = shift;
my @pkglist = splitpackages($pkgs);
$strong = 0;
my $openstrong = $strong ? '' : '';
my $closestrong = $strong ? '' : '';
return 'Package' . (@pkglist > 1 ? 's' : '') . ': ' .
join(', ',
map {
'' .
$openstrong . htmlsanit($_) . $closestrong . ''
} @pkglist
);
}
sub pkg_htmladdresslinks {
htmlize_addresslinks(@_,'submitter');
}
sub pkg_javascript {
return <
EOF
}
sub pkg_htmlselectyesno {
my ($name, $n, $y, $default) = @_;
return sprintf('', $name, ($default ? "" : " selected"), $n, ($default ? " selected" : ""), $y);
}
sub pkg_htmlselectsuite {
my $id = sprintf "b_%d_%d_%d", $_[0], $_[1], $_[2];
my @suites = ("stable", "testing", "unstable", "experimental");
my %suiteaka = ("stable", "etch", "testing", "lenny", "unstable", "sid");
my $defaultsuite = "unstable";
my $result = sprintf '';
return $result;
}
sub pkg_htmlselectarch {
my $id = sprintf "b_%d_%d_%d", $_[0], $_[1], $_[2];
my @arches = qw(alpha amd64 arm hppa i386 ia64 m68k mips mipsel powerpc s390 sparc);
my $result = sprintf '';
return $result;
}
sub myurl {
return urlsanit(pkg_url(map {exists $param{$_}?($_,$param{$_}):()}
qw(archive repeatmerged mindays maxdays),
qw(version dist arch pkg src tag maint submitter)
)
);
}
sub make_order_list {
my $vfull = shift;
my @x = ();
if ($vfull =~ m/^([^:]+):(.*)$/) {
my $v = $1;
for my $vv (split /,/, $2) {
push @x, "$v=$vv";
}
} else {
for my $v (split /,/, $vfull) {
next unless $v =~ m/.=./;
push @x, $v;
}
}
push @x, ""; # catch all
return @x;
}
sub get_bug_order_index {
my $order = shift;
my $status = shift;
my $pos = -1;
my %tags = ();
%tags = map { $_, 1 } split / /, $status->{"tags"}
if defined $status->{"tags"};
for my $el (@${order}) {
$pos++;
my $match = 1;
for my $item (split /[+]/, $el) {
my ($f, $v) = split /=/, $item, 2;
next unless (defined $f and defined $v);
my $isokay = 0;
$isokay = 1 if (defined $status->{$f} and $v eq $status->{$f});
$isokay = 1 if ($f eq "tag" && defined $tags{$v});
unless ($isokay) {
$match = 0;
last;
}
}
if ($match) {
return $pos;
last;
}
}
return $pos + 1;
}
sub buglinklist {
my ($prefix, $infix, @els) = @_;
return '' if not @els;
return $prefix . bug_linklist($infix,'submitter',@els);
}
# sets: my @names; my @prior; my @title; my @order;
sub determine_ordering {
$cats{status}[0]{ord} = [ reverse @{$cats{status}[0]{ord}} ]
if ($pend_rev);
$cats{severity}[0]{ord} = [ reverse @{$cats{severity}[0]{ord}} ]
if ($sev_rev);
my $i;
if (defined $param{"pri0"}) {
my @c = ();
$i = 0;
while (defined $param{"pri$i"}) {
my $h = {};
my $pri = $param{"pri$i"};
if ($pri =~ m/^([^:]*):(.*)$/) {
$h->{"nam"} = $1; # overridden later if necesary
$h->{"pri"} = [ map { "$1=$_" } (split /,/, $2) ];
} else {
$h->{"pri"} = [ split /,/, $pri ];
}
$h->{"nam"} = $param{"nam$i"}
if (defined $param{"nam$i"});
$h->{"ord"} = [ split /\s*,\s*/, $param{"ord$i"} ]
if (defined $param{"ord$i"});
$h->{"ttl"} = [ split /\s*,\s*/, $param{"ttl$i"} ]
if (defined $param{"ttl$i"});
push @c, $h;
$i++;
}
$cats{"_"} = [@c];
$ordering = "_";
}
$ordering = "normal" unless defined $cats{$ordering};
sub get_ordering {
my @res;
my $cats = shift;
my $o = shift;
for my $c (@{$cats->{$o}}) {
if (ref($c) eq "HASH") {
push @res, $c;
} else {
push @res, get_ordering($cats, $c);
}
}
return @res;
}
my @cats = get_ordering(\%cats, $ordering);
sub toenglish {
my $expr = shift;
$expr =~ s/[+]/ and /g;
$expr =~ s/[a-z]+=//g;
return $expr;
}
$i = 0;
for my $c (@cats) {
$i++;
push @prior, $c->{"pri"};
push @names, ($c->{"nam"} || "Bug attribute #" . $i);
if (defined $c->{"ord"}) {
push @order, $c->{"ord"};
} else {
push @order, [ 0..$#{$prior[-1]} ];
}
my @t = @{ $c->{"ttl"} } if defined $c->{ttl};
if (@t < $#{$prior[-1]}) {
push @t, map { toenglish($prior[-1][$_]) } @t..($#{$prior[-1]});
}
push @t, $c->{"def"} || "";
push @title, [@t];
}
}