There is no record of $debbugs::gBug $short. -Try the search page instead.
-$tail_html -EOF + print $q->header(-type => "text/html", + -charset => 'utf-8', + (length $mtime)?(-last_modified => $mtime):(), + ); + print fill_in_template(template=>'cgi/no_such_bug', + variables => {modify_time => $dtime, + bug_num => $ref, + }, + ); 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;
+#$|=1;
+
+my %package;
+my @packages = make_list($status{package});
+
+foreach my $pkg (@packages) {
+ if ($pkg =~ /^src\:/) {
+ my ($srcpkg) = $pkg =~ /^src:(.*)/;
+ $package{$pkg} = {maintainer => exists($maintainer{$srcpkg}) ? $maintainer{$srcpkg} : '(unknown)',
+ source => $srcpkg,
+ package => $pkg,
+ is_source => 1,
+ };
+ }
+ else {
+ $package{$pkg} = {maintainer => exists($maintainer{$pkg}) ? $maintainer{$pkg} : '(unknown)',
+ exists($pkgsrc{$pkg}) ? (source => $pkgsrc{$pkg}) : (),
+ package => $pkg,
+ };
+ }
}
-if (length($status{done})) {
- push @descstates, "Done: ".htmlsanit($status{done});
-} elsif (length($status{forwarded})) {
- push @descstates, "Forwarded to ".maybelink($status{forwarded});
+# fixup various bits of the status
+$status{tags_array} = [sort(make_list($status{tags}))];
+$status{date_text} = strftime('%a, %e %b %Y %T UTC', gmtime($status{date}));
+$status{mergedwith_array} = [make_list($status{mergedwith})];
+
+
+my $version_graph = '';
+if (@{$status{found_versions}} or @{$status{fixed_versions}}) {
+ $version_graph = q(};
}
-$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
";
+my @blockedby= make_list($status{blockedby});
+$status{blockedby_array} = [];
+if (@blockedby && $status{"pending"} ne 'fixed' && ! length($status{done})) {
+ for my $b (@blockedby) {
+ my %s = %{get_bug_status($b)};
+ next if $s{"pending"} eq 'fixed' || length $s{done};
+ push @{$status{blockedby_array}},{bug_num => $b, subject => $s{subject}, status => \%s};
+ }
}
-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 @blocks= make_list($status{blocks}); +$status{blocks_array} = []; +if (@blocks && $status{"pending"} ne 'fixed' && ! length($status{done})) { + for my $b (@blocks) { + my %s = %{get_bug_status($b)}; + next if $s{"pending"} eq 'fixed' || length $s{done}; + push @{$status{blocks_array}}, {bug_num => $b, subject => $s{subject}, status => \%s}; + } } -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 \`$_'"); - } +if ($buglog !~ m#^\Q$gSpoolDir/db#) { + $status{archived} = 1; } -&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; +my $descriptivehead = $indexentry; + +print $q->header(-type => "text/html", + -charset => 'utf-8', + (length $mtime)?(-last_modified => $mtime):(), + ); + +print fill_in_template(template => 'cgi/bugreport', + variables => {status => \%status, + package => \%package, + log => $log, + bug_num => $ref, + version_graph => $version_graph, + msg => $msg, + isstrongseverity => \&Debbugs::Status::isstrongseverity, + html_escape => \&Debbugs::CGI::html_escape, + looks_like_number => \&Scalar::Util::looks_like_number, + make_list => \&Debbugs::Common::make_list, + }, + hole_var => {'&package_links' => \&Debbugs::CGI::package_links, + '&bug_links' => \&Debbugs::CGI::bug_links, + '&version_url' => \&Debbugs::CGI::version_url, + '&bug_url' => \&Debbugs::CGI::bug_url, + '&strftime' => \&POSIX::strftime, + '&maybelink' => \&Debbugs::CGI::maybelink, + }, + );