unify interval param

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");
       }
     }