loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.284, 2002/09/17 19:45:11	version 1.285, 2002/09/17 21:19:19
Line 358 sub overloaderror {	Line 358 sub overloaderror {
my $loadfile=Apache::File->new('/proc/loadavg');	my $loadfile=Apache::File->new('/proc/loadavg');
$loadavg=<$loadfile>;	$loadavg=<$loadfile>;
$loadavg =~ s/\s.*//g;	$loadavg =~ s/\s.*//g;
	$loadavg = 100*$loadavg/$perlvar{'lonLoadLim'};
} else {	} else {
$loadavg=&reply('load',$checkserver);	$loadavg=&reply('load',$checkserver);
}	}
my $overload=$loadavg-$perlvar{'lonLoadLim'};	my $overload=$loadavg-100;
if ($overload>0) {	if ($overload>0) {
$r->err_headers_out->{'Retry-After'}=$overload*30;	$r->err_headers_out->{'Retry-After'}=$overload;
$r->log_error('Overload of '.$overload.' on '.$checkserver);	$r->log_error('Overload of '.$overload.' on '.$checkserver);
return 413;	return 413;
}	}