From b8f7706ca95fc94ad2b055f6012c0c6b425778cc Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 1 Dec 2005 21:02:44 +0000 Subject: [PATCH] added qw(:level) to CDBI.pm because we were getting empty log levels made log output a little more descriptive (more to do) setting log service in math bench slimmed the logging in the gateway git-svn-id: svn://svn.open-ils.org/ILS/trunk@2149 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm | 2 +- OpenSRF/examples/math_bench.pl | 3 +++ OpenSRF/src/gateway/mod_ils_gateway.c | 4 +--- OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm | 2 ++ 4 files changed, 7 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm index da41af8bc5..d19a0968f8 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm @@ -15,7 +15,7 @@ use OpenILS::Application::Storage::CDBI::permission; use OpenILS::Application::Storage::CDBI::container; use JSON; -use OpenSRF::Utils::Logger; +use OpenSRF::Utils::Logger qw(:level); use OpenSRF::EX qw/:try/; our $VERSION = undef; diff --git a/OpenSRF/examples/math_bench.pl b/OpenSRF/examples/math_bench.pl index 2d991f5739..c3a504cfc6 100755 --- a/OpenSRF/examples/math_bench.pl +++ b/OpenSRF/examples/math_bench.pl @@ -2,6 +2,8 @@ use strict; use warnings; use OpenSRF::System; use Time::HiRes qw/time/; +use OpenSRF::Utils::Logger; +my $log = "OpenSRF::Utils::Logger"; # Test script which runs queries agains the opensrf.math service and reports on # the average round trip time of the requests. @@ -12,6 +14,7 @@ print "usage: $0 \n" and exit unless $count; # * connect to the Jabber network OpenSRF::System->bootstrap_client( config_file => "/openils/conf/bootstrap.conf" ); +$log->set_service('math_bench'); # * create a new application session for the opensrf.math service my $session = OpenSRF::AppSession->create( "opensrf.math" ); diff --git a/OpenSRF/src/gateway/mod_ils_gateway.c b/OpenSRF/src/gateway/mod_ils_gateway.c index 1f5f8bdd98..28e1337653 100644 --- a/OpenSRF/src/gateway/mod_ils_gateway.c +++ b/OpenSRF/src/gateway/mod_ils_gateway.c @@ -176,9 +176,7 @@ static int mod_ils_gateway_method_handler (request_rec *r) { char* content = jsonObjectToJSON(response); if(content) { - osrfLogInfo( "----------------------------------------------\n" - "Gateway responding with:\n%s\n" - "----------------------------------------------", content ); + osrfLogInfo( "Gateway responding with: %s", content ); ap_rputs(content,r); free(content); } diff --git a/OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm b/OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm index 6d71eb34be..607b65d6e6 100644 --- a/OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm +++ b/OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm @@ -200,6 +200,8 @@ sub _log_message { #my( $pack, $file, $line_no ) = @caller; + $msg = "[$n:"."$$".":::] $msg"; + if( $level == ACTIVITY() ) { if( is_act_syslog() ) { syslog( $fac | $l, $msg ); } elsif( is_act_filelog() ) { _write_file( $msg, 1 ); } -- 2.43.2