added Logger::warn

2 files changed, 21 insertions, 3 deletions

diff --git a/lib/PerlDaemon/Logger.pm b/lib/PerlDaemon/Logger.pm
index fccc274..2fecd60 100644
--- a/lib/PerlDaemon/Logger.pm
+++ b/lib/PerlDaemon/Logger.pm
@@ -18,6 +18,8 @@ sub logmsg ($$) {
 	open my $fh, ">>$logfile" or die "Can't write logfile $logfile: $!\n";
 	print $fh localtime()." (PID $$): $msg\n";
 	close $fh;
+
+        return undef;
 }
 
 sub err ($$) {
@@ -26,6 +28,13 @@ sub err ($$) {
 	die "$msg\n";
 }
 
+sub warn ($$) {
+	my ($self, $msg) = @_;
+	$self->logmsg("WARNING: $msg");
+
+        return undef;
+}
+
 sub rotatelog ($) {
 	my $self = shift;
 	my $conf = $self->{conf};
@@ -35,6 +44,8 @@ sub rotatelog ($) {
 
 	my $timestr = strftime "%Y%m%d-%H%M%S", localtime();
 	mv($logfile, "$logfile.$timestr");	
+
+        return undef;
 }
 
 1;
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;