version 1.159.2.8.2.7, 2020/10/26 01:19:53
|
version 1.159.2.14, 2020/10/06 17:39:04
|
Line 355 sub sso_login {
|
Line 355 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 550 sub handler {
|
Line 542 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 572 sub handler {
|
Line 563 sub handler {
|
if ($env{'user.noloadbalance'} eq $r->dir_config('lonHostID')) { |
if ($env{'user.noloadbalance'} eq $r->dir_config('lonHostID')) { |
$checkexempt = 1; |
$checkexempt = 1; |
} |
} |
unless (($checkexempt) || (($requrl eq '/adm/switchserver') && (!$r->is_initial_req()))) { |
unless ($checkexempt) { |
($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) { |
if ($is_balancer) { |
# Check if browser sent a LON-CAPA load balancer cookie (and this is a balancer) |
unless (($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) { |
my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r); |
# Check if browser sent a LON-CAPA load balancer cookie (and this is a balancer) |
if (($found_server) && ($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) { |
my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r); |
$otherserver = $found_server; |
if (($found_server) && ($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) { |
} |
$otherserver = $found_server; |
unless ($requrl eq '/adm/switchserver') { |
} |
$r->set_handlers('PerlResponseHandler'=> |
|
[\&Apache::switchserver::handler]); |
|
} |
} |
|
} |
|
} |
|
if ($is_balancer) { |
|
unless (($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) { |
|
$r->set_handlers('PerlResponseHandler'=> |
|
[\&Apache::switchserver::handler]); |
if ($otherserver ne '') { |
if ($otherserver ne '') { |
$env{'form.otherserver'} = $otherserver; |
$env{'form.otherserver'} = $otherserver; |
} |
} |
unless (($env{'form.origurl'}) || ($r->uri eq '/adm/roles') || |
|
($r->uri eq '/adm/switchserver') || ($r->uri eq '/adm/sso')) { |
|
$env{'form.origurl'} = $r->uri; |
|
} |
|
} |
} |
} |
unless (($env{'form.origurl'}) || ($r->uri eq '/adm/roles') || |
if ($requrl=~m{^/+tiny/+$match_domain/+\w+$}) { |
($r->uri eq '/adm/switchserver') || ($r->uri eq '/adm/sso')) { |
if ($env{'user.name'} eq 'public' && |
$env{'form.origurl'} = $r->uri; |
$env{'user.domain'} eq 'public') { |
|
$env{'request.firsturl'}=$requrl; |
|
return FORBIDDEN; |
|
} else { |
|
return OK; |
|
} |
} |
} |
} |
|
|
Line 620 sub handler {
|
Line 606 sub handler {
|
($requrl=~m|\.problem/smpedit$|) || |
($requrl=~m|\.problem/smpedit$|) || |
($requrl=~/^\/public\/.*\/syllabus$/) || |
($requrl=~/^\/public\/.*\/syllabus$/) || |
($requrl=~/^\/adm\/(viewclasslist|navmaps)$/) || |
($requrl=~/^\/adm\/(viewclasslist|navmaps)$/) || |
($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?|$)/) || |
($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?|$)/)) { |
($requrl=~m{^/adm/$cdom/$cnum/\d+/ext\.tool$})) { |
|
$check_symb = 1; |
$check_symb = 1; |
} |
} |
} |
} |