From: Joe Atzberger <atz@esilibrary.com>
Date: Fri, 7 May 2010 00:02:24 +0000 (+0000)
Subject: Allow log ident string to be pulled from ENV
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2360a6be513c0f464fddf2365aef41473d4cb394;p=working%2FSIPServer.git

Allow log ident string to be pulled from ENV

This supports running multiple SIP interfaces on the same box,
even as the same user.
---

diff --git a/SIPServer.pm b/SIPServer.pm
index e2f15e4..12ff351 100644
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -65,8 +65,20 @@ foreach my $svc (keys %{$config->{listeners}}) {
 #
 # Logging
 #
-push @parms, "log_file=Sys::Syslog", "syslog_ident=acs-server",
-  "syslog_facility=" . LOG_SIP;
+# Log lines look like this:
+# Jun 16 21:21:31 server08 steve_sip: Sip::MsgType::_initialize('Login', ...)
+# [  TIMESTAMP  ] [ HOST ] [ IDENT ]: Message...
+#
+# The IDENT is determined by $ENV{SIP_LOG_IDENT}, if present.
+# Otherwise it is "_sip" appended to $USER, if present, or "acs-server" as a fallback.
+#
+
+my $syslog_ident = $ENV{SIP_LOG_IDENT} || ($ENV{USER} ? $ENV{USER} . "_sip" : 'acs-server');
+
+push @parms,
+    "log_file=Sys::Syslog",
+    "syslog_ident=$syslog_ident",
+    "syslog_facility=" . LOG_SIP;
 
 #
 # Server Management: set parameters for the Net::Server::PreFork