#!/usr/local/bin/perl -w
use Proc::Daemon;

use strict;

my $root = "/temp";
my $time_to_die = 0;

sub signal_handler
{
	$time_to_die = 1;
}

sub phoenix
{
	my $me = "$root/minidaemon.pl";
	logMessage("I'm about to refork by running '$me'!");
	my $ret = system($me);
	if ($ret)
	{
		logMessage("Should have run system($me), but which returned $ret: $?, carrying on");
	}
	else
	{
		exit(0);
	}
}

sub logMessage
{
	my $message = shift;
	local $| = 1;
	open(FILE_HANDLE, ">>$root/daemon.out") or die("log file open failed: $!");
	print FILE_HANDLE "$$ : $message\n" ;
	close(FILE_HANDLE);
	
}

Proc::Daemon::Init;
$SIG{INT} = $SIG{TERM} = \&signal_handler;
$SIG{HUP} = \&phoenix;
while (!$time_to_die)
{
	sleep(1);
	logMessage("hello");
}
logMessage("died");