give reasonably unique default for service name
authormiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Thu, 1 Dec 2005 23:09:57 +0000 (23:09 +0000)
committermiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Thu, 1 Dec 2005 23:09:57 +0000 (23:09 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@596 9efc2488-bf62-4759-914b-345cdb29e865

src/perlmods/OpenSRF/Utils/Logger.pm

index 607b65d..b4fe88d 100644 (file)
@@ -33,7 +33,7 @@ my $logfile;                                          # log file
 my $facility;                                          # syslog facility
 my $actfac;                                                    # activity log syslog facility
 my $actfile;                                           # activity log file
-my $service = "osrf";                  # default service name
+my $service = $0;                      # default service name
 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?