loncom/lonr - diff

Return to lonr CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/lonr between versions 1.3 and 1.6

version 1.3, 2009/04/17 01:00:10	version 1.6, 2009/06/23 03:01:09
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 316 sub make_new_child {	Line 316 sub make_new_child {
sub sync {	sub sync {
my ($command)=@_;	my ($command)=@_;
$counter++;	$counter++;
my $expect=$counter.time;	my $expect=$counter;
print $command "$expect;\n";	print $command "$expect;\n";
while (1) {	while (1) {
my $output=&getroutput($command);	my $output=&getroutput($command);
Line 352 sub getroutput {	Line 352 sub getroutput {
foreach my $line (split(/\n/,$output)) {	foreach my $line (split(/\n/,$output)) {
$line=~s/\s$//gs;	$line=~s/\s$//gs;
if ($line=~/^Error\:/) { $syntaxerr=1; next; }	if ($line=~/^Error\:/) { $syntaxerr=1; next; }
if (my ($result)=($line=~/^\[\d+\,\]\s(.*)/)) { $realoutput.=$result."\n"; }	if (my ($result)=($line=~/^\[?\d+\,\]?\s(.*)/)) { $realoutput.=$result."\n"; }
}	}
if (wantarray) {	if (wantarray) {
return ($realoutput,$syntaxerr);	return ($realoutput,$syntaxerr);

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

Removed from v.1.3
changed lines
	Added in v.1.6