use warnings;
use strict;
+# Sanitize environent for taint
+BEGIN{
+ delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
+}
+
+binmode(STDOUT,':encoding(UTF-8)');
use POSIX qw(strftime nice);
use Debbugs::Config qw(:globals :text :config);
for my $incexc (qw(include exclude)) {
next unless exists $param{$incexc};
# normalize tag to tags
- $param{$incexc} = [map {s/^tag:/tags:/} grep /\S\:\S/, make_list($param{$incexc})];
+ $param{$incexc} = [map {s/^tag:/tags:/; $_} grep /\S\:\S/, make_list($param{$incexc})];
}
for my $key (keys %package_search_keys) {
next unless exists $param{key};
for my $incexc (qw(include exclude)) {
next unless exists $param{$incexc};
# normalize tag to tags
- $param{$incexc} = [map {s/^tag:/tags:/} make_list($param{$incexc})];
+ $param{$incexc} = [map {s/^tag:/tags:/; $_} make_list($param{$incexc})];
}
(exists $param{dist})?(dist => $param{dist}):(),
);
+print "Cache-control: public, max-age=300\n";
print "Content-Type: text/html; charset=utf-8\n\n";
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";