SF.net SVN: ledger-smb:[4124] branches/1.3/old-handler.pl

[..hidden..]

Revision: 4124
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4124&view=rev
Author:   tshvr
Date:     2011-12-01 21:55:16 +0000 (Thu, 01 Dec 2011)
Log Message:
-----------
add logging

Modified Paths:
--------------
    branches/1.3/old-handler.pl

Modified: branches/1.3/old-handler.pl
===================================================================
--- branches/1.3/old-handler.pl	2011-12-01 21:37:39 UTC (rev 4123)
+++ branches/1.3/old-handler.pl	2011-12-01 21:55:16 UTC (rev 4124)
@@ -60,6 +60,9 @@
 use LedgerSMB::Auth;
 use LedgerSMB::CancelFurtherProcessing;
 use Data::Dumper;
+
+my $logger = Log::Log4perl->get_logger('old-handler-chain');
+
 require "common.pl";
 
 # for custom preprocessing logic
@@ -131,7 +134,7 @@
       or $form->error( __FILE__ . ':' . __LINE__ . ": Locale not loaded: $!\n" );
 }
 # pull in the main code
-#print STDERR localtime()." old-handler.pl trying "."bin/$form->{script}"." action=$form->{action}\n";#trace flow
+$logger->trace("trying script=bin/$form->{script} action=$form->{action}");#trace flow
 try {
   require "bin/$form->{script}";
 
@@ -168,6 +171,7 @@
   my $ex = shift;
 };
 
+$logger->trace("leaving after script=bin/$form->{script} action=$form->{action}");#trace flow
 
 1;
 

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