RE: SUMMARY: Process goes down

> -----Original Message-----
> From: sunmanagers-bounces@sunmanagers.org >
> Russel send me a perl script that should do the trick but i
> didn't try it yet.

Looks like some of the formatting was lost. Here is the
script with comments following it. FYI, this is slightly
modified code from a script used in production.

#!/usr/bin/perl
use IO::Socket;
use POSIX qw(WNOHANG setsid);
$SIG{CHLD} = 'IGNORE';
die "Can't fork" unless defined ( my $child = fork );
CORE::exit(0) if $child;
setsid();
open( STDIN,  "</dev/null" );
open( STDOUT, ">/dev/null" );
open( STDERR, ">&STDOUT"   );
chdir '/tmp';
umask(0);
$ENV{PATH} = '/bin:/sbin:/usr/sbin';
exec "your command here";
=pod
01: shebang
02: use a module
03: use a module
04: Configure to autoreap zombies
05: fork
06: Parent exits
07: Become session leader
08: Detach STDIN from shell
09: Detach STDOUT from shell
10: Detach STDERR from shell
11: Change working directory
12: Reset umask
13: Reset PATH
14: Execute you command
=cut

-- Russ
_______________________________________________
sunmanagers mailing list
sunmanagers@sunmanagers.org
http://www.sunmanagers.org/mailman/listinfo/sunmanagers