|
version 1.669, 2005/10/27 19:47:39
|
version 1.670, 2005/10/28 21:51:50
|
|
Line 443 sub overloaderror {
|
Line 443 sub overloaderror {
|
| # ------------------------------ Find server with least workload from spare.tab |
# ------------------------------ Find server with least workload from spare.tab |
| |
|
| sub spareserver { |
sub spareserver { |
| my ($loadpercent,$userloadpercent) = @_; |
my ($loadpercent,$userloadpercent,$want_server_name) = @_; |
| my $tryserver; |
my $tryserver; |
| my $spareserver=''; |
my $spareserver=''; |
| if ($userloadpercent !~ /\d/) { $userloadpercent=0; } |
if ($userloadpercent !~ /\d/) { $userloadpercent=0; } |
| my $lowestserver=$loadpercent > $userloadpercent? |
my $lowestserver=$loadpercent > $userloadpercent? |
| $loadpercent : $userloadpercent; |
$loadpercent : $userloadpercent; |
| foreach $tryserver (keys %spareid) { |
foreach $tryserver (keys(%spareid)) { |
| my $loadans=reply('load',$tryserver); |
my $loadans=&reply('load',$tryserver); |
| my $userloadans=reply('userload',$tryserver); |
my $userloadans=&reply('userload',$tryserver); |
| if ($loadans !~ /\d/ && $userloadans !~ /\d/) { |
if ($loadans !~ /\d/ && $userloadans !~ /\d/) { |
| next; #didn't get a number from the server |
next; #didn't get a number from the server |
| } |
} |
|
Line 468 sub spareserver {
|
Line 468 sub spareserver {
|
| $answer = $userloadans; |
$answer = $userloadans; |
| } |
} |
| if (($answer =~ /\d/) && ($answer<$lowestserver)) { |
if (($answer =~ /\d/) && ($answer<$lowestserver)) { |
| $spareserver="http://$hostname{$tryserver}"; |
if ($want_server_name) { |
| |
$spareserver=$tryserver; |
| |
} else { |
| |
$spareserver="http://$hostname{$tryserver}"; |
| |
} |
| $lowestserver=$answer; |
$lowestserver=$answer; |
| } |
} |
| } |
} |
|
Line 3113 sub allowed {
|
Line 3117 sub allowed {
|
| $thisallowed='F'; |
$thisallowed='F'; |
| } |
} |
| } |
} |
| |
} else { |
| |
$thisallowed=''; |
| } |
} |
| } |
} |
| |
|
![[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