From fd0f349f9a9554f9c2a4fa0d96604e7ac9e65b9a Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Fri, 11 Mar 2011 07:52:46 +0000
Subject: initial loopinterval and alivefile options.

---
 PerlDaemon.pl   | 10 ++++++++--
 perldaemon.conf |  2 ++
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/PerlDaemon.pl b/PerlDaemon.pl
index a6129f2..c788f3e 100644
--- a/PerlDaemon.pl
+++ b/PerlDaemon.pl
@@ -83,7 +83,7 @@ sub readconf ($) {
 	# Check
 	my $msg = 'Missing property:';
 
-	foreach (qw(wd pidfile logfile)) {
+	foreach (qw(wd loopinterval alivefile pidfile logfile)) {
 		my $key = "daemon.$_";
 		die "$msg $key\n" unless exists $conf{$key};
 	}
@@ -136,14 +136,20 @@ sub prestartup ($) {
 	checkpid $conf;
 }
 
+sub alive ($) {
+	my $conf = shift;
+}
+
 sub daemonloop ($) {
 	my $conf = shift;
 	my $dlogic = DaemonLogic->new($conf);
+	my $loopinterval = $conf->{'daemon.loopinterval'};
 
 	my $loop = shift;
 	for (my $i = 1;;++$i) {
 		$dlogic->do();
-		sleep 3;
+		sleep $loopinterval;
+		alive $conf;
 	}
 }
 
diff --git a/perldaemon.conf b/perldaemon.conf
index d066d88..efe4262 100644
--- a/perldaemon.conf
+++ b/perldaemon.conf
@@ -1,5 +1,7 @@
 # Minimal Perl Daemon Sample Configuration
 daemon.wd = ./
+daemon.loopinterval = 3
+daemon.alivefile = ./run/perldaemon.alive
 daemon.pidfile = ./run/perldaemon.pid
 daemon.logfile = ./log/perldaemon.log
 daemon.require = ./lib/require.pm
-- 
cgit v1.2.3