From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 26 Mar 2007 17:25:48 +0000 (+0000)
Subject: added an info log line to log the called method
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a91ed0d79199afc52d87389f67e70f7f0e4974bb;p=Evergreen.git

added an info log line to log the called method


git-svn-id: svn://svn.open-ils.org/ILS/trunk@7101 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/OpenSRF/src/perlmods/OpenSRF/Application.pm b/OpenSRF/src/perlmods/OpenSRF/Application.pm
index 0840f1e4b9..0b3f9b7b2f 100644
--- a/OpenSRF/src/perlmods/OpenSRF/Application.pm
+++ b/OpenSRF/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 );