From b5920fb74fe0ce472da37dc4d6402392a69d42fa Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Tue, 24 May 2011 07:04:27 +0000
Subject: logging to stdout if daemonize != yes

---
 lib/PerlDaemon/Logger.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/lib/PerlDaemon/Logger.pm b/lib/PerlDaemon/Logger.pm
index 2fecd60..41984d3 100644
--- a/lib/PerlDaemon/Logger.pm
+++ b/lib/PerlDaemon/Logger.pm
@@ -14,11 +14,14 @@ sub logmsg ($$) {
 	my ($self, $msg) = @_;
 	my $conf = $self->{conf};
 	my $logfile = $conf->{'daemon.logfile'};
+        my $logline = localtime()." (PID $$): $msg\n";
 
 	open my $fh, ">>$logfile" or die "Can't write logfile $logfile: $!\n";
-	print $fh localtime()." (PID $$): $msg\n";
+	print $fh $logline;
 	close $fh;
 
+        print $logline if $conf->{'daemon.daemonize'} ne 'yes';
+
         return undef;
 }
 
-- 
cgit v1.2.3