|
version 1.267.4.6, 2002/09/16 20:30:26
|
version 1.267.4.7, 2002/09/17 20:01:30
|
|
Line 351 sub delenv {
|
Line 351 sub delenv {
|
| # ------------------------------ 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 3247 BEGIN {
|
Line 3248 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; |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl