SF.net SVN: ledger-smb:[4093] branches/1.3

[..hidden..]

Revision: 4093
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4093&view=rev
Author:   tshvr
Date:     2011-11-26 11:24:54 +0000 (Sat, 26 Nov 2011)
Log Message:
-----------
logging trace simple division info and non-info to avoid need for Log::Log4perl::Filter::Boolean

Modified Paths:
--------------
    branches/1.3/LedgerSMB/Sysconfig.pm
    branches/1.3/lsmb-request.pl

Modified: branches/1.3/LedgerSMB/Sysconfig.pm
===================================================================
--- branches/1.3/LedgerSMB/Sysconfig.pm	2011-11-26 10:52:02 UTC (rev 4092)
+++ branches/1.3/LedgerSMB/Sysconfig.pm	2011-11-26 11:24:54 UTC (rev 4093)
@@ -159,15 +159,15 @@
     log4perl.appender.Screen.layout = SimpleLayout
     # Filter for debug level
     log4perl.filter.MatchDebug = Log::Log4perl::Filter::LevelMatch
-    log4perl.filter.MatchDebug.LevelToMatch = DEBUG
-    log4perl.filter.MatchDebug.AcceptOnMatch = true
+    log4perl.filter.MatchDebug.LevelToMatch = INFO
+    log4perl.filter.MatchDebug.AcceptOnMatch = false
 
-    # Filter for everything but debug level
+    # Filter for everything but debug,trace level
     log4perl.filter.MatchRest = Log::Log4perl::Filter::LevelMatch
-    log4perl.filter.MatchRest.LevelToMatch = DEBUG
-    log4perl.filter.MatchRest.AcceptOnMatch = false
+    log4perl.filter.MatchRest.LevelToMatch = INFO
+    log4perl.filter.MatchRest.AcceptOnMatch = true
 
-    # layout for DEBUG messages
+    # layout for DEBUG,TRACE messages
     log4perl.appender.Debug = Log::Log4perl::Appender::Screen
     log4perl.appender.Debug.layout = PatternLayout
     log4perl.appender.Debug.layout.ConversionPattern = %d - %p - %l -- %m%n
@@ -176,7 +176,7 @@
     # layout for non-DEBUG messages
     log4perl.appender.Basic = Log::Log4perl::Appender::Screen
     log4perl.appender.Basic.layout = PatternLayout
-    log4perl.appender.Basic.layout.ConversionPattern = %d - %p %m%n
+    log4perl.appender.Basic.layout.ConversionPattern = %d - %p - %C -- %m%n
     log4perl.appender.Basic.Filter = MatchRest
 );
 #some examples of loglevel setting for modules

Modified: branches/1.3/lsmb-request.pl
===================================================================
--- branches/1.3/lsmb-request.pl	2011-11-26 10:52:02 UTC (rev 4092)
+++ branches/1.3/lsmb-request.pl	2011-11-26 11:24:54 UTC (rev 4093)
@@ -38,16 +38,17 @@
 
 my $logger = Log::Log4perl->get_logger('LedgerSMB::Handler');
 
-$logger->debug("Begin lsmb-request.pl");
+$logger->debug("Begin");
 
 # for custom preprocessing logic
 eval { require "custom.pl"; };
 
-$logger->debug("lsmb-request.pl: getting request");
+$logger->debug("getting request");
 
 my $request = new LedgerSMB;
 
-$logger->debug("lsmb-request.pl: Got request");
+$logger->debug("Got request");
+$logger->trace("\$request=".Data::Dumper::Dumper($request));
 
 $request->{action} = '__default' if (!$request->{action});
 
@@ -78,7 +79,7 @@
 # Prevent flooding the error logs with undestroyed connection warnings
 $request->{dbh}->disconnect()
     if defined $request->{dbh};
-$logger->debug("End lsmb-request.pl");
+$logger->debug("End");
 
 
 sub call_script {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.