From 09162292b1c987140974fe8a2177ad7deffc12e3 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 25 Sep 2008 03:13:23 +0000
Subject: [PATCH] make sure service is not already running

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1441 9efc2488-bf62-4759-914b-345cdb29e865
---
 bin/opensrf-perl.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/bin/opensrf-perl.pl b/bin/opensrf-perl.pl
index 628c5b8..91e2f15 100755
--- a/bin/opensrf-perl.pl
+++ b/bin/opensrf-perl.pl
@@ -100,6 +100,11 @@ sub do_init {
 # 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;
-- 
2.43.2