|
version 1.117, 2011/08/09 01:35:31
|
version 1.118, 2011/08/17 03:52:36
|
|
Line 432 sub handler {
|
Line 432 sub handler {
|
| return OK; |
return OK; |
| } else { |
} else { |
| if (!&check_can_host($r,\%form,$authhost)) { |
if (!&check_can_host($r,\%form,$authhost)) { |
| my $otherserver = &Apache::lonnet::choose_server($form{'udom'}); |
my ($otherserver) = &Apache::lonnet::choose_server($form{'udom'}); |
| if ($otherserver) { |
if ($otherserver) { |
| &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef, |
&success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef, |
| \%form); |
\%form); |
|
Line 460 sub handler {
|
Line 460 sub handler {
|
| if ((($userloadpercent>100.0)||($loadpercent>100.0))) { |
if ((($userloadpercent>100.0)||($loadpercent>100.0))) { |
| my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent,1,$form{'udom'}); |
my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent,1,$form{'udom'}); |
| if (!$unloaded) { |
if (!$unloaded) { |
| $unloaded = &Apache::lonnet::choose_server($form{'udom'}); |
($unloaded) = &Apache::lonnet::choose_server($form{'udom'}); |
| } |
} |
| if ($unloaded) { |
if ($unloaded) { |
| &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect', |
&success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect', |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonauth.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth