[Opensrf-commits] r2050 - branches/rel_1_6/src/perl/lib/OpenSRF (erickson)

[svn at svn.open-ils.org]

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

Modified:
   branches/rel_1_6/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: branches/rel_1_6/src/perl/lib/OpenSRF/Transport.pm
===================================================================
--- branches/rel_1_6/src/perl/lib/OpenSRF/Transport.pm	2010-10-26 14:12:15 UTC (rev 2049)
+++ branches/rel_1_6/src/perl/lib/OpenSRF/Transport.pm	2010-10-26 14:12:33 UTC (rev 2050)
@@ -167,9 +167,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;
@@ -184,14 +183,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;
 }