version 1.170, 2018/07/02 20:53:07
|
version 1.173, 2018/12/27 18:14:38
|
Line 340 sub sso_login {
|
Line 340 sub sso_login {
|
($is_balancer,$otherserver) = |
($is_balancer,$otherserver) = |
&Apache::lonnet::check_loadbalancing($user,$domain,'login'); |
&Apache::lonnet::check_loadbalancing($user,$domain,'login'); |
if ($is_balancer) { |
if ($is_balancer) { |
if ($otherserver eq '') { |
# Check if browser sent a LON-CAPA load balancer cookie (and this is a balancer) |
|
my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r); |
|
if (($found_server) && ($balancer_cookie =~ /^\Q$domain\E_\Q$user\E_/)) { |
|
$otherserver = $found_server; |
|
} elsif ($otherserver eq '') { |
my $lowest_load; |
my $lowest_load; |
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($domain); |
($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($domain); |
if ($lowest_load > 100) { |
if ($lowest_load > 100) { |
$otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$domain); |
$otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$domain); |
} |
} |
} |
if ($otherserver ne '') { |
if ($otherserver ne '') { |
my @hosts = &Apache::lonnet::current_machine_ids(); |
my @hosts = &Apache::lonnet::current_machine_ids(); |
if (grep(/^\Q$otherserver\E$/,@hosts)) { |
if (grep(/^\Q$otherserver\E$/,@hosts)) { |
$hosthere = $otherserver; |
$hosthere = $otherserver; |
} |
} |
} |
} |
} |
} |
} |
Line 359 sub sso_login {
|
Line 363 sub sso_login {
|
# login but immediately go to switch server to find us a new |
# login but immediately go to switch server to find us a new |
# machine |
# machine |
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect'); |
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect'); |
|
foreach my $item (keys(%form)) { |
|
$env{'form.'.$item} = $form{$item}; |
|
} |
|
unless ($form{'symb'}) { |
|
unless (($r->uri eq '/adm/roles') || ($r->uri eq '/adm/sso')) { |
|
$env{'form.origurl'} = $r->uri; |
|
} |
|
} |
$env{'request.sso.login'} = 1; |
$env{'request.sso.login'} = 1; |
if (defined($r->dir_config("lonSSOReloginServer"))) { |
if (defined($r->dir_config("lonSSOReloginServer"))) { |
$env{'request.sso.reloginserver'} = |
$env{'request.sso.reloginserver'} = |
Line 546 sub handler {
|
Line 558 sub handler {
|
my $lonhost = &Apache::lonnet::host_from_dns($hostname); |
my $lonhost = &Apache::lonnet::host_from_dns($hostname); |
if ($lonhost) { |
if ($lonhost) { |
my $actual = &Apache::lonnet::absolute_url($hostname); |
my $actual = &Apache::lonnet::absolute_url($hostname); |
|
my $exphostname = &Apache::lonnet::hostname($lonhost); |
my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname; |
my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname; |
unless ($actual eq $expected) { |
unless ($actual eq $expected) { |
$env{'request.use_absolute'} = $expected; |
$env{'request.use_absolute'} = $expected; |
Line 561 sub handler {
|
Line 574 sub handler {
|
my $checkexempt; |
my $checkexempt; |
if ($env{'user.loadbalexempt'} eq $r->dir_config('lonHostID')) { |
if ($env{'user.loadbalexempt'} eq $r->dir_config('lonHostID')) { |
if ($env{'user.loadbalcheck.time'} + 600 > time) { |
if ($env{'user.loadbalcheck.time'} + 600 > time) { |
$checkexempt = 1; |
$checkexempt = 1; |
} |
} |
} |
} |
if ($env{'user.noloadbalance'} eq $r->dir_config('lonHostID')) { |
if ($env{'user.noloadbalance'} eq $r->dir_config('lonHostID')) { |
Line 571 sub handler {
|
Line 584 sub handler {
|
($is_balancer,$otherserver) = |
($is_balancer,$otherserver) = |
&Apache::lonnet::check_loadbalancing($env{'user.name'}, |
&Apache::lonnet::check_loadbalancing($env{'user.name'}, |
$env{'user.domain'}); |
$env{'user.domain'}); |
|
if ($is_balancer) { |
|
unless (($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) { |
|
# Check if browser sent a LON-CAPA load balancer cookie (and this is a balancer) |
|
my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r); |
|
if (($found_server) && ($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) { |
|
$otherserver = $found_server; |
|
} |
|
} |
|
} |
} |
} |
if ($is_balancer) { |
if ($is_balancer) { |
$r->set_handlers('PerlResponseHandler'=> |
unless (($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) { |
[\&Apache::switchserver::handler]); |
$r->set_handlers('PerlResponseHandler'=> |
if ($otherserver ne '') { |
[\&Apache::switchserver::handler]); |
$env{'form.otherserver'} = $otherserver; |
if ($otherserver ne '') { |
|
$env{'form.otherserver'} = $otherserver; |
|
} |
} |
} |
unless (($env{'form.origurl'}) || ($r->uri eq '/adm/roles') || |
unless (($env{'form.origurl'}) || ($r->uri eq '/adm/roles') || |
($r->uri eq '/adm/switchserver') || ($r->uri eq '/adm/sso')) { |
($r->uri eq '/adm/switchserver') || ($r->uri eq '/adm/sso')) { |