version 1.193, 2021/11/03 01:04:02
|
version 1.204, 2022/09/17 23:38:50
|
Line 50 sub handler {
|
Line 50 sub handler {
|
$ENV{'REDIRECT_QUERY_STRING'}),
|
$ENV{'REDIRECT_QUERY_STRING'}),
|
['interface','username','domain','firsturl','localpath','localres',
|
['interface','username','domain','firsturl','localpath','localres',
|
'token','role','symb','iptoken','btoken','ltoken','ttoken','linkkey',
|
'token','role','symb','iptoken','btoken','ltoken','ttoken','linkkey',
|
'saml','sso','retry']);
|
'saml','sso','retry','display']);
|
|
|
# -- check if they are a migrating user
|
# -- check if they are a migrating user
|
if (defined($env{'form.token'})) {
|
if (defined($env{'form.token'})) {
|
Line 68 sub handler {
|
Line 68 sub handler {
|
$env{'form.ltoken'} = $info{'ltoken'};
|
$env{'form.ltoken'} = $info{'ltoken'};
|
} elsif ($info{'linkprot'}) {
|
} elsif ($info{'linkprot'}) {
|
$env{'form.linkprot'} = $info{'linkprot'};
|
$env{'form.linkprot'} = $info{'linkprot'};
|
|
foreach my $item ('linkprotuser','linkprotexit') {
|
|
if ($info{$item} ne '') {
|
|
$env{'form.'.$item} = $info{$item};
|
|
}
|
|
}
|
} elsif ($info{'linkkey'} ne '') {
|
} elsif ($info{'linkkey'} ne '') {
|
$env{'form.linkkey'} = $info{'linkkey'};
|
$env{'form.linkkey'} = $info{'linkkey'};
|
}
|
}
|
Line 170 sub handler {
|
Line 175 sub handler {
|
if ($env{'form.symb'}) {
|
if ($env{'form.symb'}) {
|
$info{'symb'} = $env{'form.symb'};
|
$info{'symb'} = $env{'form.symb'};
|
}
|
}
|
|
if (($env{'form.firsturl'} eq '/adm/email') && ($env{'form.display'} ne '')) {
|
|
if ($env{'form.sso'}) {
|
|
if ($env{'form.mailrecip'}) {
|
|
$info{'display'} = &escape($env{'form.display'});
|
|
$info{'mailrecip'} = &escape($env{'form.mailrecip'});
|
|
}
|
|
} else {
|
|
if (($env{'form.username'}) && ($env{'form.domain'})) {
|
|
$info{'display'} = &escape($env{'form.display'});
|
|
$info{'mailrecipient'} = &escape($env{'form.username'}.':'.$env{'form.domain'});
|
|
}
|
|
}
|
|
}
|
my $balancer_token = &Apache::lonnet::tmpput(\%info,$found_server);
|
my $balancer_token = &Apache::lonnet::tmpput(\%info,$found_server);
|
unless (($balancer_token eq 'con_lost') || ($balancer_token eq 'refused') ||
|
unless (($balancer_token eq 'con_lost') || ($balancer_token eq 'refused') ||
|
($balancer_token eq 'unknown_cmd') || ($balancer_token eq 'no_such_host')) {
|
($balancer_token eq 'unknown_cmd') || ($balancer_token eq 'no_such_host')) {
|
Line 181 sub handler {
|
Line 199 sub handler {
|
$link_info{'ltoken'} = $env{'form.ltoken'};
|
$link_info{'ltoken'} = $env{'form.ltoken'};
|
} elsif ($env{'form.linkprot'}) {
|
} elsif ($env{'form.linkprot'}) {
|
$link_info{'linkprot'} = $env{'form.linkprot'};
|
$link_info{'linkprot'} = $env{'form.linkprot'};
|
|
foreach my $item ('linkprotuser','linkprotexit') {
|
|
if ($env{'form.'.$item} ne '') {
|
|
$link_info{$item} = $env{'form.'.$item};
|
|
}
|
|
}
|
} elsif ($env{'form.linkkey'} ne '') {
|
} elsif ($env{'form.linkkey'} ne '') {
|
$link_info{'linkkey'} = $env{'form.linkkey'};
|
$link_info{'linkkey'} = $env{'form.linkkey'};
|
}
|
}
|
Line 218 sub handler {
|
Line 241 sub handler {
|
$balcookie = $info{'balcookie'};
|
$balcookie = $info{'balcookie'};
|
&Apache::lonnet::tmpdel($env{'form.btoken'});
|
&Apache::lonnet::tmpdel($env{'form.btoken'});
|
delete($env{'form.btoken'});
|
delete($env{'form.btoken'});
|
|
if (($env{'form.firsturl'} eq '/adm/email') &&
|
|
(exists($info{'display'})) && (exists($info{'mailrecip'}))) {
|
|
$env{'form.display'} = &unescape($info{'display'});
|
|
$env{'form.mailrecip'} = &unescape($info{'mailrecip'});
|
|
}
|
}
|
}
|
|
|
#
|
#
|
Line 249 sub handler {
|
Line 277 sub handler {
|
$dest = &HTML::Entities::encode($env{'form.firsturl'},'\'"<>&');
|
$dest = &HTML::Entities::encode($env{'form.firsturl'},'\'"<>&');
|
}
|
}
|
if (($env{'form.ltoken'}) || ($env{'form.linkprot'})) {
|
if (($env{'form.ltoken'}) || ($env{'form.linkprot'})) {
|
my $linkprot;
|
my ($linkprot,$linkprotuser,$linkprotexit);
|
if ($env{'form.ltoken'}) {
|
if ($env{'form.ltoken'}) {
|
my %info = &Apache::lonnet::tmpget($env{'form.ltoken'});
|
my %info = &Apache::lonnet::tmpget($env{'form.ltoken'});
|
$linkprot = $info{'linkprot'};
|
$linkprot = $info{'linkprot'};
|
my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
|
if ($info{'linkprotuser'} ne '') {
|
|
$linkprotuser = $info{'linkprotuser'};
|
|
}
|
|
if ($info{'linkprotexit'} ne '') {
|
|
$linkprotexit = $info{'linkprotexit'};
|
|
}
|
} else {
|
} else {
|
$linkprot = $env{'form.linkprot'};
|
$linkprot = $env{'form.linkprot'};
|
|
$linkprotuser = $env{'form.linkprotuser'};
|
|
$linkprotexit = $env{'form.linkprotexit'};
|
}
|
}
|
if ($linkprot) {
|
if ($linkprot) {
|
my ($linkprotector,$deeplink) = split(/:/,$linkprot,2);
|
my ($linkprotector,$deeplink) = split(/:/,$linkprot,2);
|
|
if (($deeplink =~ m{^/tiny/$match_domain/\w+$}) &&
|
|
($linkprotuser ne '') && ($linkprotuser ne $env{'user.name'}.':'.$env{'user.domain'})) {
|
|
my $ip = &Apache::lonnet::get_requestor_ip();
|
|
my %linkprotinfo = (
|
|
origurl => $deeplink,
|
|
linkprot => $linkprot,
|
|
linkprotuser => $linkprotuser,
|
|
linkprotexit => $linkprotexit,
|
|
);
|
|
if ($env{'form.ltoken'}) {
|
|
my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
|
|
}
|
|
&Apache::migrateuser::logout($r,$ip,$handle,undef,undef,\%linkprotinfo);
|
|
return OK;
|
|
}
|
if ($env{'user.linkprotector'}) {
|
if ($env{'user.linkprotector'}) {
|
my @protectors = split(/,/,$env{'user.linkprotector'});
|
my @protectors = split(/,/,$env{'user.linkprotector'});
|
unless (grep(/^\Q$linkprotector\E$/,@protectors)) {
|
unless (grep(/^\Q$linkprotector\E$/,@protectors)) {
|
Line 304 sub handler {
|
Line 354 sub handler {
|
}
|
}
|
}
|
}
|
}
|
}
|
|
if ($env{'form.ltoken'}) {
|
|
my $delete = &Apache::lonnet::tmpdel($env{'form.ltoken'});
|
|
}
|
|
if (($env{'form.firsturl'} eq '/adm/email') && ($env{'form.display'})) {
|
|
if ($env{'form.mailrecip'}) {
|
|
if ($env{'form.mailrecip'} eq "$env{'user.name'}:$env{'user.domain'}") {
|
|
$dest .= (($dest=~/\?/)?'&':'?') . 'display='.&escape($env{'form.display'}).
|
|
'&mailrecip='.&escape($env{'form.mailrecip'});
|
|
}
|
|
} elsif (($env{'form.username'} eq $env{'user.name'}) && ($env{'form.domain'} eq $env{'user.domain'})) {
|
|
$dest .= (($dest=~/\?/)?'&':'?') . 'display='.&escape($env{'form.display'}).
|
|
'&mailrecip='.&escape("$env{'user.name'}:$env{'form.domain'}");
|
|
}
|
|
}
|
$r->print(
|
$r->print(
|
$start_page
|
$start_page
|
.'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
|
.'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
|
Line 428 sub handler {
|
Line 492 sub handler {
|
if ($uextkey>2147483647) { $uextkey-=4294967296; }
|
if ($uextkey>2147483647) { $uextkey-=4294967296; }
|
|
|
# -------------------------------------------------------- Store away log token
|
# -------------------------------------------------------- Store away log token
|
my ($tokenextras,$tokentype);
|
my ($tokenextras,$tokentype,$linkprot_for_login);
|
my @names = ('role','symb','iptoken','ltoken','linkprot','linkkey');
|
my @names = ('role','symb','iptoken','ltoken','linkprotuser','linkprotexit','linkprot','linkkey','display');
|
foreach my $name (@names) {
|
foreach my $name (@names) {
|
if ($env{'form.'.$name} ne '') {
|
if ($env{'form.'.$name} ne '') {
|
if ($name eq 'ltoken') {
|
if ($name eq 'ltoken') {
|
my %info = &Apache::lonnet::tmpget($env{'form.'.$name});
|
my %info = &Apache::lonnet::tmpget($env{'form.'.$name});
|
if ($info{'linkprot'}) {
|
if ($info{'linkprot'}) {
|
|
$linkprot_for_login = $info{'linkprot'};
|
$tokenextras .= '&linkprot='.&escape($info{'linkprot'});
|
$tokenextras .= '&linkprot='.&escape($info{'linkprot'});
|
|
foreach my $item ('linkprotuser','linkprotexit') {
|
|
if ($info{$item}) {
|
|
$tokenextras .= '&'.$item.'='.&escape($info{$item});
|
|
}
|
|
}
|
$tokentype = 'link';
|
$tokentype = 'link';
|
last;
|
last;
|
}
|
}
|
|
} elsif ($env{'form.display'} && ($env{'form.firsturl'} eq '/adm/email')) {
|
|
if (($env{'form.mailrecip'}) ||
|
|
($env{'form.username'} =~ /^$match_username$/) && ($env{'form.domain'} =~ /^$match_domain$/)) {
|
|
$tokenextras .= '&'.$name.'='.&escape($env{'form.display'});
|
|
if ($env{'form.mailrecip'}) {
|
|
$tokenextras .= '&mailrecip='.&escape($env{'form.mailrecip'});
|
|
} else {
|
|
$tokenextras .= '&mailrecip='.&escape($env{'form.username'}.':'.$env{'form.domain'});
|
|
}
|
|
}
|
} else {
|
} else {
|
$tokenextras .= '&'.$name.'='.&escape($env{'form.'.$name});
|
$tokenextras .= '&'.$name.'='.&escape($env{'form.'.$name});
|
if (($name eq 'linkkey') || ($name eq 'linkprot')) {
|
if (($name eq 'linkkey') || ($name eq 'linkprot')) {
|
|
if ((($env{'form.retry'}) || ($env{'form.sso'})) &&
|
|
(!$env{'form.ltoken'}) && ($name eq 'linkprot')) {
|
|
$linkprot_for_login = $env{'form.linkprot'};
|
|
}
|
$tokentype = 'link';
|
$tokentype = 'link';
|
}
|
}
|
}
|
}
|
Line 619 function enableInput() {
|
Line 703 function enableInput() {
|
ENDSCRIPT
|
ENDSCRIPT
|
|
|
my ($lonhost_in_use,@hosts,%defaultdomconf,$saml_prefix,$saml_landing,
|
my ($lonhost_in_use,@hosts,%defaultdomconf,$saml_prefix,$saml_landing,
|
$samlssotext,$samlnonsso,$samlssoimg,$samlssoalt,$samlssourl,$samltooltip);
|
$samlssotext,$samlnonsso,$samlssoimg,$samlssoalt,$samlssourl,$samltooltip,
|
|
$samlwindow);
|
%defaultdomconf = &Apache::loncommon::get_domainconf($defdom);
|
%defaultdomconf = &Apache::loncommon::get_domainconf($defdom);
|
@hosts = &Apache::lonnet::current_machine_ids();
|
@hosts = &Apache::lonnet::current_machine_ids();
|
$lonhost_in_use = $lonhost;
|
$lonhost_in_use = $lonhost;
|
Line 640 ENDSCRIPT
|
Line 725 ENDSCRIPT
|
$samlssoalt = $defaultdomconf{$saml_prefix.'alt_'.$lonhost_in_use};
|
$samlssoalt = $defaultdomconf{$saml_prefix.'alt_'.$lonhost_in_use};
|
$samlssourl = $defaultdomconf{$saml_prefix.'url_'.$lonhost_in_use};
|
$samlssourl = $defaultdomconf{$saml_prefix.'url_'.$lonhost_in_use};
|
$samltooltip = $defaultdomconf{$saml_prefix.'title_'.$lonhost_in_use};
|
$samltooltip = $defaultdomconf{$saml_prefix.'title_'.$lonhost_in_use};
|
|
$samlwindow = $defaultdomconf{$saml_prefix.'window_'.$lonhost_in_use};
|
}
|
}
|
if ($saml_landing) {
|
if ($saml_landing) {
|
if ($samlssotext eq '') {
|
if ($samlssotext eq '') {
|
Line 659 function toggleLClogin() {
|
Line 745 function toggleLClogin() {
|
if (document.getElementById('LC_login_text')) {
|
if (document.getElementById('LC_login_text')) {
|
document.getElementById('LC_login_text').innerHTML = '$samlnonsso';
|
document.getElementById('LC_login_text').innerHTML = '$samlnonsso';
|
}
|
}
|
|
if ( document.client.uname ) { document.client.uname.focus(); }
|
if (document.getElementById('LC_SSO_login')) {
|
if (document.getElementById('LC_SSO_login')) {
|
document.getElementById('LC_SSO_login').style.display = 'none';
|
document.getElementById('LC_SSO_login').style.display = 'none';
|
}
|
}
|
Line 812 ENDSERVERFORM
|
Line 899 ENDSERVERFORM
|
LFORM
|
LFORM
|
|
|
if ($showbanner) {
|
if ($showbanner) {
|
|
my $alttext = &Apache::loncommon::designparm('login.alttext_img',$domain);
|
|
if ($alttext eq '') {
|
|
$alttext = 'The Learning Online Network with CAPA';
|
|
}
|
$r->print(<<HEADER);
|
$r->print(<<HEADER);
|
<!-- The LON-CAPA Header -->
|
<!-- The LON-CAPA Header -->
|
<div style="background:$pgbg;margin:0;width:100%;">
|
<div style="background:$pgbg;margin:0;width:100%;">
|
<img src="$img" border="0" alt="The Learning Online Network with CAPA" class="LC_maxwidth" />
|
<img src="$img" border="0" alt="$alttext" class="LC_maxwidth" id="lcloginbanner" />
|
</div>
|
</div>
|
HEADER
|
HEADER
|
}
|
}
|
|
|
my $stdauthformstyle = 'inline-block';
|
my $stdauthformstyle = 'inline-block';
|
my $ssoauthstyle = 'none';
|
my $ssoauthstyle = 'none';
|
|
my $sso_onclick;
|
my $logintype;
|
my $logintype;
|
$r->print('<div style="float:left;margin-top:0;">');
|
$r->print('<div style="float:left;margin-top:0;">');
|
if ($saml_landing) {
|
if ($saml_landing) {
|
Line 832 HEADER
|
Line 924 HEADER
|
if ($samlssourl ne '') {
|
if ($samlssourl ne '') {
|
$ssologin = $samlssourl;
|
$ssologin = $samlssourl;
|
}
|
}
|
|
my $ssologin_for_js = &js_escape($ssologin);
|
|
my $querystr_for_js;
|
if (($logtoken eq 'con_lost') || ($logtoken eq 'no_such_host')) {
|
if (($logtoken eq 'con_lost') || ($logtoken eq 'no_such_host')) {
|
my $querystring;
|
my $querystring;
|
if ($env{'form.firsturl'} ne '') {
|
if ($env{'form.firsturl'} ne '') {
|
Line 852 HEADER
|
Line 946 HEADER
|
}
|
}
|
if ($querystring ne '') {
|
if ($querystring ne '') {
|
$ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;
|
$ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;
|
|
$querystr_for_js = &js_escape($querystring);
|
}
|
}
|
} elsif ($logtoken ne '') {
|
} elsif ($logtoken ne '') {
|
$ssologin .= (($ssologin=~/\?/)?'&':'?') . 'logtoken='.$logtoken;
|
$ssologin .= (($ssologin=~/\?/)?'&':'?') . 'logtoken='.$logtoken;
|
|
$querystr_for_js = &js_escape('logtoken='.$logtoken);
|
}
|
}
|
my $ssohref;
|
my $ssohref;
|
|
if ($samlwindow) {
|
|
$sso_onclick = <<"ENDJS";
|
|
if (document.getElementById('LC_sso_login_link')) {
|
|
var ssoelem = document.getElementById('LC_sso_login_link')
|
|
ssoelem.addEventListener('click',samlWinFunction,false);
|
|
var windows = {};
|
|
function samlWinFunction(evt) {
|
|
evt.preventDefault();
|
|
var url = '$ssologin_for_js';
|
|
var name = 'lcssowin';
|
|
var querystr = '$querystr_for_js';
|
|
if (querystr) {
|
|
url += '?'+querystr+'&lcssowin=1';
|
|
} else {
|
|
url += '?lcssowin=1';
|
|
}
|
|
if ((typeof windows[name] !== 'undefined') && (!windows[name].closed)) {
|
|
windows[name].close();
|
|
}
|
|
windows[name]=window.open(url,name,'width=350,height=600');
|
|
windows[name].focus();
|
|
return false;
|
|
}
|
|
}
|
|
ENDJS
|
|
}
|
if ($samlssoimg ne '') {
|
if ($samlssoimg ne '') {
|
$ssohref = '<a href="'.$ssologin.'" title="'.$samltooltip.'"><img src="'.$samlssoimg.'" alt="'.$samlssoalt.'" /></a>';
|
$ssohref = '<a href="'.$ssologin.'" title="'.$samltooltip.'" id="LC_sso_login_link">'.
|
|
'<img src="'.$samlssoimg.'" alt="'.$samlssoalt.'" id="lcssobutton" /></a>';
|
} else {
|
} else {
|
$ssohref = '<a href="'.$ssologin.'">'.$samlssotext.'</a>';
|
$ssohref = '<a href="'.$ssologin.'" id="LC_sso_login_link">'.$samlssotext.'</a>';
|
}
|
}
|
if (($env{'form.saml'} eq 'no') ||
|
if (($env{'form.saml'} eq 'no') ||
|
(($env{'form.username'} ne '') && ($env{'form.domain'} ne ''))) {
|
(($env{'form.username'} ne '') && ($env{'form.domain'} ne ''))) {
|
Line 892 ENDSAML
|
Line 1015 ENDSAML
|
delete($env{'form.ltoken'});
|
delete($env{'form.ltoken'});
|
}
|
}
|
}
|
}
|
|
my $in_frame_js;
|
|
if ($linkprot_for_login) {
|
|
my ($linkprotector,$linkproturi) = split(/:/,$linkprot_for_login,2);
|
|
if (($linkprotector =~ /^\d+(c|d)$/) && ($linkproturi =~ m{^/+tiny/+$LONCAPA::match_domain/+\w+$})) {
|
|
my $set_target;
|
|
if (($env{'form.retry'}) || ($env{'form.sso'})) {
|
|
if ($linkproturi eq $env{'form.firsturl'}) {
|
|
$set_target = " document.server.target = '_self';";
|
|
}
|
|
} else {
|
|
$set_target = <<ENDTARG;
|
|
var linkproturi = '$linkproturi';
|
|
var path = document.location.pathname.replace( new RegExp('^/adm/launch'),'');
|
|
if (linkproturi == path) {
|
|
document.server.target = '_self';
|
|
}
|
|
ENDTARG
|
|
}
|
|
$in_frame_js = <<ENDJS;
|
|
<script type="text/javascript">
|
|
// <![CDATA[
|
|
if ((window.self !== window.top) && (document.server.target != '_self')) {
|
|
$set_target
|
|
$sso_onclick
|
|
}
|
|
// ]]>
|
|
</script>
|
|
ENDJS
|
|
}
|
|
} elsif ($samlwindow) {
|
|
$in_frame_js = <<ENDJS;
|
|
<script type="text/javascript">
|
|
// <![CDATA[
|
|
if ((window.self !== window.top) && (document.server.target != '_self')) {
|
|
$sso_onclick
|
|
}
|
|
// ]]>
|
|
</script>
|
|
ENDJS
|
|
}
|
|
|
$r->print(<<ENDLOGIN);
|
$r->print(<<ENDLOGIN);
|
<div style="display:$stdauthformstyle;" id="LC_standard_login">
|
<div style="display:$stdauthformstyle;" id="LC_standard_login">
|
Line 913 ENDSAML
|
Line 1076 ENDSAML
|
ENDLOGIN
|
ENDLOGIN
|
$r->print('</div><div>'."\n");
|
$r->print('</div><div>'."\n");
|
if ($showmainlogo) {
|
if ($showmainlogo) {
|
$r->print(' <img src="'.$logo.'" alt="" class="LC_maxwidth" />'."\n");
|
my $alttext = &Apache::loncommon::designparm('login.alttext_logo',$domain);
|
|
$r->print(' <img src="'.$logo.'" alt="'.$alttext.'" class="LC_maxwidth" id="lcloginmainlogo" />'."\n");
|
}
|
}
|
$r->print(<<ENDTOP);
|
$r->print(<<ENDTOP);
|
$announcements
|
$announcements
|
Line 991 $versionrow
|
Line 1155 $versionrow
|
<br style="clear:both;" />
|
<br style="clear:both;" />
|
</div>
|
</div>
|
|
|
|
$in_frame_js
|
<script type="text/javascript">
|
<script type="text/javascript">
|
// <![CDATA[
|
// <![CDATA[
|
// the if prevents the script error if the browser can not handle this
|
// the if prevents the script error if the browser can not handle this
|
Line 1083 sub redirect_page {
|
Line 1248 sub redirect_page {
|
$path = '/'.$path;
|
$path = '/'.$path;
|
}
|
}
|
my $url = $protocol.'://'.$hostname.$path;
|
my $url = $protocol.'://'.$hostname.$path;
|
if ($env{'form.firsturl'} ne '') {
|
my $args = {};
|
|
if ($env{'form.firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
|
|
$url = $protocol.'://'.$hostname.$env{'form.firsturl'};
|
|
if (($env{'form.ltoken'}) || ($env{'form.linkprot'} ne '') ||
|
|
($env{'form.linkkey'} ne '')) {
|
|
my %link_info;
|
|
if ($env{'form.ltoken'}) {
|
|
%link_info = &Apache::lonnet::tmpget($env{'form.ltoken'});
|
|
&Apache::lonnet::tmpdel($env{'form.ltoken'});
|
|
$args->{'only_body'} = 1;
|
|
} elsif ($env{'form.linkprot'}) {
|
|
$link_info{'linkprot'} = $env{'form.linkprot'};
|
|
foreach my $item ('linkprotuser','linkprotexit') {
|
|
if ($env{'form.'.$item}) {
|
|
$link_info{$item} = $env{'form.'.$item};
|
|
}
|
|
}
|
|
$args->{'only_body'} = 1;
|
|
} elsif ($env{'form.linkkey'} ne '') {
|
|
$link_info{'linkkey'} = $env{'form.linkkey'};
|
|
}
|
|
my $token = &Apache::lonnet::tmpput(\%link_info,$desthost,'link');
|
|
unless (($token eq 'con_lost') || ($token eq 'refused') ||
|
|
($token eq 'unknown_cmd') || ($token eq 'no_such_host')) {
|
|
$url .= '?ltoken='.$token;
|
|
}
|
|
}
|
|
} else {
|
my $querystring;
|
my $querystring;
|
if ($env{'form.firsturl'} =~ /[^\x00-\xFF]/) {
|
if ($env{'form.firsturl'} ne '') {
|
$querystring = &uri_escape_utf8($env{'form.firsturl'});
|
if ($env{'form.firsturl'} =~ /[^\x00-\xFF]/) {
|
} else {
|
$querystring = &uri_escape_utf8($env{'form.firsturl'});
|
$querystring = &uri_escape($env{'form.firsturl'});
|
} else {
|
|
$querystring = &uri_escape($env{'form.firsturl'});
|
|
}
|
|
$querystring = &HTML::Entities::encode($querystring,"'");
|
|
$querystring = '?firsturl='.$querystring;
|
}
|
}
|
$querystring = &HTML::Entities::encode($querystring,"'");
|
|
$url .='?firsturl='.$querystring;
|
|
}
|
|
if (($env{'form.ltoken'}) || ($env{'form.linkkey'} ne '')) {
|
|
my %link_info;
|
|
if ($env{'form.ltoken'}) {
|
if ($env{'form.ltoken'}) {
|
$link_info{'ltoken'} = $env{'form.ltoken'};
|
my %link_info = &Apache::lonnet::tmpget($env{'form.ltoken'});
|
} elsif ($env{'form.linkkey'} ne '') {
|
&Apache::lonnet::tmpdel($env{'form.ltoken'});
|
$link_info{'linkkey'} = $env{'form.linkkey'};
|
my $token = &Apache::lonnet::tmpput(\%link_info,$desthost,'link');
|
}
|
unless (($token eq 'con_lost') || ($token eq 'refused') || ($token =~ /^error:/) ||
|
my $token = &Apache::lonnet::tmpput(\%link_info,$desthost,'link');
|
($token eq 'unknown_cmd') || ($token eq 'no_such_host')) {
|
unless (($token eq 'con_lost') || ($token eq 'refused') ||
|
unless (($path eq '/adm/roles') || ($path eq '/adm/login')) {
|
($token eq 'unknown_cmd') || ($token eq 'no_such_host')) {
|
$url = $protocol.'://'.$hostname.'/adm/roles';
|
$url .= (($url=~/\?/)?'&':'?') . 'ttoken='.$token;
|
}
|
|
$querystring .= (($querystring =~/^\?/)?'&':'?') . 'ttoken='.$token;
|
|
}
|
}
|
}
|
|
$url .= $querystring;
|
}
|
}
|
my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef,
|
$args->{'redirect'} = [0,$url];
|
{'redirect' => [0,$url],});
|
my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef,$args);
|
my $end_page = &Apache::loncommon::end_page();
|
my $end_page = &Apache::loncommon::end_page();
|
return $start_page.$end_page;
|
return $start_page.$end_page;
|
}
|
}
|