From 75f4cb3b3cba83db5b9c06bafae69807f18e0f71 Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 14 Dec 2005 06:01:14 +0000 Subject: [PATCH] truncating long log lines that go to syslog, as it kills the perl sprintf for some reason... git-svn-id: svn://svn.open-ils.org/ILS/trunk@2366 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm b/OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm index b4fe88dfd6..f2a3ab7a75 100644 --- a/OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm +++ b/OpenSRF/src/perlmods/OpenSRF/Utils/Logger.pm @@ -203,11 +203,11 @@ sub _log_message { $msg = "[$n:"."$$".":::] $msg"; if( $level == ACTIVITY() ) { - if( is_act_syslog() ) { syslog( $fac | $l, $msg ); } + if( is_act_syslog() ) { syslog( $fac | $l, substr($msg,0,100) ); } elsif( is_act_filelog() ) { _write_file( $msg, 1 ); } } else { - if( is_syslog() ) { syslog( $fac | $l, $msg ); } + if( is_syslog() ) { syslog( $fac | $l, substr($msg,0,100) ); } elsif( is_filelog() ) { _write_file($msg); } } } -- 2.43.2