From 820ebd0664b2af1e6fe8c2be41edba44bb1c5f77 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Thu, 17 Mar 2011 08:00:25 +0000 Subject: renamed DaemonLogic into RunModule --- CHANGELOG | 3 +++ DaemonLogic.pm | 17 ----------------- PerlDaemon.pl | 6 +++--- RunModule.pm | 17 +++++++++++++++++ 4 files changed, 23 insertions(+), 20 deletions(-) delete mode 100644 DaemonLogic.pm create mode 100644 RunModule.pm diff --git a/CHANGELOG b/CHANGELOG index d115ec6..b948e8b 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -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/DaemonLogic.pm b/DaemonLogic.pm deleted file mode 100644 index 49583ed..0000000 --- a/DaemonLogic.pm +++ /dev/null @@ -1,17 +0,0 @@ -package DaemonLogic; - -sub new ($$$) { - my ($class, $conf) = @_; - - return bless { conf => $conf }, $class; -} - -sub do ($) { - my $self = shift; - my $conf = $self->{conf}; - my $logger = $conf->{logger}; - - $logger->logmsg('Test'); -} - -1; 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/RunModule.pm b/RunModule.pm new file mode 100644 index 0000000..a063faa --- /dev/null +++ b/RunModule.pm @@ -0,0 +1,17 @@ +package RunModule; + +sub new ($$$) { + my ($class, $conf) = @_; + + return bless { conf => $conf }, $class; +} + +sub do ($) { + my $self = shift; + my $conf = $self->{conf}; + my $logger = $conf->{logger}; + + $logger->logmsg('Test'); +} + +1; -- cgit v1.2.3