syslog: Keep the name of the syslog around

We need to keep the pointer around and we place it in the
Smalltalk dictionary.

2 files changed, 25 insertions, 2 deletions

diff --git a/LogSyslog.st b/LogSyslog.st
index ab8ee60..3864265 100644
--- a/LogSyslog.st
+++ b/LogSyslog.st
@@ -38,14 +38,22 @@ LogTarget subclass: LogTargetSyslog [
     ]
 
     LogTargetSyslog class >> openlog: aIdent option: aOption facility: aFacility [
+        "Free any previous string"
+        SYSLOG_NAME ifNotNil: [
+            SYSLOG_NAME free.
+            Smalltalk at: #SYSLOG_NAME put: nil.
+        ].
+
+        Smalltalk at: #SYSLOG_NAME put: aIdent asCData.
+
         self c_closelog.
-        self c_openlog: aIdent opt: aOption facility: aFacility.
+        self c_openlog: SYSLOG_NAME opt: aOption facility: aFacility.
         ^ self new
     ]
 
     LogTargetSyslog class >> c_openlog: ident opt: aOpt facility: aFac [
         <category: 'c-interface'>
-        <cCall: 'openlog' returning: #void args: #(#string #int #int)>
+        <cCall: 'openlog' returning: #void args: #(#cObject #int #int)>
     ]
 
     LogTargetSyslog class >> c_syslog: prio fmt: aFormat args: args[
@@ -78,3 +86,6 @@ LogTarget subclass: LogTargetSyslog [
     ]
 ]
 
+Eval [
+    LogTargetSyslog initialize.
+]
diff --git a/LogTest.st b/LogTest.st
index 00daa7e..25680c4 100644
--- a/LogTest.st
+++ b/LogTest.st
@@ -39,4 +39,16 @@ Eval [
     '123' logDebug: 'TEST' area: #sccp.
 
     '123' logException: 'TEST' area: #sccp.
+
+
+    "SYSLOG"
+    Object logManager target:
+            (Osmo.LogTargetSyslog
+                    openlog: 'ow' option: 0 facility: Osmo.LogTargetSyslog LOG_USER).
+    '123' logException: 'ABC' area: #sccp.
+
+    Object logManager target:
+            (Osmo.LogTargetSyslog
+                    openlog: 'ow2' option: 0 facility: Osmo.LogTargetSyslog LOG_USER).
+    '123' logException: 'ABC' area: #sccp.
 ]