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=c29e56ce8b932014b562c56e33c68d6f4c8181c9;hp=b15e9edc63162da758865f07f4607bc8a6cf90f7;hb=5eefedd1fae821a3981218ceaccb7f5e50f823f9;hpb=e2881c2279414d845cb0b21b5e2661924194cb77

diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm
index b15e9ed..c29e56c 100644
--- a/lib/Packages/CGI.pm
+++ b/lib/Packages/CGI.pm
@@ -26,11 +26,11 @@ sub get_mime {
     return $mime_types{$_[0]} || $_[1] || 'text/html';
 }
 
-our (@fatal_errors, @errors, @debug, @msgs, @hints, @notes);
+our (@fatal_errors, @errors, @debug, @hints);
 our $http_code;
 
 sub reset {
-    @fatal_errors = @errors = @debug = @msgs = @hints = @notes = ();
+    @fatal_errors = @errors = @debug = @hints = ();
     $http_code = 200;
 }
 
@@ -48,27 +48,17 @@ sub debug {
     my $lvl = $_[1] || 0;
     push(@debug, $_[0]) if $debug > $lvl;
 }
-sub msg {
-    push @msgs, $_[0];
-}
-sub note {
-    push @notes, [ @_ ];
-}
 sub get_errors { (@fatal_errors, @errors) }
 sub get_debug {
     return unless $debug && @debug;
     return @debug;
 }
-sub get_msgs { @msgs };
 sub get_hints { @hints };
-sub get_notes { @notes };
 sub get_all_messages {
     return {
 	errors => [ @fatal_errors, @errors ],
 	debugs => $debug ? \@debug : [],
-	msgs => \@msgs,
 	hints => \@hints,
-	notes => \@notes,
     };
 }