[Opensrf-commits] r1441 - trunk/bin

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-24 23:13:23 -0400 (Wed, 24 Sep 2008)
New Revision: 1441

Modified:
   trunk/bin/opensrf-perl.pl
Log:
make sure service is not already running

Modified: trunk/bin/opensrf-perl.pl
===================================================================
--- trunk/bin/opensrf-perl.pl	2008-09-25 03:12:50 UTC (rev 1440)
+++ trunk/bin/opensrf-perl.pl	2008-09-25 03:13:23 UTC (rev 1441)
@@ -100,6 +100,11 @@
 # start a specific service
 sub do_start {
     my $service = shift;
+    if(-e get_pid_file($service)) {
+        msg("$service is already running");
+        return;
+    }
+
     load_settings() if $service eq 'opensrf.settings';
 
     my $sclient = OpenSRF::Utils::SettingsClient->new;