I'm building a simple daemon in perl ("ko") that fires off processes as soon as the loading on our batch server is low enough to handle them. Someday I hope to put in some custom logic that runs more at night, fewer in the day, etc.
Problem: I can launch the daemon on the irix server, but I can't logout unless I kill the daemon.
ralph% rlogin spock spock% ko Starting batch job (pid: 2885166), 24 input files found. Progress recorded in file ko.out. spock% logout
... Here it hangs until I open a new window, rlogin spock, do a "killall ko", then it drops me back to a prompt on ralph.
Any ideas? Below is the daemon code, adapted from the Perl Cookbook.
IIRC, you have to double fork and exit. You might consider using the Proc::Daemon module instead. It handles all of these steps very conveniently, or at least have a scan of the source to see if you can adapt it.
http://danconia.org
Thanks!!
- Bryan
************************************** use POSIX 'setsid'; $SIG{CHLD} = 'IGNORE'; # don't wait for children to exit
# turn myself into a daemon (background myself) $pid = fork and exit(0); defined($pid) or die "$me: Couldn't background: $!, exiting.\n"; POSIX::setsid() or die "$me: Couldn't start a new session: $!, exiting.\n"; for my $handle (*STDIN, *STDERR) { open($handle, "+<", "/dev/null") or die "$me: Can't reopen $handle to /dev/null: $!. Exiting.\n"; }
# open ko.out file for further recording $outfile = "ko.out"; open(KOFILE,">$outfile") or die "ko: Couldn't open $outfile: $!\n"; print "Starting batch job (pid: $$), $tn input files found.\n"; print "Progress recorded in file $outfile.\n"; select KOFILE; # push all STDOUT to KOFILE $| = 1; # and don't buffer it print "Starting batch job (pid: $$), $tn input files found.\n";
**************************************
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
