From e3a90ff2d36a395184d8e3971a1f4f6c7560acde Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Thu, 14 Apr 2011 12:15:19 +0200
Subject: syslog: Allow to prepend a prefix to every log message

---
 LogSyslog.st | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/LogSyslog.st b/LogSyslog.st
index 3864265..ee3bced 100644
--- a/LogSyslog.st
+++ b/LogSyslog.st
@@ -17,6 +17,7 @@
 "
 
 LogTarget subclass: LogTargetSyslog [
+    | prefix |
     <comment: 'I can log everything to the syslog.'>
     <category: 'osmo-logging-syslog'>
 
@@ -77,13 +78,22 @@ LogTarget subclass: LogTargetSyslog [
         <category: 'output'>
         | level |
         level := self class logLevelMap at: aMessage level.
-        self class c_syslog: level fmt: '%s' args: {aMessage msg}.
+        self class c_syslog: level fmt: '%s%s' args: {self prefix. aMessage msg}.
     ]
 
     exception: aMessage [
-        self class c_syslog: aMessage level fmt: '%s' args: {'EXCEPTION occured'}.
+        self class c_syslog: aMessage level fmt: '%s%s'
+                    args: {self prefix. 'EXCEPTION occured'}.
         self print: aMessage.
     ]
+
+    prefix: aMsg [
+        prefix := aMsg.
+    ]
+
+    prefix [
+        ^ prefix ifNil: ['']
+    ]
 ]
 
 Eval [
-- 
cgit v1.2.3