-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
On Tuesday 12 August 2003 11:50, Dirk Lutzebaeck wrote:
> Dennis Stout writes:
> > On a whim, I would try writing a second script to do the actual shutdown
> > and restart of Apache.
> >
> > Then have your mod_perl program either run it in the background (with a
> > &) or fork it into another process.
>
> Did exactly that but is has the effect that when the parent (root)
> apache is killed it kills all children including the script itself. So
> the server wont start again.
I have done something like this several times. My code (it works since 1998 on
a highly used WEB Server with perl5.005_3) looks like that:
...
sub sysclose {
require 'syscall.ph';
syscall &SYS_close, shift()+0;
}
sub RLIMIT_NOFILE {7;} # this is for LINUX
sub getrlimit {
require 'syscall.ph';
my $x="x"x8; # result
syscall &SYS_getrlimit, shift()+0, $x;
unpack "ii", $x;
}
sub close_fd {
my @l=getrlimit( RLIMIT_NOFILE );
my $l;
for( $l=0; $l<$l[0]; $l++ ) {
next if( $l==2 ); # close all file descriptors except of STDERR
sysclose $l;
}
}
sub disconnect_from_apache {
use POSIX qw/setsid/;
setsid;
close_fd;
}
...
my $child=fork;
unless( defined $child ) {
...
return OK;
}
if( $child ) {
my $child_status=0;
if( waitpid( $child, 0 )==$child ) {
$child_status=$?;
}
if( $child_status==0 ) {
...
return OK;
} else {
# The first fork succeeded but the second failed
...
return OK;
}
} else {
# Child process: fork again to detach from parent process
$child=fork;
CORE::exit( 0 ) if( $child ); # parent exits
unless( defined $child ) {
...
CORE::exit( 1 );
}
# Now we are the 2nd child process.
$self->disconnect_from_apache;
$self->doit( ... ); # <== here comes the real code
CORE::exit( 0 );
}
...
$self->doit() is called in a separate process group and is not killed by a
signal sent to the apache process group. Further, all files save STDERR are
closed. This is needed since the code runs under mod_perl and the long
running child process inherits the open connection to the browser. If this
connection is not closed the browser shows an endless spinning globe or
something like that in the upper right corner.
Torsten
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)
iD8DBQE/OSIAwicyCTir8T4RAv3RAKCXdpbHLQepeOZFCyXt1KkMVGnwPgCeNu7X
hlC1NSEv0NsA7LlM7lol7wI=
=xId6
-----END PGP SIGNATURE-----
