From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
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=8d4013844e19f5c2d59c92651ec5077c8ed8277f;p=opensrf%2Fbjwebb.git

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
--- 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 );