r23622 - /scripts/KGB/server/KGB

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Jul 27 11:29:16 2008
New Revision: 23622

URL: http://svn.debian.org/wsvn/?sc=1&rev=23622
Log:
server: Add support for a PID file

This is (1) a measure to avoid running it twice and
(2) a way to leave a trace somewhere so that someone
(an init.d script) can stop the daemon

Modified:
    scripts/KGB/server/KGB

Modified: scripts/KGB/server/KGB
URL: http://svn.debian.org/wsvn/scripts/KGB/server/KGB?rev=23622&op=diff
==============================================================================
--- scripts/KGB/server/KGB (original)
+++ scripts/KGB/server/KGB Sun Jul 27 11:29:16 2008
@@ -31,6 +31,7 @@
 use List::Util qw(max);
 use YAML ();
 use Digest::SHA1 qw(sha1_hex);
+use Proc::PID::File;
 
 my $conf = YAML::LoadFile("kgb.conf") or die "Error loading config";
 
@@ -73,6 +74,12 @@
     0..$#{$conf->{channels}});
 $conf->{chanidx} = \%chanidx;
 
+die "Already running\n"
+    if Proc::PID::File->running(
+	verify	=> 1,
+	dir	=> $conf->{pid_dir},
+    );
+    
 POE::Component::Server::SOAP->new(
     ALIAS   => "SOAPServer",
     ADDRESS => $conf->{soap}{server_addr},