loncom/lonmaxima - diff

Return to lonmaxima CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/lonmaxima between versions 1.35 and 1.37

version 1.35, 2007/11/09 18:51:10	version 1.37, 2008/02/14 14:09:43
Line 134 sub catchexception {	Line 134 sub catchexception {

sub child_announce_death {	sub child_announce_death {
$SIG{USR1} = \&child_announce_death;	$SIG{USR1} = \&child_announce_death;
$extra_children++;	if ($extra_children < $PREFORK*10) {
	$extra_children++;
	}
}	}

# ---------------------------------------------------------------- Main program	# ---------------------------------------------------------------- Main program
Line 268 sub make_new_child {	Line 270 sub make_new_child {

$command->log_stdout(0);	$command->log_stdout(0);
#$command->log_file("$execdir/logs/lonmaxima.session.log");	#$command->log_file("$execdir/logs/lonmaxima.session.log");
&sync($command);

for (my $i=0; $i < $MAX_CLIENTS_PER_CHILD; $i++) {	for (my $i=0; $i < $MAX_CLIENTS_PER_CHILD; $i++) {
&status('Accepting connections');	&status('Accepting connections');
my $client = $server->accept() or last;	my $client = $server->accept() or last;
	&sync($command);
print $command ("display2d:false;kill(all);\n");	print $command ("display2d:false;kill(all);\n");
&getmaximaoutput($command,2);	&getmaximaoutput($command,2);
&sync($command);	&sync($command);
Line 299 sub make_new_child {	Line 301 sub make_new_child {
kill('USR1' => $ppid);	kill('USR1' => $ppid);
print $command ("quit();\n");	print $command ("quit();\n");
# tidy up gracefully and finish	# tidy up gracefully and finish
	sleep(15);
$command->soft_close();	$command->soft_close();

# this exit is VERY important, otherwise the child will become	# this exit is VERY important, otherwise the child will become

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.35
changed lines
	Added in v.1.37