X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=cgi%2Fbugreport.cgi;h=cae46f9af0ff03ab7eb3d5898a9d98ca80d3defc;hb=5e2295f19fdcf5c870e8bcfdb56a22ed991bad97;hp=aceacd922429fe5d160e631e70a944d4e471c283;hpb=8ffbc32add6e489c8b19a84da5bcc2ecac7a50c4;p=debbugs.git diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi index aceacd9..cae46f9 100755 --- a/cgi/bugreport.cgi +++ b/cgi/bugreport.cgi @@ -1,438 +1,472 @@ -#!/usr/bin/perl -wT - -package debbugs; +#!/usr/bin/perl +use warnings; use strict; -use POSIX qw(strftime tzset); -use MIME::Parser; -use MIME::Decoder; -use IO::Scalar; -use IO::Lines; -#require '/usr/lib/debbugs/errorlib'; -require './common.pl'; - -require '/etc/debbugs/config'; -require '/etc/debbugs/text'; - -use vars(qw($gEmailDomain $gHTMLTail $gSpoolDir $gWebDomain)); - -my %param = readparse(); +# Sanitize environent for taint +BEGIN{ + delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; +} -my $tail_html; -my $ref = $param{'bug'} || quitcgi("No bug number"); -$ref =~ /(\d+)/ or quitcgi("Invalid bug number"); +use POSIX qw(strftime); +use MIME::Parser; +use MIME::Decoder; +use IO::Scalar; +use IO::File; + +use Debbugs::Config qw(:globals :text :config); + +# for read_log_records +use Debbugs::Log qw(:read); +use Debbugs::CGI qw(:url :html :util :cache); +use Debbugs::CGI::Bugreport qw(:all); +use Debbugs::Common qw(buglog getmaintainers make_list bug_status); +use Debbugs::Packages qw(getpkgsrc); +use Debbugs::Status qw(splitpackages split_status_fields get_bug_status isstrongseverity); + +use Debbugs::User; + +use Scalar::Util qw(looks_like_number); + +use Debbugs::Text qw(:templates); + +use List::Util qw(max); + + +use CGI::Simple; +my $q = new CGI::Simple; +# STDOUT should be using the utf8 io layer +binmode(STDOUT,':raw:encoding(UTF-8)'); + +my %param = cgi_parameters(query => $q, + single => [qw(bug msg att boring terse), + qw(reverse mbox mime trim), + qw(mboxstat mboxmaint archive), + qw(repeatmerged avatars), + ], + default => {# msg => '', + boring => 'no', + terse => 'no', + reverse => 'no', + mbox => 'no', + mime => 'no', + mboxstat => 'no', + mboxmaint => 'no', + archive => 'no', + repeatmerged => 'yes', + avatars => 'yes', + }, + ); +# This is craptacular. + +my $ref = $param{bug} or quitcgi("No bug number", '400 Bad Request'); +$ref =~ /(\d+)/ or quitcgi("Invalid bug number", '400 Bad Request'); $ref = $1; my $short = "#$ref"; -my $msg = $param{'msg'} || ""; -my $att = $param{'att'}; -my $boring = ($param{'boring'} || 'no') eq 'yes'; -my $terse = ($param{'terse'} || 'no') eq 'yes'; -my $reverse = ($param{'reverse'} || 'no') eq 'yes'; -my $mbox = ($param{'mbox'} || 'no') eq 'yes'; -my $mime = ($param{'mime'} || 'yes') eq 'yes'; +my ($msg) = $param{msg} =~ /^(\d+)$/ if exists $param{msg}; +my ($att) = $param{att} =~ /^(\d+)$/ if exists $param{att}; +my $boring = $param{'boring'} eq 'yes'; +my $terse = $param{'terse'} eq 'yes'; +my $reverse = $param{'reverse'} eq 'yes'; +my $mbox = $param{'mbox'} eq 'yes'; +my $mime = $param{'mime'} eq 'yes'; +my $avatars = $param{avatars} eq 'yes'; + +my $trim_headers = ($param{trim} || ((defined $msg and $msg)?'no':'yes')) eq 'yes'; + +my $mbox_status_message = $param{mboxstat} eq 'yes'; +my $mbox_maint = $param{mboxmaint} eq 'yes'; +$mbox = 1 if $mbox_status_message or $mbox_maint; # Not used by this script directly, but fetch these so that pkgurl() and # friends can propagate them correctly. -my $archive = ($param{'archive'} || 'no') eq 'yes'; -my $repeatmerged = ($param{'repeatmerged'} || 'yes') eq 'yes'; -set_option('archive', $archive); -set_option('repeatmerged', $repeatmerged); +my $archive = $param{'archive'} eq 'yes'; +my $repeatmerged = $param{'repeatmerged'} eq 'yes'; + +my %bugusertags; +my %ut; +my %seen_users; my $buglog = buglog($ref); +my $bug_status = bug_status($ref); +if (not defined $buglog or not defined $bug_status) { + no_such_bug($q,$ref); +} -if ($ENV{REQUEST_METHOD} eq 'HEAD' and not defined($att) and not $mbox) { - print "Content-Type: text/html\n"; - my @stat = stat $buglog; - if (@stat) { - my $mtime = strftime '%a, %d %b %Y %T GMT', gmtime($stat[9]); - print "Last-Modified: $mtime\n"; - } - print "\n"; +sub no_such_bug { + my ($q,$ref) = @_; + print $q->header(-status => 404, + -content_type => "text/html", + -charset => 'utf-8', + -cache_control => 'public, max-age=600', + ); + print fill_in_template(template=>'cgi/no_such_bug', + variables => {modify_time => strftime('%a, %e %b %Y %T UTC', gmtime), + bug_num => $ref, + }, + ); exit 0; } -sub display_entity ($$$$\$\@); -sub display_entity ($$$$\$\@) { - my $entity = shift; - my $ref = shift; - my $top = shift; - my $xmessage = shift; - my $this = shift; - my $attachments = shift; - - my $head = $entity->head; - my $disposition = $head->mime_attr('content-disposition'); - $disposition = 'inline' if not defined $disposition or $disposition eq ''; - my $type = $entity->effective_type; - my $filename = $entity->head->recommended_filename; - $filename = '' unless defined $filename; - - if ($top) { - $$this .= htmlsanit($entity->stringify_header) unless ($terse); - $$this .= "\n"; - } +## calculate etag for this bugreport.cgi call +my $etag; +## identify the files that we need to look at; if someone just wants the mbox, +## they don't need to see anything but the buglog; otherwise, track what is +## necessary for the usertags and things to calculate status. + +my @dependent_files = ($buglog); +my $need_status = 0; +if (not (($mbox and not $mbox_status_message) or + (defined $att and defined $msg))) { + $need_status = 1; + push @dependent_files, + $bug_status, + defined $config{version_index} ? $config{version_index}:(), + defined $config{binary_source_map} ? $config{binary_source_map}:(); +} - unless (($top and $type =~ m[^text(?:/plain)?(?:;|$)]) or - ($type =~ m[^multipart/])) { - push @$attachments, $entity; - my @dlargs = ($ref, "msg=$xmessage", "att=$#$attachments"); - push @dlargs, "filename=$filename" if $filename ne ''; - my $printname = $filename; - $printname = 'Message part ' . ($#$attachments + 1) if $filename eq ''; - $$this .= '[$printname } . - "($type, $disposition)]\n\n"; - - if ($msg and defined($att) and $att eq $#$attachments) { - my $head = $entity->head; - chomp(my $type = $entity->effective_type); - my $body = $entity->stringify_body; - print "Content-Type: $type"; - print "; name=$filename" if $filename ne ''; - print "\n\n"; - my $decoder = new MIME::Decoder($head->mime_encoding); - $decoder->decode(new IO::Scalar(\$body), \*STDOUT); - exit(0); - } +## Identify the users required +for my $user (map {split /[\s*,\s*]+/} make_list($param{users}||[])) { + next unless length($user); + push @dependent_files,Debbugs::User::usertag_flie_from_email($user); +} +if (defined $param{usertag}) { + for my $usertag (make_list($param{usertag})) { + my ($user, $tag) = split /:/, $usertag, 2; + push @dependent_files,Debbugs::User::usertag_flie_from_email($user); } +} +$etag = + etag_does_not_match(cgi => $q, + additional_data => [grep {defined $_ ? $_ :()} + values %param + ], + files => [@dependent_files, + ], + ); +if (not $etag) { + print $q->header(-status => 304, + -cache_control => 'public, max-age=600', + -etag => $etag, + -charset => 'utf-8', + -content_type => 'text/html', + ); + print "304: Not modified\n"; + exit 0; +} - return if not $top and $disposition eq 'attachment' and not defined($att); - return unless ($type =~ m[^text/?] and $type !~ m[^text/html(?:;|$)]) or - $type =~ m[^application/pgp(?:;|$)] or - $entity->parts; - - if ($entity->is_multipart) { - my @parts = $entity->parts; - foreach my $part (@parts) { - display_entity($part, $ref, 0, $xmessage, - $$this, @$attachments); - $$this .= "\n"; - } - } elsif ($entity->parts) { - # We must be dealing with a nested message. - $$this .= "
\n"; - my @parts = $entity->parts; - foreach my $part (@parts) { - display_entity($part, $ref, 1, $xmessage, - $$this, @$attachments); - $$this .= "\n"; - } - $$this .= "\n"; - } else { - $$this .= htmlsanit($entity->bodyhandle->as_string) unless ($terse); - } +## if they're just asking for the head, stop here. +if ($q->request_method() eq 'HEAD' and not defined($att) and not $mbox) { + print $q->header(-status => 200, + -cache_control => 'public, max-age=600', + -etag => $etag, + -charset => 'utf-8', + -content_type => 'text/html', + ); + exit 0; } -my %maintainer = %{getmaintainers()}; -my %pkgsrc = %{getpkgsrc()}; +for my $user (map {split /[\s*,\s*]+/} make_list($param{users}||[])) { + next unless length($user); + add_user($user,\%ut,\%bugusertags,\%seen_users); +} -my $indexentry; -my $descriptivehead; -my $showseverity; +if (defined $param{usertag}) { + for my $usertag (make_list($param{usertag})) { + my %select_ut = (); + my ($u, $t) = split /:/, $usertag, 2; + Debbugs::User::read_usertags(\%select_ut, $u); + unless (defined $t && $t ne "") { + $t = join(",", keys(%select_ut)); + } + add_user($u,\%ut,\%bugusertags,\%seen_users); + push @{$param{tag}}, split /,/, $t; + } +} -my $tpack; -my $tmain; -$ENV{"TZ"} = 'UTC'; -tzset(); +my $buglogfh; +if ($buglog =~ m/\.gz$/) { + my $oldpath = $ENV{'PATH'}; + $ENV{'PATH'} = '/bin:/usr/bin'; + $buglogfh = IO::File->new("zcat $buglog |") or quitcgi("open log for $ref: $!"); + $ENV{'PATH'} = $oldpath; +} else { + $buglogfh = IO::File->new($buglog,'r') or quitcgi("open log for $ref: $!"); +} -my $dtime = strftime "%a, %e %b %Y %T UTC", localtime; -$tail_html = $debbugs::gHTMLTail; -$tail_html =~ s/SUBSTITUTE_DTIME/$dtime/; -my %status = %{getbugstatus($ref)}; -unless (%status) { - print <
There is no record of $debbugs::gBug $short. -Try the search page instead.
-$tail_html -EOF - exit 0; +my %status; +if ($need_status) { + %status = %{split_status_fields(get_bug_status(bug=>$ref, + bugusertags => \%bugusertags, + ))} } -$|=1; +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; -$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"; +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 => "application/mbox", + -cache_control => 'public, max-age=600', + -etag => $etag, + content_disposition => qq(attachment; filename="bug_${ref}.mbox"), + ); + } + else { + $msg_num++; + print $q->header(-type => "message/rfc822", + -cache_control => 'public, max-age=86400', + -etag => $etag, + content_disposition => qq(attachment; filename="bug_${ref}_message_${msg_num}.mbox"), + ); + } + 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);
+else {
+ if (defined $att and defined $msg and @records) {
+ binmode(STDOUT,":raw");
+ $msg_num++;
+ ## allow this to be cached for a week
+ print "Status: 200 OK\n";
+ print "Cache-Control: public, max-age=604800\n";
+ print "Etag: $etag\n";
+ print handle_email_message($records[0],
+ ref => $ref,
+ msg_num => $msg_num,
+ att => $att,
+ msg => $msg,
+ trim_headers => $trim_headers,
+ );
+ exit 0;
+ }
+ my %seen_msg_ids;
+ for my $record (@records) {
+ $msg_num++;
+ if ($skip_next) {
+ $skip_next = 0;
+ next;
+ }
+ $skip_next = 1 if $record->{type} eq 'html' and not $boring;
+ push @log, handle_record($record,$ref,$msg_num,
+ \%seen_msg_ids,
+ trim_headers => $trim_headers,
+ avatars => $avatars,
+ );
+ }
+}
-$indexentry .= "Reported by: " . htmlsanit($status{originator}) . ";\n";
+@log = reverse @log if $reverse;
+$log = join("\n",@log);
-my $dummy = strftime "%a, %e %b %Y %T UTC", localtime($status{date});
-$indexentry .= "Date: ".$dummy.";\n
";
-my @descstates;
+# All of the below should be turned into a template
-push @descstates, "Tags: "
- . htmlsanit(join(", ", sort(split(/\s+/, $status{tags}))))
- . ""
- if length($status{tags});
+my %maintainer = %{getmaintainers()};
+my %pkgsrc = %{getpkgsrc()};
-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 $indexentry;
+my $showseverity;
-if (length($status{done})) {
- push @descstates, "Done: ".htmlsanit($status{done});
-} elsif (length($status{forwarded})) {
- push @descstates, "Forwarded to ".maybelink($status{forwarded});
-}
+my $tpack;
+my $tmain;
-$indexentry .= join(";\n", @descstates) . ";\n
" if @descstates;
+my $dtime = strftime "%a, %e %b %Y %T UTC", gmtime;
-$descriptivehead = $indexentry;
-foreach my $pkg (@tpacks) {
- my $tmaint = defined($maintainer{$pkg}) ? $maintainer{$pkg} : '(unknown)';
- my $tsrc = defined($pkgsrc{$pkg}) ? $pkgsrc{$pkg} : '(unknown)';
+unless (%status) {
+ no_such_bug($q,$ref);
+}
- $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
";
+#$|=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,
+ };
+ }
+ }
}
-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.
"; +# 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(}; } -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 \`$_'"); - } + +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"; - -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; + +if ($buglog !~ m#^\Q$gSpoolDir/db#) { + $status{archived} = 1; +} + +my $descriptivehead = $indexentry; + +print $q->header(-type => "text/html", + -charset => 'utf-8', + -cache_control => 'public, max-age=300', + -etag => $etag, + ); + +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, + }, + );