use warnings;
use strict;
use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
use Debbugs::URI;
use HTML::Entities;
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}
);
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;
}