version 1.35.2.6.2.3, 2022/08/30 16:20:17
|
version 1.35.2.6.2.4, 2022/09/19 19:18:42
|
Line 62 sub do_redirect {
|
Line 62 sub do_redirect {
|
} |
} |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Switching Server ...',undef, |
&Apache::loncommon::start_page('Switching Server ...',undef, |
{'redirect' => [$delay,$url,'',$write_to_opener], |
{'redirect' => [$delay,$url,'',$write_to_opener,1], |
'only_body' => $only_body,}); |
'only_body' => $only_body,}); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
$r->print($start_page.$extra_text.$end_page); |
$r->print($start_page.$extra_text.$end_page); |
Line 102 sub handler {
|
Line 102 sub handler {
|
if (!defined($handle)) { return FORBIDDEN; } |
if (!defined($handle)) { return FORBIDDEN; } |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['otherserver','role','origurl','symb','lcssowin']); |
['otherserver','role','origurl','symb','lcssowin','edit']); |
|
|
my $switch_to=&Apache::lonnet::hostname($env{'form.otherserver'}); |
my $switch_to=&Apache::lonnet::hostname($env{'form.otherserver'}); |
if (! $env{'form.otherserver'}) { |
if (! $env{'form.otherserver'}) { |
Line 163 sub handler {
|
Line 163 sub handler {
|
} |
} |
|
|
unless ($skip_canhost_check) { |
unless ($skip_canhost_check) { |
my $canhost = 1; |
my $canhost = &Apache::lonnet::can_switchserver($env{'user.domain'},$env{'form.otherserver'}); |
my $uprimary_id = &Apache::lonnet::domain($env{'user.domain'},'primary'); |
unless ($canhost) { |
my $uint_dom = &Apache::lonnet::internet_dom($uprimary_id); |
if (($env{'request.course.id'}) && ($env{'form.symb'} ne '') && |
my @intdoms; |
(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) { |
my $internet_names = &Apache::lonnet::get_internet_names($env{'form.otherserver'}); |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
if (ref($internet_names) eq 'ARRAY') { |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
@intdoms = @{$internet_names}; |
if (($cdom ne '') && ($cnum ne '') && ($env{'form.role'} =~ m{^([^.]+)\Q./$cdom/$cnum\E$})) { |
} |
my $symb = &Apache::lonnet::symbclean($env{'form.symb'}); |
unless ($uint_dom ne '' && grep(/^\Q$uint_dom\E$/,@intdoms)) { |
my ($map,$idx,$url) = &Apache::lonnet::decode_symb($symb); |
my $serverhomeID = &Apache::lonnet::get_server_homeID($switch_to); |
if (&Apache::lonnet::symbverify($symb,$url)) { |
my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID); |
my $fileloc = &Apache::lonnet::declutter(&Apache::lonnet::filelocation("",$url)); |
my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom); |
my $resurl = &Apache::lonnet::clutter($url); |
my %udomdefaults = &Apache::lonnet::get_domain_defaults($env{'user.domain'}); |
if ($resurl =~ m{^/res/($match_domain)/($match_username)/}) { |
my $remoterev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'form.otherserver'}); |
my ($audom,$auname) = ($1,$2); |
$canhost = |
if (&Apache::lonnet::homeserver($auname,$audom) eq $env{'form.otherserver'}) { |
&Apache::lonnet::can_host_session($env{'user.domain'}, |
my @possroles = ("user.role.au./$audom/","user.role.ca./$audom/$auname","user.role.aa./$audom/$auname"); |
$env{'form.otherserver'}, |
my $hasrole; |
$remoterev, |
foreach my $rolekey (@possroles) { |
$udomdefaults{'remotesessions'}, |
if (exists($env{$rolekey})) { |
$defdomdefaults{'hostedsessions'}); |
my ($start,$end) = split(/\./,$env{$rolekey}); |
|
unless (($start && $start > $now) || ($end && $end < $now)) { |
|
$hasrole = $rolekey; |
|
} |
|
if ($hasrole) { |
|
$hasrole =~ s/^\Quser.role.\E//; |
|
last; |
|
} |
|
} |
|
} |
|
if ($hasrole) { |
|
$env{'form.role'} = $hasrole; |
|
$env{'form.origurl'} = &Apache::lonnet::deversion($resurl); |
|
$env{'form.origurl'} =~ s{^/res/}{/priv/}; |
|
delete($env{'form.symb'}); |
|
$canhost = 1; |
|
if ($env{'form.edit'}) { |
|
my $ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP); |
|
my %info=('ip' => $ip, |
|
'domain' => $env{'user.domain'}, |
|
'username' => $env{'user.name'}, |
|
'home' => $env{'user.home'}, |
|
'role' => $env{'form.role'}, |
|
'server' => $r->dir_config('lonHostID'), |
|
'origurl' => $env{'form.origurl'}); |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
my $token = &Apache::lonnet::tmpput(\%info,$env{'form.otherserver'}); |
|
my $url = $protocol.'://'.$switch_to.'/adm/login?'. |
|
'domain='.$env{'user.domain'}. |
|
'&username='.$env{'user.name'}. |
|
'&token='.$token; |
|
return &do_redirect($r,$url,0); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
} |
} |
unless ($canhost) { return FORBIDDEN; } |
unless ($canhost) { return FORBIDDEN; } |
} |
} |