use warnings;
use Exporter;
-use Packages::Config;
our @ISA = qw( Exporter );
our @EXPORT = qw( DEBUG debug fatal_error get_mime );
'txt.gz' => 'text/plain',
html => 'text/html',
rss => 'application/rss+xml',
+ rfc822 => 'text/plain',
);
sub get_mime {
}
our (@fatal_errors, @errors, @debug, @msgs, @hints, @notes);
+our $http_code;
sub reset {
@fatal_errors = @errors = @debug = @msgs = @hints = @notes = ();
+ $http_code = 200;
}
sub fatal_error {
push @fatal_errors, $_[0];
+ $http_code = $_[1] if $_[1];
}
sub error {
push @errors, $_[0];
sub string2id {
my $string = "@_";
-
- $string =~ s/[^\w]/_/g;
+
+ $string =~ s/[^\w:.-]/_/g;
return $string;
}