From de172f7b7af3261e8758d9b597abd5f2379ca9f8 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Fri, 13 May 2011 14:25:40 +0000
Subject: added Logger::warn

---
 lib/PerlDaemon/RunModules.pm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'lib/PerlDaemon/RunModules.pm')

diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm
index e806ca1..ca9ddf9 100644
--- a/lib/PerlDaemon/RunModules.pm
+++ b/lib/PerlDaemon/RunModules.pm
@@ -3,15 +3,22 @@ package PerlDaemon::RunModules;
 sub new ($$$) {
 	my ($class, $conf) = @_;
 
-	return bless { conf => $conf }, $class;
+	my $self = bless { conf => $conf }, $class;
+
+	my $modulesdir = $conf->{'daemon.modulesdir'};
+	my $logger = $conf->{logger};
+
+        if (-d $modulesdir) {
+                $logger->logmsg("Loading modules from $modulesdir");        
+        }
+
+        return $self;
 }
 
 sub do ($) {
 	my $self = shift;
 	my $conf = $self->{conf};
 	my $logger = $conf->{logger};
-
-	$logger->logmsg('Test');
 }
 
 1;
-- 
cgit v1.2.3