diff options
| -rw-r--r-- | PerlDaemon.pl | 10 | ||||
| -rw-r--r-- | 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 |