diff options
Diffstat (limited to 'lib/PerlDaemon/PerlDaemon.pl')
| -rw-r--r-- | lib/PerlDaemon/PerlDaemon.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/PerlDaemon/PerlDaemon.pl b/lib/PerlDaemon/PerlDaemon.pl index 3f5765a..215b9a5 100644 --- a/lib/PerlDaemon/PerlDaemon.pl +++ b/lib/PerlDaemon/PerlDaemon.pl @@ -93,7 +93,7 @@ sub readconf ($%) { # Check my $msg = 'Missing property:'; - foreach (qw(wd loopinterval alivefile pidfile logfile daemonize)) { + foreach (qw(wd interval alivefile pidfile logfile daemonize)) { my $key = "daemon.$_"; die "$msg $key\n" unless exists $conf{$key}; } @@ -154,7 +154,7 @@ sub alive ($) { sub daemonloop ($) { my $conf = shift; my $rmodule = PerlDaemon::RunModules->new($conf); - my $loopinterval = $conf->{'daemon.loopinterval'}; + my $interval = $conf->{'daemon.interval'}; my $loop = shift; my $lastrun = [0,0]; @@ -163,13 +163,13 @@ sub daemonloop ($) { my $now = [gettimeofday]; my $timediff = tv_interval($lastrun, $now); - if ($timediff >= $loopinterval) { + if ($timediff >= $interval) { $lastrun = $now; $rmodule->do(); alive $conf; } - sleep $loopinterval / 10; + sleep $interval / 10; } } |
