Daemonize using Proc::Daemon (not Proc::Fork which only, well, forks).

1 files changed, 5 insertions, 21 deletions

diff --git a/localmarkdown2sms b/localmarkdown2sms
index 355f4d3..a5a78d4 100755
--- a/localmarkdown2sms
+++ b/localmarkdown2sms
@@ -28,10 +28,12 @@ use Log::Log4perl qw(:easy);
 use File::Spec;
 use File::Slurp;
 use Time::Duration::Parse;
-use Proc::Fork;
 use Encode;
 use LWP::UserAgent;
 use URI::Escape;
+use Proc::Daemon;
+
+Proc::Daemon::Init;
 
 my $sms_url = $ENV{SMS_URL} || "http://localhost:13013/cgi-bin/sendsms";
 my $sms_user = $ENV{SMS_USER} || "tester";
@@ -181,12 +183,6 @@ if (0 == $num_children) {
 	exit;
 }
 
-if (0 == $num_children) {
-}
-
-$SIG{CHLD} = 'IGNORE';   # Don't worry about reaping zombies
-
-# Spawn off some children
 if ($debug) {
 	DEBUG "queueing $num_children replies:";
 	for my $num ( 0 .. $num_children - 1 ) {
@@ -195,20 +191,8 @@ if ($debug) {
 #	DEBUG "\n";
 }
 for my $num ( 0 .. $num_children - 1 ) {
-
-	run_fork {
-		child {
-			sleep($delay{$key}[$num]) unless ($nosleep);
-			&sendmsg($phone, "reply #$num [" . $delay{$key}[$num] . "s]", $reply{$key}[$num]);
-			exit;
-		}
-		parent {
-			if ($debug) {
-				my $child_pid = shift;
-				waitpid $child_pid, 0;
-			}
-		}
-	}
+	sleep($delay{$key}[$num]) unless ($nosleep);
+	&sendmsg($phone, "reply #$num [" . $delay{$key}[$num] . "s]", $reply{$key}[$num]);
 }
 
 1;