make sure service is not already running

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1441 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/bin/opensrf-perl.pl b/bin/opensrf-perl.pl
index 628c5b8..91e2f15 100755 (executable)
--- 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;