loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.283, 2002/09/16 20:09:47	version 1.284, 2002/09/17 19:45:11
Line 373 sub overloaderror {	Line 373 sub overloaderror {
# ------------------------------ Find server with least workload from spare.tab	# ------------------------------ Find server with least workload from spare.tab

sub spareserver {	sub spareserver {
	my $loadpercent = shift;
my $tryserver;	my $tryserver;
my $spareserver='';	my $spareserver='';
my $lowestserver=100;	my $lowestserver=$loadpercent;
foreach $tryserver (keys %spareid) {	foreach $tryserver (keys %spareid) {
my $answer=reply('load',$tryserver);	my $answer=reply('load',$tryserver);
if (($answer =~ /\d/) && ($answer<$lowestserver)) {	if (($answer =~ /\d/) && ($answer<$lowestserver)) {
Line 3329 BEGIN {	Line 3330 BEGIN {

while (my $configline=<$config>) {	while (my $configline=<$config>) {
chomp($configline);	chomp($configline);
if (($configline) && ($configline ne $perlvar{'lonHostID'})) {	if ($configline) {
$spareid{$configline}=1;	$spareid{$configline}=1;
}	}
}	}