svn commit: r164915 - /spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm

[qu...@apache.org]

Author: quinlan
Date: Tue Apr 26 16:42:04 2005
New Revision: 164915

URL: http://svn.apache.org/viewcvs?rev=164915&view=rev
Log:
more debugging and warning statements

Modified:
    spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm?rev=164915&r1=164914&r2=164915&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm Tue Apr 26 16:42:04 2005
@@ -51,6 +51,13 @@
 use constant INFO => 2;
 use constant DBG => 3;
 
+my %log_level = (
+		 0 => 'ERROR',
+		 1 => 'WARNING',
+		 2 => 'INFO',
+		 3 => 'DBG',
+		 );
+
 # global shared object
 our %LOG_SA;
 
@@ -87,6 +94,9 @@
     else {
       $LOG_SA{level} = INFO if $LOG_SA{level} < INFO;
     }
+    # debug statement last so we might see it
+    dbg("logger: adding facilities: " . join(", ", @facilities));
+    dbg("logger: logging level is " . $log_level{$LOG_SA{level}});
   }
 }
 
@@ -178,9 +188,10 @@
   my $name = lc($method);
   if (exists $LOG_SA{method}->{$name}) {
     delete $LOG_SA{method}->{$name};
+    info("logger: removing $name method");
     return 1;
   }
-  # should warn here
+  warn("logger: unable to remove $name method, not present to be removed");
   return 1;
 }