version 1.182, 2020/10/06 17:26:15
|
version 1.184, 2020/12/18 15:23:03
|
Line 386 sub sso_login {
|
Line 386 sub sso_login {
|
} else { |
} else { |
# need to login them in, so generate the need data that |
# need to login them in, so generate the need data that |
# migrate expects to do login |
# migrate expects to do login |
my $ip = $r->get_remote_host(); |
my $ip = &Apache::lonnet::get_requestor_ip($r); |
my %info=('ip' => $ip, |
my %info=('ip' => $ip, |
'domain' => $domain, |
'domain' => $domain, |
'username' => $user, |
'username' => $user, |
Line 582 sub handler {
|
Line 582 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) { |
unless (($checkexempt) || (($requrl eq '/adm/switchserver') && (!$r->is_initial_req()))) { |
($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) { |
unless (($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) { |
# Check if browser sent a LON-CAPA load balancer cookie (and this is a balancer) |
# 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); |
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_/)) { |
if (($found_server) && ($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) { |
$otherserver = $found_server; |
$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') || |
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')) { |
$env{'form.origurl'} = $r->uri; |
$env{'form.origurl'} = $r->uri; |
} |
} |
} |
} |
} |
if ($requrl=~m{^/+tiny/+$match_domain/+\w+$}) { |
if ($requrl=~m{^/+tiny/+$match_domain/+\w+$}) { |
Line 722 sub handler {
|
Line 718 sub handler {
|
} |
} |
} |
} |
} elsif (($handle =~ /^publicuser_\d+$/) && (&Apache::lonnet::is_portfolio_url($requrl))) { |
} elsif (($handle =~ /^publicuser_\d+$/) && (&Apache::lonnet::is_portfolio_url($requrl))) { |
my $clientip = $r->get_remote_host(); |
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
if (&Apache::lonnet::allowed('bre',$requrl,undef,undef,$clientip) ne 'F') { |
if (&Apache::lonnet::allowed('bre',$requrl,undef,undef,$clientip) ne 'F') { |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
Line 912 sub handler {
|
Line 908 sub handler {
|
} |
} |
# ------------------------------------ See if this is a viewable portfolio file |
# ------------------------------------ See if this is a viewable portfolio file |
if (&Apache::lonnet::is_portfolio_url($requrl)) { |
if (&Apache::lonnet::is_portfolio_url($requrl)) { |
my $clientip = $r->get_remote_host(); |
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
my $access=&Apache::lonnet::allowed('bre',$requrl,undef,undef,$clientip); |
my $access=&Apache::lonnet::allowed('bre',$requrl,undef,undef,$clientip); |
if ($access eq 'A') { |
if ($access eq 'A') { |
&Apache::restrictedaccess::setup_handler($r); |
&Apache::restrictedaccess::setup_handler($r); |