Changed some log levels from INFO to DEBUG since they are highly repetitive

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

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index b0920dd..b694a29 100644 (file)
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -531,7 +531,7 @@ sub send {
 
        
                $logger->debug( "AppSession sending ".$msg->type." to ".$self->remote_id.
-                       " with threadTrace [".$msg->threadTrace."]", INFO );
+                       " with threadTrace [".$msg->threadTrace."]" );
 
        }
        

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index f33f5c2..418f2e6 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -87,7 +87,7 @@ sub handler {
        }
 
        if ($session->last_message_type eq 'REQUEST') {
-               $log->debug( "We got a REQUEST: ". $app_msg->method, INFO );
+               $log->debug( "We got a REQUEST: ". $app_msg->method);
 
                my $method_name = $app_msg->method;
                $log->debug( " * Looking up $method_name inside $app", DEBUG);

diff --git a/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm b/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
index 07feb83..7be8985 100644 (file)
--- a/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
+++ b/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
@@ -310,7 +310,7 @@ sub do_client {
                $self->payload->throw();
        }
 
-       $log->debug("oilsMessage passing to Application: " . $self->type." : ".$session->remote_id, INFO );
+       $log->debug("oilsMessage passing to Application: " . $self->type." : ".$session->remote_id );
 
        return 1;
 

diff --git a/src/perlmods/OpenSRF/Transport.pm b/src/perlmods/OpenSRF/Transport.pm
index 21aede8..ffbe3b9 100644 (file)
--- a/src/perlmods/OpenSRF/Transport.pm
+++ b/src/perlmods/OpenSRF/Transport.pm
@@ -158,10 +158,8 @@ sub handler {
        # up to the message layer for processing.
        for my $msg (@$doc) {
 
-               $logger->transport( "Transport::handler()passing to message handler", DEBUG );
-
-               $logger->transport( "Transport passing up ".$msg->type." from ".
-                               $app_session->remote_id . " with threadTrace [" . $msg->threadTrace."]", INFO );
+               $logger->debug( "Transport passing up ".$msg->type." from ".
+                               $app_session->remote_id . " with threadTrace [" . $msg->threadTrace."]");
 
                next unless (   $msg && UNIVERSAL::isa($msg => 'OpenSRF::DomainObject::oilsMessage'));
 

diff --git a/src/perlmods/OpenSRF/UnixServer.pm b/src/perlmods/OpenSRF/UnixServer.pm
index 34b83f0..38b3c5f 100644 (file)
--- a/src/perlmods/OpenSRF/UnixServer.pm
+++ b/src/perlmods/OpenSRF/UnixServer.pm
@@ -137,7 +137,7 @@ sub process_request {
                $logger->debug( "Looping on zombies " . $x++ , DEBUG);
        }
 
-       $logger->debug( "Timed out, disconnected, or auth failed", INFO );
+       $logger->debug( "Timed out, disconnected, or auth failed" );
        $app_session->kill_me if ($app_session);
 
        $0 = $orig;