diff options
| author | Paul Buetow <paul@buetow.org> | 2011-03-17 08:00:25 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-03-17 08:00:25 +0000 |
| commit | 820ebd0664b2af1e6fe8c2be41edba44bb1c5f77 (patch) | |
| tree | eca1843b175aabc51f5c00d26a7ec36000ae6e65 | |
| parent | 405b32d3ddaa8c62ee5b3ece0b4b1b432f26ad6c (diff) | |
renamed DaemonLogic into RunModule
| -rw-r--r-- | CHANGELOG | 3 | ||||
| -rw-r--r-- | PerlDaemon.pl | 6 | ||||
| -rw-r--r-- | RunModule.pm (renamed from DaemonLogic.pm) | 2 |
3 files changed, 7 insertions, 4 deletions
@@ -1,3 +1,6 @@ +Do 17. Mär 08:58:18 CET 2011 +* Renamed DaemonLogic into RunModule + Fr 11. Mär 08:54:39 CET 2011 * New property: daemon.loopinterval diff --git a/PerlDaemon.pl b/PerlDaemon.pl index c788f3e..4e8ec3a 100644 --- a/PerlDaemon.pl +++ b/PerlDaemon.pl @@ -9,7 +9,7 @@ use Shell qw(mv); use POSIX qw(setsid strftime); use Logger; -use DaemonLogic; +use RunModule; $| = 1; @@ -142,12 +142,12 @@ sub alive ($) { sub daemonloop ($) { my $conf = shift; - my $dlogic = DaemonLogic->new($conf); + my $rmodule = RunModule->new($conf); my $loopinterval = $conf->{'daemon.loopinterval'}; my $loop = shift; for (my $i = 1;;++$i) { - $dlogic->do(); + $rmodule->do(); sleep $loopinterval; alive $conf; } diff --git a/DaemonLogic.pm b/RunModule.pm index 49583ed..a063faa 100644 --- a/DaemonLogic.pm +++ b/RunModule.pm @@ -1,4 +1,4 @@ -package DaemonLogic; +package RunModule; sub new ($$$) { my ($class, $conf) = @_; |
