version 1.12, 2003/07/02 01:12:35
|
version 1.13, 2003/07/02 01:31:55
|
Line 46
|
Line 46
|
|
|
# Change log: |
# Change log: |
# $Log$ |
# $Log$ |
# Revision 1.12 2003/07/02 01:12:35 foxr |
# Revision 1.13 2003/07/02 01:31:55 foxr |
# - Add some debugging to killthemall |
# Added kill -HUP logic (restart). |
# - Add better error handling to LondReadable |
|
# - Remove tick logging in the timer handler. |
|
# |
# |
# Revision 1.11 2003/06/25 01:54:44 foxr |
# Revision 1.11 2003/06/25 01:54:44 foxr |
# Fix more problems with transaction failure. |
# Fix more problems with transaction failure. |
Line 1434 ShowStatus("Parent keeping the flock");
|
Line 1432 ShowStatus("Parent keeping the flock");
|
|
|
$SIG{INT} = \&KillThemAll; |
$SIG{INT} = \&KillThemAll; |
$SIG{TERM} = \&KillThemAll; |
$SIG{TERM} = \&KillThemAll; |
|
$SIG{HUP} = \&Restart; |
|
|
while(1) { |
while(1) { |
$deadchild = wait(); |
$deadchild = wait(); |
Line 1449 while(1) {
|
Line 1447 while(1) {
|
} |
} |
|
|
=pod |
=pod |
|
|
|
=head1 Restart |
|
|
|
Signal handler for HUP... all children are killed and |
|
we self restart. This is an el-cheapo way to re read |
|
the config file. |
|
|
|
=cut |
|
|
|
sub Restart { |
|
KillThemAll; # First kill all the children. |
|
Log("CRITICAL", "Restarting"); |
|
my $execdir = $perlvar{'lonDaemons'}; |
|
unlink("$execdir/logs/lonc.pid"); |
|
exec("$execdir/lonc"); |
|
} |
|
|
|
=pod |
|
|
=head1 KillThemAll |
=head1 KillThemAll |
|
|