loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

version 1.84, 2007/04/11 16:20:26	version 1.85, 2007/05/01 01:04:23
Line 2149 SIGHUP. Responds to sigint and sigterm.	Line 2149 SIGHUP. Responds to sigint and sigterm.

sub KillThemAll {	sub KillThemAll {
Debug(2, "Kill them all!!");	Debug(2, "Kill them all!!");
local($SIG{CHLD}) = 'IGNORE'; # Our children >will< die.
foreach my $pid (keys %ChildPid) {	#local($SIG{CHLD}) = 'IGNORE';
	# Our children >will< die.
	# but we need to catch their death and cleanup after them in case this is
	# a restart set of kills
	my @allpids = keys(%ChildPid);
	foreach my $pid (@allpids) {
my $serving = $ChildPid{$pid};	my $serving = $ChildPid{$pid};
ShowStatus("Nicely Killing lonc for $serving pid = $pid");	ShowStatus("Nicely Killing lonc for $serving pid = $pid");
Log("CRITICAL", "Nicely Killing lonc for $serving pid = $pid");	Log("CRITICAL", "Nicely Killing lonc for $serving pid = $pid");
kill 'QUIT' => $pid;	kill 'QUIT' => $pid;
}	}
	ShowStatus("Finished killing child processes off.");
}	}