$debbugs::gProject $debbugs::gBug report logs - $short
-There is no record of $debbugs::gBug $short. -Try the search page instead.
-$tail_html -EOF - exit 0; +my @records; +eval{ + @records = read_log_records(logfh => $buglogfh,inner_file => 1); +}; +if ($@) { + quitcgi("Bad bug log for $gBug $ref. Unable to read records: $@"); } +undef $buglogfh; -$|=1; -$tpack = lc $status{'package'}; -my @tpacks = splitpackages($tpack); +my $log=''; +my $msg_num = 0; +my $skip_next = 0; +if (defined($msg) and ($msg-1) <= $#records) { + @records = ($records[$msg-1]); + $msg_num = $msg - 1; +} +my @log; +if ( $mbox ) { + binmode(STDOUT,":raw"); + my $date = strftime "%a %b %d %T %Y", localtime; + if (@records > 1) { + print $q->header(-type => "text/plain", + content_disposition => qq(attachment; filename="bug_${ref}.mbox"), + (length $mtime)?(-last_modified => $mtime):(), + ); + } + else { + $msg_num++; + print $q->header(-type => "message/rfc822", + content_disposition => qq(attachment; filename="bug_${ref}_message_${msg_num}.mbox"), + (length $mtime)?(-last_modified => $mtime):(), + ); + } + if ($mbox_status_message and @records > 1) { + my $status_message=''; + my @status_fields = (retitle => 'subject', + package => 'package', + submitter => 'originator', + severity => 'severity', + tag => 'tags', + owner => 'owner', + blocks => 'blocks', + forward => 'forward', + ); + my ($key,$value); + while (($key,$value) = splice(@status_fields,0,2)) { + if (defined $status{$value} and length $status{$value}) { + $status_message .= qq($key $ref $status{$value}\n); + } + } + print STDOUT qq(From unknown $date\n), + create_mime_message([From => "$gBug#$ref <$ref\@$gEmailDomain>", + To => "$gBug#$ref <$ref\@$gEmailDomain>", + Subject => "Status: $status{subject}", + "Reply-To" => "$gBug#$ref <$ref\@$gEmailDomain>", + ], + <$showseverity";
-$indexentry .= htmlpackagelinks($status{package}, 0);
+@log = reverse @log if $reverse;
+$log = join("\n",@log);
-$indexentry .= "Reported by: " . htmlsanit($status{originator}) . ";\n";
-$indexentry .= "Owned by: " . htmlsanit($status{owner}) . ";\n"
- if length $status{owner};
+# All of the below should be turned into a template
-my $dummy = strftime "%a, %e %b %Y %T UTC", localtime($status{date});
-$indexentry .= "Date: ".$dummy.";\n
";
+my %maintainer = %{getmaintainers()};
+my %pkgsrc = %{getpkgsrc()};
-my @descstates;
+my $indexentry;
+my $showseverity;
-push @descstates, "Tags: "
- . htmlsanit(join(", ", sort(split(/\s+/, $status{tags}))))
- . ""
- if length($status{tags});
+my $tpack;
+my $tmain;
-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;
-}
+my $dtime = strftime "%a, %e %b %Y %T UTC", gmtime;
-if (@{$status{found_versions}}) {
- my $foundtext = 'Found in ';
- $foundtext .= (@{$status{found_versions}} == 1) ? 'version ' : 'versions ';
- $foundtext .= join ', ', map htmlsanit($_), @{$status{found_versions}};
- push @descstates, $foundtext;
+unless (%status) {
+ no_such_bug($q,$ref);
}
-if (@{$status{fixed_versions}}) {
- my $fixedtext = 'Fixed in ';
- $fixedtext .= (@{$status{fixed_versions}} == 1) ? 'version ' : 'versions ';
- $fixedtext .= join ', ', map htmlsanit($_), @{$status{fixed_versions}};
- if (length($status{done})) {
- $fixedtext .= ' by ' . htmlsanit($status{done});
+#$|=1;
+
+
+my @packages = make_list($status{package});
+
+
+my %packages_affects;
+for my $p_a (qw(package affects)) {
+ foreach my $pkg (make_list($status{$p_a})) {
+ if ($pkg =~ /^src\:/) {
+ my ($srcpkg) = $pkg =~ /^src:(.*)/;
+ $packages_affects{$p_a}{$pkg} =
+ {maintainer => exists($maintainer{$srcpkg}) ? $maintainer{$srcpkg} : '(unknown)',
+ source => $srcpkg,
+ package => $pkg,
+ is_source => 1,
+ };
+ }
+ else {
+ $packages_affects{$p_a}{$pkg} =
+ {maintainer => exists($maintainer{$pkg}) ? $maintainer{$pkg} : '(unknown)',
+ exists($pkgsrc{$pkg}) ? (source => $pkgsrc{$pkg}) : (),
+ package => $pkg,
+ };
+ }
}
- push @descstates, $fixedtext;
-} elsif (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 .=
- htmlmaintlinks(sub { $_[0] == 1 ? "Maintainer for $pkg is\n"
- : "Maintainers for $pkg are\n" },
- $tmaint);
- $descriptivehead .= ";\nSource for $pkg is\n".
- '$tsrc" if ($tsrc ne "(unknown)");
- $descriptivehead .= ".\n
";
+# 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(};
}
-open L, "<$buglog" or &quitcgi("open log for $ref: $!");
-if ($buglog !~ m#^\Q$gSpoolDir/db#) {
- $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 =states: $normstate $newstate
\n"; - -# if ($newstate eq 'go') { -# $this .= "
\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 = "$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 \`$_'");
- }
+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};
+ }
}
-&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;
+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};
+ }
}
-print "Content-Type: text/html\n\n";
-
-my $title = htmlsanit($status{subject});
-
-print "\n";
-print "\n" .
- "$debbugs::gProject $debbugs::gBug report logs - $short - $title \n" .
- "\n" .
- '' .
- "\n";
-print "" . "$debbugs::gProject $debbugs::gBug report logs - $short" .
- "
" . $title . "
\n";
-print "$descriptivehead\n";
-printf "View this report as an mbox folder.
\n", mboxurl($ref);
-print "
";
-print "$log";
-print $tail_html;
-
-print "\n";
+if ($buglog !~ m#^\Q$gSpoolDir/db#) {
+ $status{archived} = 1;
+}
-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 => $packages_affects{'package'},
+ affects => $packages_affects{'affects'},
+ 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,
+ },
+ );