From d836b210c817aaa397d8ac190b81156992717825 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Mon, 22 May 2006 18:23:15 +0000
Subject: [PATCH] limiting message size to prevent syslog warnings piling up

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@722 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Utils/Logger.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/perlmods/OpenSRF/Utils/Logger.pm b/src/perlmods/OpenSRF/Utils/Logger.pm
index 53e2990..7db43a0 100644
--- a/src/perlmods/OpenSRF/Utils/Logger.pm
+++ b/src/perlmods/OpenSRF/Utils/Logger.pm
@@ -208,6 +208,8 @@ sub _log_message {
 
 	$msg = "[$n:"."$$".":::] $msg";
 
+	$msg = substr($msg, 0, 2000); 
+
 	if( $level == ACTIVITY() ) {
 		if( is_act_syslog() ) { syslog( $fac | $l, $msg ); } 
 		elsif( is_act_filelog() ) { _write_file( $msg, 1 ); }
-- 
2.43.2