loncom/lonr - diff

Return to lonr CVS log

Up to [LON-CAPA] / loncom

version 1.4, 2009/04/18 16:03:14	version 1.7, 2014/10/30 19:09:06
Line 269 sub make_new_child {	Line 269 sub make_new_child {
};	};

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

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);	&sync($command);
# print $command ("display2d:false;simp:true;kill(all);\n");	print $command ("library(phpSerialize);\n");
# &getroutput($command,2);	&getroutput($command);
# &sync($command);	&sync($command);
my $syntaxerr = 0;	my $syntaxerr = 0;
while (my $cmd=<$client>) {	while (my $cmd=<$client>) {
&status('Processing command');	&status('Processing command');
Line 329 sub make_new_child {	Line 329 sub make_new_child {

sub getroutput {	sub getroutput {
my ($command)=@_;	my ($command)=@_;
my $regexp = '>';	my $regexp = '>\s+$';
my $syntaxerr=0;	my $syntaxerr=0;
my $timeout = 20;	my $timeout = 20;
my (undef,$error,$matched,$output) =	my (undef,$error,$matched,$output) =