From 9385a1dbbeccc1c49523440ee2bd8a6c5ee7e81d Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 26 Mar 2007 17:25:21 +0000 Subject: [PATCH] added an INFO log line to log the called method on the server git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@7100 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- OpenSRF/src/perlmods/OpenSRF/Application.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 ); -- 2.11.0