version 1.148, 2003/09/29 10:09:18
|
version 1.150, 2003/09/30 10:16:06
|
Line 60
|
Line 60
|
# 09/08/2003 Ron Fox: Told lond to take care of change logging so we |
# 09/08/2003 Ron Fox: Told lond to take care of change logging so we |
# don't have to remember it: |
# don't have to remember it: |
# $Log$ |
# $Log$ |
|
# Revision 1.150 2003/09/30 10:16:06 foxr |
|
# Added invocation of apachereload in ReloadApache sub. |
|
# This completes the addtion of the reinit functionality. |
|
# |
|
# Revision 1.149 2003/09/30 09:44:13 foxr |
|
# Tested UpdateHosts ability to |
|
# - Remove live children for hosts that are no longer in the hosts.tab |
|
# - Remove live children for hosts whose IPs have changed in the hosts.tab |
|
# |
# Revision 1.148 2003/09/29 10:09:18 foxr |
# Revision 1.148 2003/09/29 10:09:18 foxr |
# Put in logic to reinit lond itself (except for apache reload). I don't believe |
# Put in logic to reinit lond itself (except for apache reload). I don't believe |
# this logic works correctly yet, however lond still does everything it used to doso I'll do the commit anyway. |
# this logic works correctly yet, however lond still does everything it used to doso I'll do the commit anyway. |
Line 583 sub ReadHostTable {
|
Line 592 sub ReadHostTable {
|
} |
} |
# |
# |
# Reload the Apache daemon's state. |
# Reload the Apache daemon's state. |
|
# This is done by invoking /home/httpd/perl/apachereload |
|
# a setuid perl script that can be root for us to do this job. |
# |
# |
sub ReloadApache { |
sub ReloadApache { |
|
my $execdir = $perlvar{'lonDaemons'}; |
|
my $script = $execdir."/apachereload"; |
|
system($script); |
} |
} |
|
|
# |
# |
Line 613 sub UpdateHosts {
|
Line 627 sub UpdateHosts {
|
foreach my $child (keys %children) { |
foreach my $child (keys %children) { |
my $childip = $children{$child}; |
my $childip = $children{$child}; |
if(!$hostid{$childip}) { |
if(!$hostid{$childip}) { |
|
logthis('<font color="blue"> UpdateHosts killing child ' |
|
." $child for ip $childip </font>"); |
kill('INT', $child); |
kill('INT', $child); |
|
} else { |
|
logthis('<font color="green"> keeping child for ip ' |
|
." $childip (pid=$child) </font>"); |
} |
} |
} |
} |
ReloadApache; |
ReloadApache; |