X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCGI.pm;h=393b40602ef12203d1c746ddedcb53c0476f3fb3;hb=235a779bdb026b6357e95053e1d7faaab87e8931;hp=d97dc2b940fa4a25390deb0c7ecee751fd413513;hpb=1f81df46999fc3699ce73aeba95af5095a5a413a;p=debbugs.git

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index d97dc2b..393b406 100644
--- a/Debbugs/CGI.pm
+++ b/Debbugs/CGI.pm
@@ -292,7 +292,9 @@ sub cgi_parameters {
 
 
 sub quitcgi {
-    my $msg = shift;
+    my ($msg, $status) = @_;
+    $status //= '500 Internal Server Error';
+    print "Status: $status\n";
     print "Content-Type: text/html\n\n";
     print fill_in_template(template=>'cgi/quit',
 			   variables => {msg => $msg}
@@ -959,7 +961,7 @@ sub calculate_etags {
 		     );
     my @additional_data = @{$param{additional_data}};
     for my $file (@{$param{files}}) {
-	my $st = stat($file) or warn "Unable to stat $file:: $!";
+	my $st = stat($file) or warn "Unable to stat $file: $!";
 	push @additional_data,$st->mtime;
 	push @additional_data,$st->size;
     }