use warnings;
use Exporter;
-use Packages::Config;
our @ISA = qw( Exporter );
-our @EXPORT = qw( DEBUG debug fatal_error );
+our @EXPORT = qw( DEBUG debug fatal_error get_mime );
our @EXPORT_OK = qw( error hint msg note get_all_messages
make_url make_search_url );
-
# define this to 0 in production mode
use constant DEBUG => 1;
our $debug = 0;
+my %mime_types = (
+ txt => 'text/plain',
+ 'txt.gz' => 'text/plain',
+ html => 'text/html',
+ rss => 'application/rss+xml',
+ rfc822 => 'text/plain',
+ );
+
+sub get_mime {
+ return $mime_types{$_[0]} || $_[1] || 'text/html';
+}
+
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];
# return ( $start, $end );
#}
+sub string2id {
+ my $string = "@_";
+
+ $string =~ s/[^\w:.-]/_/g;
+ return $string;
+}
+
our ( %url_params, %query_params );
sub init_url {