Packages::I18N::LanguageNames: Misc. fixes

[deb/packages.git] / lib / Packages / CGI.pm

diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm
index 34d7a5f341636414d0175e089561fd241c9c5823..b15e9edc63162da758865f07f4607bc8a6cf90f7 100644 (file)
--- a/lib/Packages/CGI.pm
+++ b/lib/Packages/CGI.pm
@@ -4,7 +4,6 @@ use strict;
 use warnings;
 
 use Exporter;
-use Packages::Config;
 
 our @ISA = qw( Exporter );
 our @EXPORT = qw( DEBUG debug fatal_error get_mime );
@@ -20,6 +19,7 @@ my %mime_types = (
                  'txt.gz' => 'text/plain',
                  html => 'text/html',
                  rss => 'application/rss+xml',
+                 rfc822 => 'text/plain',
                  );
 
 sub get_mime {
@@ -27,13 +27,16 @@ 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];
@@ -345,8 +348,8 @@ sub printindexline {
 
 sub string2id {
     my $string = "@_";
-    
-    $string =~ s/[^\w]/_/g;
+
+    $string =~ s/[^\w:.-]/_/g;
     return $string;
 }