X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FCGI.pm;fp=lib%2FPackages%2FCGI.pm;h=555c9e534944f80ecc02bfc1efa360f0fdabc3f6;hp=34d7a5f341636414d0175e089561fd241c9c5823;hb=c40b1514a9289273df1ae785fd938b8fa0f31183;hpb=fd86d8529dc854454c7ed14958606a13b8625ada

diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm
index 34d7a5f..555c9e5 100644
--- a/lib/Packages/CGI.pm
+++ b/lib/Packages/CGI.pm
@@ -20,6 +20,7 @@ my %mime_types = (
 		  'txt.gz' => 'text/plain',
 		  html => 'text/html',
 		  rss => 'application/rss+xml',
+		  rfc822 => 'text/plain',
 		  );
 
 sub get_mime {
@@ -27,13 +28,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];