sktemkar
New User
Feb 10, 2011, 9:27 PM
Post #1 of 3
(3100 views)
|
|
Perl daemon exiting without warning
|
Can't Post
|
|
hi, I have written a daemon example. But i dont know why it is not running. When i debugged using print statment, it is exiting after the (open STDIN, '/dev/null' or die "Can't read /dev/null: $!";) statement in the daemonize method. Can you please help me
#!/usr/bin/perl
# daemonize the program
&daemonize;
$| = 1;
while(1)
{ print "\nIn the While\n";
open(MYFILE,'>>temp.txt');
print MYFILE "Hello Sri\n";
close(MYFILE);
}
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;
}
|
MAIN
SEARCH
WHO'S 
LOG 