diff options
Diffstat (limited to 'lib/PerlDaemon')
| -rw-r--r-- | lib/PerlDaemon/PerlDaemon.pl | 8 | ||||
| -rw-r--r-- | lib/PerlDaemon/RunModules.pm | 2 |
2 files changed, 5 insertions, 5 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; } } diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm index 8caf858..f03a540 100644 --- a/lib/PerlDaemon/RunModules.pm +++ b/lib/PerlDaemon/RunModules.pm @@ -36,7 +36,7 @@ sub new ($$) { $scheduler{$name}{lastrun} = [0,0]; $scheduler{$name}{carrysum} = 0; $scheduler{$name}{firstloop} = 1; - $scheduler{$name}{interval} = $conf->{'daemon.modules.runinterval'}; + $scheduler{$name}{interval} = $conf->{'daemon.interval'}; $logger->logmsg("Created module instance $name"); } } |