[Opensrf-commits] r2049 - trunk/src/perl/lib/OpenSRF (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-10-26 10:12:15 -0400 (Tue, 26 Oct 2010)
New Revision: 2049

Modified:
   trunk/src/perl/lib/OpenSRF/Transport.pm
Log:
consistent w/ the C libs, only log server message processing duration at INFO.  log server response processing duration at debug and w/ slighly different wording.  let the processing duration log message act as the indication of a successfully handled message to reduce logging

Modified: trunk/src/perl/lib/OpenSRF/Transport.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/Transport.pm	2010-10-25 17:08:30 UTC (rev 2048)
+++ trunk/src/perl/lib/OpenSRF/Transport.pm	2010-10-26 14:12:15 UTC (rev 2049)
@@ -158,9 +158,8 @@
 			try {  
 
 				if( ! $msg->handler( $app_session ) ) { return 0; }
+				$logger->info(sprintf("Message processing duration: %.3f", (time() - $start_time)));
 
-				$logger->debug("Successfully handled message", DEBUG);
-
 			} catch Error with {
 
 				my $e = shift;
@@ -175,14 +174,11 @@
 		} else { 
 
 			if( ! $msg->handler( $app_session ) ) { return 0; } 
-			$logger->debug("Successfully handled message", DEBUG);
+			$logger->debug(sprintf("Response processing duration: %.3f", (time() - $start_time)));
 
 		}
-
 	}
 
-	$logger->info(sprintf("Message processing duration: %.3fs", (time() - $start_time)));
-
 	return $app_session;
 }