added an info log line to log the called method

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

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 0840f1e..0b3f9b7 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -5,7 +5,7 @@ use base qw/OpenSRF/;
 use OpenSRF::AppSession;
 use OpenSRF::DomainObject::oilsMethod;
 use OpenSRF::DomainObject::oilsResponse qw/:status/;
-use OpenSRF::Utils::Logger qw/:level/;
+use OpenSRF::Utils::Logger qw/:level $logger/;
 use Data::Dumper;
 use Time::HiRes qw/time/;
 use OpenSRF::EX qw/:try/;
@@ -95,8 +95,10 @@ sub handler {
 
        if ($session->last_message_type eq 'REQUEST') {
 
+        my @p = $app_msg->params;
                my $method_name = $app_msg->method;
                my $method_proto = $session->last_message_api_level;
+        $logger->info("CALL: $method_name [".join(', ',@p)."]");
 
                my $coderef = $app->method_lookup( $method_name, $method_proto, 1, 1 );