LP#1343578: Perl/C syslog "logtag" additions.

[opensrf-equinox.git] / src / perl / lib / OpenSRF / Utils / Logger.pm

diff --git a/src/perl/lib/OpenSRF/Utils/Logger.pm b/src/perl/lib/OpenSRF/Utils/Logger.pm
index 77c8593..4798812 100644 (file)
--- a/src/perl/lib/OpenSRF/Utils/Logger.pm
+++ b/src/perl/lib/OpenSRF/Utils/Logger.pm
@@ -34,8 +34,8 @@ my $logfile;            # log file
 my $facility;           # syslog facility
 my $actfac;             # activity log syslog facility
 my $actfile;            # activity log file
-my $service = $0;       # default service name
-my $service_tag = '';       # default service name
+my $service;            # syslog service name.  default provided below.
+my $service_tag = '';   # default service tag
 my $syslog_enabled = 0; # is syslog enabled?
 my $act_syslog_enabled = 0; # is syslog enabled?
 my $logfile_enabled = 1;    # are we logging to a file?
@@ -236,6 +236,9 @@ sub _log_message {
     my( $msg, $level ) = @_;
     return if $level > $loglevel;
 
+    # apply a sane default service name/tag
+    $logger->set_service($0) unless $service;
+
     my $l; my $n; 
     my $fac = $facility;