View Code#!/usr/bin/perl
use strict;
use POSIX qw(setsid);
# flush the buffer
$| = 1;
# daemonize the program
&daemonize;
# clean-up directory
# run pre-loop programs here or clean the logs, write initial triggers etc.
while(1) {
# run anything inside this loop

# ....... your code goes here .......

# this is main interval for daemon to sleep in seconds
sleep(10);
} ## while loop end

sub daemonize {
chdir '/' or die "Can't chdir to /: $!";
open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
open STDOUT, '>>/dev/null' or die "Can't write to /dev/null: $!";
open STDERR, '>>/dev/null' or die "Can't write to /dev/null: $!";
defined(my $pid = fork) or die "Can't fork: $!";
exit if $pid;
setsid or die "Can't start a new session: $!";
umask 0;
}

View Code#!/usr/bin/perl
open STDOUT, '>>/dev/null';

# your daemon file with full path goes here
my $program = "/daemon.cgi";
my $foundit = 0;

open (IN, "ps axw |");
while (<IN>) {
if ($_ =~ /$program/) {
print "$program was runnig\n";
$foundit = 1;
last;
}
}
close IN;
unless ($foundit) {
print "No $program was running - starting it\n";
exec "/usr/bin/perl $program";
}

exit(0);