make the api CALL log line consistent across Perl and C and make it something that...

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@2144 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/libopensrf/osrf_application.c b/src/libopensrf/osrf_application.c
index b75d2bb..57a372b 100644 (file)
--- a/src/libopensrf/osrf_application.c
+++ b/src/libopensrf/osrf_application.c
@@ -1035,8 +1035,10 @@ int osrfMethodVerifyContext( osrfMethodContext* ctx )
        // Log the call, with the method and parameters
        char* params_str = jsonObjectToJSON( ctx->params );
        if( params_str ) {
-               osrfLogInfo( OSRF_LOG_MARK, "CALL:\t%s %s - %s",
-                        ctx->session->remote_service, ctx->method->name, params_str );
+        // params_str will at minimum be "[]"
+        params_str[strlen(params_str) - 1] = '\0'; // drop the trailing ']'
+               osrfLogInfo( OSRF_LOG_MARK, "CALL: %s %s %s",
+                        ctx->session->remote_service, ctx->method->name, params_str + 1);
                free( params_str );
        }
        return 0;

diff --git a/src/perl/lib/OpenSRF/Application.pm b/src/perl/lib/OpenSRF/Application.pm
index 8ccf568..6ebfe4b 100644 (file)
--- a/src/perl/lib/OpenSRF/Application.pm
+++ b/src/perl/lib/OpenSRF/Application.pm
@@ -127,7 +127,7 @@ sub handler {
         my @p = $app_msg->params;
                my $method_name = $app_msg->method;
                my $method_proto = $session->last_message_api_level;
-               $log->info("CALL: $method_name [". (@p ? join(', ',@p) : '') ."]");
+               $log->info("CALL: ".$session->service." $method_name ". (@p ? join(', ',@p) : ''));
 
                my $coderef = $app->method_lookup( $method_name, $method_proto, 1, 1 );