version 1.140, 2016/04/02 04:31:33
|
version 1.141, 2016/12/05 00:51:43
|
Line 249 sub reroute {
|
Line 249 sub reroute {
|
sub handler {
|
sub handler {
|
my $r = shift;
|
my $r = shift;
|
my $londocroot = $r->dir_config('lonDocRoot');
|
my $londocroot = $r->dir_config('lonDocRoot');
|
my $form;
|
|
# Are we re-routing?
|
# Are we re-routing?
|
if (-e "$londocroot/lon-status/reroute.txt") {
|
if (-e "$londocroot/lon-status/reroute.txt") {
|
&reroute($r);
|
&reroute($r);
|
Line 466 sub handler {
|
Line 465 sub handler {
|
|
|
unless ($hosthere) {
|
unless ($hosthere) {
|
($is_balancer,$otherserver) =
|
($is_balancer,$otherserver) =
|
&Apache::lonnet::check_loadbalancing($form{'uname'},$form{'udom'});
|
&Apache::lonnet::check_loadbalancing($form{'uname'},$form{'udom'},'login');
|
|
if ($is_balancer) {
|
|
if ($otherserver eq '') {
|
|
my $lowest_load;
|
|
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($form{'udom'});
|
|
if ($lowest_load > 100) {
|
|
$otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$form{'udom'});
|
|
}
|
|
}
|
|
if ($otherserver ne '') {
|
|
my @hosts = &Apache::lonnet::current_machine_ids();
|
|
if (grep(/^\Q$otherserver\E$/,@hosts)) {
|
|
$hosthere = $otherserver;
|
|
}
|
|
}
|
|
}
|
}
|
}
|
|
|
if ($is_balancer) {
|
if (($is_balancer) && (!$hosthere)) {
|
if (!$otherserver) {
|
|
($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 540 sub handler {
|
Line 551 sub handler {
|
return OK;
|
return OK;
|
}
|
}
|
}
|
}
|
|
if (($is_balancer) && ($hosthere)) {
|
|
$form{'noloadbalance'} = $hosthere;
|
|
}
|
&success($r,$form{'uname'},$form{'udom'},$authhost,$firsturl,undef,
|
&success($r,$form{'uname'},$form{'udom'},$authhost,$firsturl,undef,
|
\%form);
|
\%form);
|
return OK;
|
return OK;
|