Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Reuse loglevel information.

Browse Source
This commit is contained in:
Chris 2014-01-12 12:04:08 +00:00
parent 05a74f95c7
commit 6877525e58
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Webperl/Logger.pm
View File

@ -73,7 +73,6 @@ sub new {
"fatalblargh" => 0,
"outlevels" => [ "WARNING", "NOTICE", "DEBUG" ],
"syslog" => 0,
"syslog_levs" => [ LOG_WARNING, LOG_NOTICE, LOG_DEBUG ],
@_,
};
@ -271,7 +270,7 @@ sub print {
print $self -> {"outlevels"} -> [$level],": $message",($newline ? "\n" : "");
print $logfile $self -> {"outlevels"} -> [$level],": $message",($newline ? "\n" : "") if($logfile);
syslog($self -> {"syslog_levs"} -> [$level], $message)
syslog(lc($self {"outlevels"} -> [$level]), $message)
if(!$self -> {"syslog"});
# flush stdout if needed to avoid log update delays