make sure service is not already running
authorerickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Thu, 25 Sep 2008 03:13:23 +0000 (03:13 +0000)
committererickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Thu, 25 Sep 2008 03:13:23 +0000 (03:13 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1441 9efc2488-bf62-4759-914b-345cdb29e865

bin/opensrf-perl.pl

index 628c5b8..91e2f15 100755 (executable)
@@ -100,6 +100,11 @@ sub do_init {
 # start a specific service
 sub do_start {
     my $service = shift;
 # 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;
     load_settings() if $service eq 'opensrf.settings';
 
     my $sclient = OpenSRF::Utils::SettingsClient->new;