From 6877525e589de8081f7890ce8759ea6ed6ed593a Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Sun, 12 Jan 2014 12:04:08 +0000
Subject: [PATCH] Reuse loglevel information.

---
 Webperl/Logger.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Webperl/Logger.pm b/Webperl/Logger.pm
index 0472002..2da64d5 100644
--- a/Webperl/Logger.pm
+++ b/Webperl/Logger.pm
@@ -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