try a different approach to using system perl

[debbugs.git] / cgi / bugreport.cgi

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 86152f978dc0252b6e36b862f0845246a030c37c..9b445ce64ae1e562af1a5e426d60ea573ca6487a 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -15,11 +15,11 @@ use MIME::Decoder;
 use IO::Scalar;
 use IO::File;
 
-use Debbugs::Config qw(:globals :text);
+use Debbugs::Config qw(:globals :text :config);
 
 # for read_log_records
 use Debbugs::Log qw(:read);
-use Debbugs::CGI qw(:url :html :util);
+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);
@@ -220,11 +220,10 @@ 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"),
-                         (length $mtime)?(-last_modified => $mtime):(),
                         );
      }
      else {
@@ -233,7 +232,6 @@ if ( $mbox ) {
                           -cache_control => 'public, max-age=86400',
                           -etag => $etag,
                           content_disposition => qq(attachment; filename="bug_${ref}_message_${msg_num}.mbox"),
-                          (length $mtime)?(-last_modified => $mtime):(),
                          );
      }
      if ($mbox_status_message and @records > 1) {
@@ -310,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,