loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.369, 2003/05/08 21:35:48	version 1.370, 2003/05/08 21:50:54
Line 396 sub overloaderror {	Line 396 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 ($loadpercent,$userloadpercent) = @_;
my $tryserver;	my $tryserver;
my $spareserver='';	my $spareserver='';
my $lowestserver=$loadpercent;	if ($userloadpercent !~ /\d/) { $userloadpercent=0; }
	my $lowestserver=$loadpercent > $userloadpercent?
	$loadpercent : $userloadpercent;
foreach $tryserver (keys %spareid) {	foreach $tryserver (keys %spareid) {
my $answer=reply('load',$tryserver);	my $loadans=reply('load',$tryserver);
	my $userloadans=reply('userload',$tryserver);
	if ($userloadans !~ /\d/) { $userloadans=0; }
	my $answer=$loadans > $userloadans?
	$loadans : $userloadans;
if (($answer =~ /\d/) && ($answer<$lowestserver)) {	if (($answer =~ /\d/) && ($answer<$lowestserver)) {
$spareserver="http://$hostname{$tryserver}";	$spareserver="http://$hostname{$tryserver}";
$lowestserver=$answer;	$lowestserver=$answer;
}	}
}	}
return $spareserver;	return $spareserver;
}	}