X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FCGI.pm;h=66b442d79b4ec295e45020e31fb2732e95b79702;hb=f27f1fcc5bffc0696f694e962eb40dbb0c554855;hp=e9d834cb16feffc43a17d2885e13457c7d4fb2ff;hpb=9c048903c83d44428f638e77df45daaf076362c6;p=deb%2Fpackages.git diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm index e9d834c..66b442d 100644 --- a/lib/Packages/CGI.pm +++ b/lib/Packages/CGI.pm @@ -2,15 +2,18 @@ package Packages::CGI; use Exporter; our @ISA = qw( Exporter ); -our @EXPORT = qw( fatal_error error hint debug msg - print_errors print_hints print_debug print_msgs ); +our @EXPORT = qw( fatal_error error hint debug msg note + print_errors print_hints print_debug print_msgs + print_notes DEBUG ); +# define this to 0 in production mode +use constant DEBUG => 1; our $debug = 0; -our (@fatal_errors, @errors, @debug, @msgs, @hints); +our (@fatal_errors, @errors, @debug, @msgs, @hints, @notes); sub reset { - @fatal_errors = @errors = @debug = @msgs = @hints = (); + @fatal_errors = @errors = @debug = @msgs = @hints = @notes = (); } sub fatal_error { @@ -29,9 +32,12 @@ sub debug { sub msg { push @msgs, $_[0]; } +sub note { + push @notes, [ @_ ]; +} sub print_errors { return unless @fatal_errors || @errors; - print '
ERROR: $_
"; } @@ -39,26 +45,40 @@ sub print_errors { } sub print_debug { return unless $debug && @debug; - print ''; foreach (@debug) { print "$_\n"; } print '
$_
"; + print "$_
"; } print '$_
"; } + print '$note