version 1.182, 2020/12/18 15:23:03
|
version 1.185, 2021/09/27 02:49:36
|
Line 47 sub handler {
|
Line 47 sub handler {
|
(join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'},
|
(join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'},
|
$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','linkkey']);
|
'token','role','symb','iptoken','btoken','ltoken','linkkey','saml']);
|
if (!defined($env{'form.firsturl'})) {
|
if (!defined($env{'form.firsturl'})) {
|
&Apache::lonacc::get_posted_cgi($r,['firsturl']);
|
&Apache::lonacc::get_posted_cgi($r,['firsturl']);
|
}
|
}
|
Line 143 sub handler {
|
Line 143 sub handler {
|
if ($balancer_token) {
|
if ($balancer_token) {
|
$dest .= (($dest=~/\?/)?'&;':'?') . 'btoken='.$balancer_token;
|
$dest .= (($dest=~/\?/)?'&;':'?') . 'btoken='.$balancer_token;
|
}
|
}
|
|
unless ($found_server eq $lonhost) {
|
|
my $alias = &Apache::lonnet::use_proxy_alias($r,$found_server);
|
|
$hostname = $alias if ($alias ne '');
|
|
}
|
my $url = $protocol.'://'.$hostname.$dest;
|
my $url = $protocol.'://'.$hostname.$dest;
|
my $start_page =
|
my $start_page =
|
&Apache::loncommon::start_page('Switching Server ...',undef,
|
&Apache::loncommon::start_page('Switching Server ...',undef,
|
Line 577 function enableInput() {
|
Line 581 function enableInput() {
|
|
|
ENDSCRIPT
|
ENDSCRIPT
|
|
|
# --------------------------------------------------- Print login screen header
|
my ($lonhost_in_use,@hosts,%defaultdomconf,$saml_prefix,$saml_landing,
|
|
$samlssotext,$samlnonsso,$samlssoimg,$samlssoalt,$samlssourl,$samltooltip);
|
my %add_entries = (
|
%defaultdomconf = &Apache::loncommon::get_domainconf($defdom);
|
bgcolor => "$mainbg",
|
|
text => "$font",
|
|
link => "$link",
|
|
vlink => "$vlink",
|
|
alink => "$alink",
|
|
onload => 'javascript:enableInput();',);
|
|
|
|
my ($lonhost_in_use,$headextra,$headextra_exempt,@hosts,%defaultdomconf);
|
|
@hosts = &Apache::lonnet::current_machine_ids();
|
@hosts = &Apache::lonnet::current_machine_ids();
|
$lonhost_in_use = $lonhost;
|
$lonhost_in_use = $lonhost;
|
if (@hosts > 1) {
|
if (@hosts > 1) {
|
Line 598 ENDSCRIPT
|
Line 594 ENDSCRIPT
|
}
|
}
|
}
|
}
|
}
|
}
|
%defaultdomconf = &Apache::loncommon::get_domainconf($defdom);
|
$saml_prefix = $defdom.'.login.saml_';
|
|
if ($defaultdomconf{$saml_prefix.$lonhost_in_use}) {
|
|
$saml_landing = 1;
|
|
$samlssotext = $defaultdomconf{$saml_prefix.'text_'.$lonhost_in_use};
|
|
$samlnonsso = $defaultdomconf{$saml_prefix.'notsso_'.$lonhost_in_use};
|
|
$samlssoimg = $defaultdomconf{$saml_prefix.'img_'.$lonhost_in_use};
|
|
$samlssoalt = $defaultdomconf{$saml_prefix.'alt_'.$lonhost_in_use};
|
|
$samlssourl = $defaultdomconf{$saml_prefix.'url_'.$lonhost_in_use};
|
|
$samltooltip = $defaultdomconf{$saml_prefix.'title_'.$lonhost_in_use};
|
|
}
|
|
if ($saml_landing) {
|
|
if ($samlssotext eq '') {
|
|
$samlssotext = 'SSO Login';
|
|
}
|
|
if ($samlnonsso eq '') {
|
|
$samlnonsso = 'Non-SSO Login';
|
|
}
|
|
$js .= <<"ENDSAMLJS";
|
|
|
|
<script type="text/javascript">
|
|
// <![CDATA[
|
|
function toggleLClogin() {
|
|
if (document.getElementById('LC_standard_login')) {
|
|
if (document.getElementById('LC_standard_login').style.display == 'none') {
|
|
document.getElementById('LC_standard_login').style.display = 'inline-block';
|
|
if (document.getElementById('LC_login_text')) {
|
|
document.getElementById('LC_login_text').innerHTML = '$samlnonsso';
|
|
}
|
|
if (document.getElementById('LC_SSO_login')) {
|
|
document.getElementById('LC_SSO_login').style.display = 'none';
|
|
}
|
|
} else {
|
|
document.getElementById('LC_standard_login').style.display = 'none';
|
|
if (document.getElementById('LC_login_text')) {
|
|
document.getElementById('LC_login_text').innerHTML = '$samlssotext';
|
|
}
|
|
if (document.getElementById('LC_SSO_login')) {
|
|
document.getElementById('LC_SSO_login').style.display = 'inline-block';
|
|
}
|
|
}
|
|
}
|
|
return;
|
|
}
|
|
|
|
// ]]>
|
|
</script>
|
|
|
|
ENDSAMLJS
|
|
}
|
|
|
|
# --------------------------------------------------- Print login screen header
|
|
|
|
my %add_entries = (
|
|
bgcolor => "$mainbg",
|
|
text => "$font",
|
|
link => "$link",
|
|
vlink => "$vlink",
|
|
alink => "$alink",
|
|
onload => 'javascript:enableInput();',);
|
|
|
|
my ($headextra,$headextra_exempt,%defaultdomconf);
|
$headextra = $defaultdomconf{$defdom.'.login.headtag_'.$lonhost_in_use};
|
$headextra = $defaultdomconf{$defdom.'.login.headtag_'.$lonhost_in_use};
|
$headextra_exempt = $defaultdomconf{$domain.'.login.headtag_exempt_'.$lonhost_in_use};
|
$headextra_exempt = $defaultdomconf{$domain.'.login.headtag_exempt_'.$lonhost_in_use};
|
if ($headextra) {
|
if ($headextra) {
|
Line 643 ENDSCRIPT
|
Line 699 ENDSCRIPT
|
'helpdesk' => 'Contact Helpdesk',
|
'helpdesk' => 'Contact Helpdesk',
|
'forgotpw' => 'Forgot password?',
|
'forgotpw' => 'Forgot password?',
|
'newuser' => 'New User?',
|
'newuser' => 'New User?',
|
|
'change' => 'Change?',
|
);
|
);
|
# -------------------------------------------------- Change password field name
|
# -------------------------------------------------- Change password field name
|
|
|
Line 704 ENDSERVERFORM
|
Line 761 ENDSERVERFORM
|
$mobileargs = 'autocapitalize="off" autocorrect="off"';
|
$mobileargs = 'autocapitalize="off" autocorrect="off"';
|
}
|
}
|
my $loginform=(<<LFORM);
|
my $loginform=(<<LFORM);
|
<form name="client" action="" onsubmit="return(send())">
|
<form name="client" action="" onsubmit="return(send())" id="lclogin">
|
<input type="hidden" name="lextkey" value="$lextkey" />
|
<input type="hidden" name="lextkey" value="$lextkey" />
|
<input type="hidden" name="uextkey" value="$uextkey" />
|
<input type="hidden" name="uextkey" value="$uextkey" />
|
<b><label for="uname">$lt{'un'}</label>:</b><br />
|
<b><label for="uname">$lt{'un'}</label>:</b><br />
|
Line 725 LFORM
|
Line 782 LFORM
|
</div>
|
</div>
|
HEADER
|
HEADER
|
}
|
}
|
$r->print(<<ENDTOP);
|
|
<div style="float:left;margin-top:0;">
|
my $stdauthformstyle = 'inline-block';
|
|
my $ssoauthstyle = 'none';
|
|
my $logintype;
|
|
$r->print('<div style="float:left;margin-top:0;">');
|
|
if ($saml_landing) {
|
|
$ssoauthstyle = 'inline-block';
|
|
$stdauthformstyle = 'none';
|
|
$logintype = $samlssotext;
|
|
my $ssologin = '/adm/sso';
|
|
if ($samlssourl ne '') {
|
|
$ssologin = $samlssourl;
|
|
}
|
|
my $ssohref;
|
|
if ($samlssoimg ne '') {
|
|
$ssohref = '<a href="'.$ssologin.'" title="'.$samltooltip.'"><img src="'.$samlssoimg.'" alt="'.$samlssoalt.'" /></a>';
|
|
} else {
|
|
$ssohref = '<a href="'.$ssologin.'">'.$samlssotext.'</a>';
|
|
}
|
|
if ($env{'form.firsturl'}) {
|
|
$ssologin .= '?origurl='.&HTML::Entities::encode($env{'form.firsturl'},'<>&"');
|
|
}
|
|
if (($env{'form.saml'} eq 'no') ||
|
|
(($env{'form.username'} ne '') && ($env{'form.domain'} ne ''))) {
|
|
$ssoauthstyle = 'none';
|
|
$stdauthformstyle = 'inline-block';
|
|
$logintype = $samlnonsso;
|
|
}
|
|
$r->print(<<ENDSAML);
|
|
<p>
|
|
Log-in type:
|
|
<span style="font-weight:bold" id="LC_login_text">$logintype</span><br />
|
|
<span><a href="javascript:toggleLClogin();" style="color:#000000">$lt{'change'}</a></span>
|
|
</p>
|
|
<div style="display:$ssoauthstyle" id="LC_SSO_login">
|
|
<div class="LC_Box" style="padding-top: 10px;">
|
|
$ssohref
|
|
$noscript_warning
|
|
</div>
|
|
<div class="LC_Box" style="padding-top: 10px;">
|
|
$loginhelp
|
|
$contactblock
|
|
$coursecatalog
|
|
</div>
|
|
</div>
|
|
ENDSAML
|
|
}
|
|
|
|
$r->print(<<ENDLOGIN);
|
|
<div style="display:$stdauthformstyle;" id="LC_standard_login">
|
<div class="LC_Box" style="background:$loginbox_bg;">
|
<div class="LC_Box" style="background:$loginbox_bg;">
|
$logintitle
|
$logintitle
|
$loginform
|
$loginform
|
Line 742 HEADER
|
Line 847 HEADER
|
</div>
|
</div>
|
</div>
|
</div>
|
|
|
<div>
|
ENDLOGIN
|
ENDTOP
|
$r->print('</div><div>'."\n");
|
if ($showmainlogo) {
|
if ($showmainlogo) {
|
$r->print(' <img src="'.$logo.'" alt="" class="LC_maxwidth" />'."\n");
|
$r->print(' <img src="'.$logo.'" alt="" class="LC_maxwidth" />'."\n");
|
}
|
}
|