X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=cgi%2Fbugreport.cgi;h=7a9498213e0828bad8cdf59ae8ef0380bd346b1e;hb=235a779bdb026b6357e95053e1d7faaab87e8931;hp=4cdf5a19890ca72e3d96a80e71c45f304135edf7;hpb=07309ad3fbc3f3d29b0da8921716392b8e593eb0;p=debbugs.git diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi index 4cdf5a1..7a94982 100755 --- a/cgi/bugreport.cgi +++ b/cgi/bugreport.cgi @@ -60,8 +60,8 @@ my %param = cgi_parameters(query => $q, ); # This is craptacular. -my $ref = $param{bug} or quitcgi("No bug number"); -$ref =~ /(\d+)/ or quitcgi("Invalid bug number"); +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} =~ /^(\d+)$/ if exists $param{msg}; @@ -220,7 +220,7 @@ if ( $mbox ) { binmode(STDOUT,":raw"); my $date = strftime "%a %b %d %T %Y", localtime; if (@records > 1) { - print $q->header(-type => "text/plain", + print $q->header(-type => "application/mbox", -cache_control => 'public, max-age=600', -etag => $etag, content_disposition => qq(attachment; filename="bug_${ref}.mbox"), @@ -308,7 +308,7 @@ else { $msg_num++; ## allow this to be cached for a week print "Status: 200 OK\n"; - print "Cache-control: public, max-age=604800\n"; + print "Cache-Control: public, max-age=604800\n"; print "Etag: $etag\n"; print handle_email_message($records[0], ref => $ref,