Return to lonauth.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.101.8.5, 2010/09/24 00:01:44 | version 1.101.8.6, 2011/06/10 01:30:33 |
---|---|
Line 424 sub handler { | Line 424 sub handler { |
if ($r->dir_config("lonBalancer") eq 'yes') { | if ($r->dir_config("lonBalancer") eq 'yes') { |
&success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef, | &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef, |
\%form); | \%form); |
my ($otherserver) = &Apache::lonnet::choose_server($form{'udom'}); | my $otherserver = &Apache::lonnet::spareserver(30000,undef,1,$form{'udom'}); |
$r->internal_redirect('/adm/switchserver?otherserver='.$otherserver.'&origurl='.$firsturl); | $r->internal_redirect('/adm/switchserver?otherserver='.$otherserver.'&origurl='.$firsturl); |
return OK; | return OK; |
} else { | } else { |