From edc83a6f9f200fbca7c97531e5c398ca254dce67 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 5 Feb 2011 15:55:28 +0000
Subject:

---
 perldaemon.conf |  3 ++-
 perldaemon.pl   | 44 ++++++++++++++++++++++++++++++++++++--------
 start.sh        |  3 +++
 3 files changed, 41 insertions(+), 9 deletions(-)
 create mode 100755 start.sh

diff --git a/perldaemon.conf b/perldaemon.conf
index e780313..cf036f6 100644
--- a/perldaemon.conf
+++ b/perldaemon.conf
@@ -1,3 +1,4 @@
 # Minimal Perl Daemon Sample Configuration
 daemon.wd = ./
-daemon.pidfile = ./run/perldaemon.pid
+daemon.pidfile = ./perldaemon.pid
+daemon.logfile = ./perldaemon.log
diff --git a/perldaemon.pl b/perldaemon.pl
index 858465a..b19bc43 100644
--- a/perldaemon.pl
+++ b/perldaemon.pl
@@ -18,6 +18,21 @@ sub trimstr (@) {
 	return @str;
 }
 
+sub logmsg ($$) {
+	my ($config, $msg) = @_;
+	my $logfile = $config->{logfile};
+
+	open my $fh, ">>$logfile" or die "Can't write logfile: $!\n";
+	print $fh localtime().": $msg\n";
+	close $fh;
+}
+
+sub err ($$) {
+	my ($config, $msg) = @_;
+	logmsg $config => $msg;	
+	die "$msg\n";
+}
+
 sub readconfig ($) {
 	my $configfile = shift;
 
@@ -34,32 +49,44 @@ sub readconfig ($) {
 		$config{$key} = $val;	
 	}
 
+	close $fh;
+
 	# Check
 	my $msg = 'Missing property:';
 
-	foreach (qw(wd pidfile)) {
+	foreach (qw(wd pidfile logfile)) {
 		my $key = "daemon.$_";
 		die "$msg $key\n" unless exists $config{$key};
 	}
 
+	logmsg \%config => "Reading $configfile complete";
 	return \%config;
 }
 
 sub daemonize ($) {
 	my $config = shift;
+	logmsg $config => 'Daemonizing...';
 
-	chdir $config->{wd} or die "Can't chdir to wd: $!\n";
+	chdir $config->{wd} or err $config => "Can't chdir to wd: $!";
 
 	my $msg = 'Can\'t read /dev/null:';
 
-	open STDIN, '>/dev/null' or die "$msg $!\n";
-	open STDOUT, '>/dev/null' or die "$msg $!\n";
-	open STDERR, '>/dev/null' or die "$msg $!\n";
+	open STDIN, '>/dev/null' or err $config => "$msg $!";
+	open STDOUT, '>/dev/null' or err $config => "$msg $!";
+	open STDERR, '>/dev/null' or err $config => "$msg $!";
 
-	defined (my $pid = fork) or die "Can't fork: $!\n";	
+	defined (my $pid = fork) or err $config => "Can't fork: $!";	
 	exit if $pid;
 	
-	setsid or die "Can't start a new session: $!\n";
+	setsid or err $config => "Can't start a new session: $!";
+
+	my $pidfile = $config->{pidfile};
+
+	open my $fh, ">$pidfile" or err $config => "Can't write pidfile: $!";
+	print $fh $$;
+	close $fh;
+
+	logmsg $config => 'Daemonizing completed';
 }
 
 sub signals ($) {
@@ -70,13 +97,14 @@ sub daemonloop ($) {
 	my $config = shift;
 
 	for (;;) {
+		logmsg $config => 'Hello';
 		sleep 1;
 	}
 }
 
 my $config = readconfig shift;
 
-#daemonize $config;
+daemonize $config;
 signals $config;
 daemonloop $config;
 
diff --git a/start.sh b/start.sh
new file mode 100755
index 0000000..30b7e31
--- /dev/null
+++ b/start.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl perldaemon.pl perldaemon.conf
-- 
cgit v1.2.3