consistent w/ the C libs, only log server message processing duration at INFO. log...

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@2049 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perl/lib/OpenSRF/Transport.pm b/src/perl/lib/OpenSRF/Transport.pm
index 8d0dc74..cfb7ba9 100644 (file)
--- a/src/perl/lib/OpenSRF/Transport.pm
+++ b/src/perl/lib/OpenSRF/Transport.pm
@@ -158,8 +158,7 @@ sub handler {
                        try {  
 
                                if( ! $msg->handler( $app_session ) ) { return 0; }
-
-                               $logger->debug("Successfully handled message", DEBUG);
+                               $logger->info(sprintf("Message processing duration: %.3f", (time() - $start_time)));
 
                        } catch Error with {
 
@@ -175,14 +174,11 @@ sub handler {
                } 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;
 }