loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.174, 2004/02/06 05:25:16	version 1.175, 2004/02/17 20:07:25
Line 817 my $children = 0; #	Line 817 my $children = 0; #
sub REAPER { # takes care of dead children	sub REAPER { # takes care of dead children
$SIG{CHLD} = \&REAPER;	$SIG{CHLD} = \&REAPER;
&status("Handling child death");	&status("Handling child death");
my $pid = wait;	my $pid;
if (defined($children{$pid})) {	do {
&logthis("Child $pid died");	$pid = waitpid(-1,&WNOHANG());
$children --;	if (defined($children{$pid})) {
delete $children{$pid};	&logthis("Child $pid died");
} else {	$children --;
&logthis("Unknown Child $pid died");	delete $children{$pid};
}	} else {
	&logthis("Unknown Child $pid died");
	}
	} while ( $pid > 0 );
&status("Finished Handling child death");	&status("Finished Handling child death");
}	}

Line 1020 sub logstatus {	Line 1023 sub logstatus {
my $docdir=$perlvar{'lonDocRoot'};	my $docdir=$perlvar{'lonDocRoot'};
{	{
my $fh=IO::File->new(">>$docdir/lon-status/londstatus.txt");	my $fh=IO::File->new(">>$docdir/lon-status/londstatus.txt");
print $fh $$."\t".$currenthostid."\t".$status."\t".$lastlog."\n";	print $fh $$."\t".$clientname."\t".$currenthostid."\t".$status."\t".$lastlog."\n";
$fh->close();	$fh->close();
}	}
&status("Finished londstatus.txt");	&status("Finished londstatus.txt");