From 8d4013844e19f5c2d59c92651ec5077c8ed8277f Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 26 Mar 2007 17:25:48 +0000
Subject: [PATCH] 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
---
 src/perlmods/OpenSRF/Application.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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