From e95d965bc0d4dbf85193953af1e2f498b8a7b0a7 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Fri, 13 May 2011 15:19:28 +0000 Subject: ExampleModule.pm works --- lib/PerlDaemon/RunModules.pm | 24 ++++++++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) (limited to 'lib/PerlDaemon/RunModules.pm') diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm index 0dcd3d7..f031af4 100644 --- a/lib/PerlDaemon/RunModules.pm +++ b/lib/PerlDaemon/RunModules.pm @@ -7,14 +7,26 @@ sub new ($$$) { my $modulesdir = $conf->{'daemon.modulesdir'}; my $logger = $conf->{logger}; + my %loadedmodules; if (-d $modulesdir) { - $logger->logmsg("Loading modules from $modulesdir"); + $logger->logmsg("Loading modules from $modulesdir"); + for my $module (<$modulesdir/*.pm>) { + $logger->logmsg("Loading $module"); + require $module; + } + + for my $name (grep /PerlDaemonModules/, keys %INC) { + $name =~ s#.*(PerlDaemonModules)/(.*)\.pm$#$1::$2#; + $logger->logmsg("Creating module instance of $name"); + $loadedmodules{$name} = eval "${name}->new(\$conf)"; + } } else { $logger->warn("Modules dir $modulesdir does not exist!"); } + $conf->{modules} = \%loadedmodules; return $self; } @@ -22,8 +34,16 @@ sub do ($) { my $self = shift; my $conf = $self->{conf}; my $logger = $conf->{logger}; + my $modules = $conf->{modules}; - $logger->warn("No modules are loaded!"); + unless (%$modules) { + $logger->warn("No modules are loaded!"); + } else { + while (my ($k, $v) = each %$modules) { + $logger->logmsg("Triggering $k"); + $v->do(); + } + } } 1; -- cgit v1.2.3