loncom/lonmaxima - diff

Return to lonmaxima CVS log

Up to [LON-CAPA] / loncom

version 1.19, 2006/05/10 02:12:17	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);
&sync($command);	&sync($command);
while (my $cmd=<$client>) {	while (my $cmd=<$client>) {
&status('Processing command');	&status('Processing command');