There is no record of $debbugs::gBug $short. Try the search page instead.
$tail_html EOF exit 0; } $|=1; $tpack = lc $status{'package'}; my @tpacks = splitpackages($tpack); if ($status{severity} eq 'normal') { $showseverity = ''; #} elsif (grep($status{severity} eq $_, @strongseverities)) { # $showseverity = "Severity: $status{severity};\n"; } else { $showseverity = "Severity: $status{severity};\n"; } $indexentry .= "$showseverity";
$indexentry .= htmlpackagelinks($status{package}, 0);
$indexentry .= "Reported by: " . htmlsanit($status{originator}) . ";\n";
my $dummy = strftime "%a, %e %b %Y %T UTC", localtime($status{date});
$indexentry .= "Date: ".$dummy.";\n
";
my @descstates;
push @descstates, "Tags: "
. htmlsanit(join(", ", sort(split(/\s+/, $status{tags}))))
. ""
if length($status{tags});
my @merged= split(/ /,$status{mergedwith});
if (@merged) {
my $descmerged = 'merged with ';
my $mseparator = '';
for my $m (@merged) {
$descmerged .= $mseparator."#$m";
$mseparator= ",\n";
}
push @descstates, $descmerged;
}
if (length($status{done})) {
push @descstates, "Done: ".htmlsanit($status{done});
} elsif (length($status{forwarded})) {
push @descstates, "Forwarded to ".maybelink($status{forwarded});
}
$indexentry .= join(";\n", @descstates) . ";\n
" if @descstates;
$descriptivehead = $indexentry;
foreach my $pkg (@tpacks) {
my $tmaint = defined($maintainer{$pkg}) ? $maintainer{$pkg} : '(unknown)';
my $tsrc = defined($pkgsrc{$pkg}) ? $pkgsrc{$pkg} : '(unknown)';
$descriptivehead .= "Maintainer for $pkg is\n".
''.htmlsanit($tmaint).'';
$descriptivehead .= ";\nSource for $pkg is\n".
'$tsrc" if ($tsrc ne "(unknown)");
$descriptivehead .= ".\n
";
}
open L, "<$buglog" or &quitcgi("open log for $ref: $!");
if ($buglog !~ m#^\Q$gSpoolDir/db-h/#) {
$descriptivehead .= "\n
Bug is archived. No further changes may be made.
"; } my $log=''; my $xmessage = 1; my $suppressnext = 0; my $found_msgid = 0; my %seen_msgid = (); my $thisheader = ''; my $this = ''; my $cmsg = 1; my $normstate= 'kill-init'; my $linenum = 0; my @mail = (); my @mails = (); while(my $line =\n"; # } if ($newstate eq 'html') { $this = ''; } if ($newstate eq 'kill-end') { my $show = 1; $show = $boring if ($suppressnext && $normstate ne 'html'); $show = ($xmessage == $msg) if ($msg); push @mails, join( '', @mail ) if ( $mbox && @mail ); if ($show) { if (not $mime and @mail) { $this .= htmlsanit(join '', @mail); } elsif (@mail) { my $parser = new MIME::Parser; $parser->tmp_to_core(1); $parser->output_to_core(1); # $parser->output_under("/tmp"); my $entity = $parser->parse( new IO::Lines \@mail ); # TODO: make local subdir, clean it ourselves # the following does NOT delete the msg dirs in /tmp END { if ( $entity ) { $entity->purge; } if ( $parser ) { $parser->filer->purge; } } my @attachments = (); display_entity($entity, $ref, 1, $xmessage, $this, @attachments); } # if ($normstate eq 'go' || $normstate eq 'go-nox') { if ($normstate ne 'html') { $this = "\n$this\n"; } if ($normstate eq 'html') { $this .= " Full text available."; } $this = "$thisheader$this" if $thisheader && !( $normstate eq 'html' );; $thisheader = ''; my $delim = $terse ? "" : "
"; if ($reverse) { $log = "$this\n$delim$log"; } else { $log .= "$this\n$delim\n"; } } $xmessage++ if ($normstate ne 'html'); $suppressnext = $normstate eq 'html'; $found_msgid = 0; } $normstate = $newstate; @mail = (); next; } $_ = $line; if ($normstate eq 'incoming-recv') { my $pl= $_; $pl =~ s/\n+$//; m/^Received: \(at (\S+)\) by (\S+)\;/ || &quitcgi("bad line \`$pl' in state incoming-recv"); $thisheader = "Message received at ".htmlsanit("$1\@$2") . ":
\n"; $this = ''; $normstate= 'go'; push @mail, $_; } elsif ($normstate eq 'html') { $this .= $_; } elsif ($normstate eq 'go') { s/^\030//; if (!$suppressnext && !$found_msgid && /^Message-ID: <(.*)>/i) { my $msgid = $1; $found_msgid = 1; if ($seen_msgid{$msgid}) { $suppressnext = 1; } else { $seen_msgid{$msgid} = 1; } } if (@mail) { push @mail, $_; } else { $this .= htmlsanit($_); } } elsif ($normstate eq 'go-nox') { next if !s/^X//; if (!$suppressnext && !$found_msgid && /^Message-ID: <(.*)>/i) { my $msgid = $1; $found_msgid = 1; if ($seen_msgid{$msgid}) { $suppressnext = 1; } else { $seen_msgid{$msgid} = 1; } } if (@mail) { push @mail, $_; } else { $this .= htmlsanit($_); } } elsif ($normstate eq 'recips') { if (m/^-t$/) { $thisheader = "Message sent:
\n"; } else { s/\04/, /g; s/\n$//; $thisheader = "Message sent to ".htmlsanit($_).":
\n"; } $this = ""; $normstate= 'kill-body'; } elsif ($normstate eq 'autocheck') { next if !m/^X-Debian-Bugs(-\w+)?: This is an autoforward from (\S+)/; $normstate= 'autowait'; $thisheader = "Message received at $2:
\n"; $this = ''; push @mail, $_; } elsif ($normstate eq 'autowait') { next if !m/^$/; $normstate= 'go-nox'; } else { &quitcgi("$ref state $normstate line \`$_'"); } } &quitcgi("$ref state $normstate at end") unless $normstate eq 'kill-end'; close(L); if ( $mbox ) { print "Content-Type: text/plain\n\n"; foreach ( @mails ) { my @lines = split( "\n", $_, -1 ); if ( $lines[ 1 ] =~ m/^From / ) { my $tmp = $lines[ 0 ]; $lines[ 0 ] = $lines[ 1 ]; $lines[ 1 ] = $tmp; } if ( !( $lines[ 0 ] =~ m/^From / ) ) { my $date = strftime "%a %b %d %T %Y", localtime; unshift @lines, "From unknown $date"; } map { s/^(>*From )/>$1/ } @lines[ 1 .. $#lines ]; $_ = join( "\n", @lines ) . "\n"; } print join("", @mails ); exit 0; } print "Content-Type: text/html\n\n"; print "\n"; print "\n" . "$debbugs::gProject $debbugs::gBug report logs - $short \n" . "\n" . '' . "\n"; print "" . "$debbugs::gProject $debbugs::gBug report logs - $short" . "
\n"; print "$descriptivehead\n"; printf "
" . htmlsanit($status{subject}) . "View this report as an mbox folder.
\n", mboxurl($ref); print "
"; print "$log"; print $tail_html; print "\n"; exit 0;