From 06ca688c86ff96d96fd4346f7f20efb60ab769cc Mon Sep 17 00:00:00 2001 From: Andreas Brachold Date: Sun, 2 Dec 2007 07:02:43 +0000 Subject: * Fix: display 'panic' message * Fix: Warn if requested modul is'nt loaded * HTTPD: Show 'Internal Server Error' if requested modul is'nt loaded --- lib/Tools.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/Tools.pm') diff --git a/lib/Tools.pm b/lib/Tools.pm index 155de0a..97a483d 100644 --- a/lib/Tools.pm +++ b/lib/Tools.pm @@ -132,7 +132,7 @@ sub lg { sub debug { # ------------------ my $msg = shift; - &_msg(250,$msg, 3); + &_msg(250,$msg, 4); return undef; } @@ -144,7 +144,7 @@ sub event { my ($package, $filename, $line, $subroutine) = caller(1); &{$LOGCALLB}($module, $subroutine, $msg); - &_msg(270,$msg, 2); + &_msg(270,$msg, 3); return undef; } @@ -153,7 +153,7 @@ sub error { # ------------------ my $msg = shift; - &_msg(501,$msg, 1); + &_msg(501,$msg, 2); return undef; } @@ -163,7 +163,7 @@ sub panic { # ------------------ my $msg = shift; - &_msg(550,$msg, 0); + &_msg(550,$msg, 1); return undef; } -- cgit v1.2.3