loncom/lonmaxima - diff

Return to lonmaxima CVS log

Up to [LON-CAPA] / loncom

version 1.18, 2006/05/10 01:08:01	version 1.22, 2006/12/19 17:44:16
Line 31	Line 31
#	#

use Expect;	use Expect;
use IPC::Open3;
use IO::Select;	use IO::Select;
use IO::Socket;	use IO::Socket;
use IO::File;	use IO::File;
Line 254 sub make_new_child {	Line 253 sub make_new_child {
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;
print $command "kill(all);reset();\n";	print $command "kill(all);\n";
&getmaximaoutput($command);	&getmaximaoutput($command);
	&sync($command);
while (my $cmd=<$client>) {	while (my $cmd=<$client>) {
&status('Processing command');	&status('Processing command');
&sync($command);
print $command &unescape($cmd);	print $command &unescape($cmd);
my $reply=&getmaximaoutput($command);	my $reply=&getmaximaoutput($command);
print $client &escape($reply)."\n";	print $client &escape($reply)."\n";
Line 267 sub make_new_child {	Line 266 sub make_new_child {
$client->close();	$client->close();
$command->hard_close();	$command->hard_close();
exit;	exit;
}	}
	&sync($command);
&status('Waiting for commands');	&status('Waiting for commands');
}	}
}	}