'
+ .'' if $forgotpw; + my $loginhelp = &Apache::lonauth::loginhelpdisplay($authdomain); + if ($loginhelp) { + $loginhelp = ''.$lt{'help'}.'
'; + } + +# ---------------------------------------------------- Serve out DES JavaScript + { + my $jsh=Apache::File->new($include."/londes.js"); + $r->print(<$jsh>); + } +# ---------------------------------------------------------- Serve rest of page + + $r->print( + '
'
+);
+
+ $r->print(<
+
+
+
+
+
+
+
+
+ENDSERVERFORM
+ my $coursecatalog;
+ if (($showcoursecat eq '') || ($showcoursecat)) {
+ $coursecatalog = &coursecatalog_link($lt{'catalog'}).'
'; + } + my $newuserlink; + if ($shownewuserlink) { + $newuserlink = &newuser_link($lt{'newuser'}).'
'; + } + my $logintitle = + '
+
+
+ :
+
+ :
+
+ :
+
+ + +LFORM + + if ($showbanner) { + my $alttext = &Apache::loncommon::designparm('login.alttext_img',$domain); + if ($alttext eq '') { + $alttext = 'The Learning Online Network with CAPA'; + } + $r->print(<
+
'; + } + my $newuserlink; + if ($shownewuserlink) { + $newuserlink = &newuser_link($lt{'newuser'}).'
'; + } + my $logintitle = + '
' + .$lt{'log'} + .'
'; + + my $noscript_warning=''; + my $helpdeskscript; + my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, + $authdomain,\$helpdeskscript, + $showhelpdesk,\@possdoms); + + my $mobileargs; + if ($clientmobile) { + $mobileargs = 'autocapitalize="off" autocorrect="off"'; + } + my $loginform=(<+
+ :
+
+ :
+
+ + +LFORM + + if ($showbanner) { + my $alttext = &Apache::loncommon::designparm('login.alttext_img',$domain); + if ($alttext eq '') { + $alttext = 'The Learning Online Network with CAPA'; + } + $r->print(<
+ 
+
+HEADER
+ }
+
+ my $stdauthformstyle = 'inline-block';
+ my $ssoauthstyle = 'none';
+ my $sso_onclick;
+ my $logintype;
+ $r->print('');
+ if ($saml_landing) {
+ $ssoauthstyle = 'inline-block';
+ $stdauthformstyle = 'none';
+ $logintype = $samlssotext;
+ my $ssologin = '/adm/sso';
+ if ($samlssourl ne '') {
+ $ssologin = $samlssourl;
+ }
+ my $ssologin_for_js = &js_escape($ssologin);
+ my $querystr_for_js;
+ if (($logtoken eq 'con_lost') || ($logtoken eq 'no_such_host')) {
+ my $querystring;
+ if ($env{'form.firsturl'} ne '') {
+ $querystring = 'origurl=';
+ if ($env{'form.firsturl'} =~ /[^\x00-\xFF]/) {
+ $querystring .= &uri_escape_utf8($env{'form.firsturl'});
+ } else {
+ $querystring .= &uri_escape($env{'form.firsturl'});
+ }
+ $querystring = &HTML::Entities::encode($querystring,"'");
+ }
+ if ($env{'form.ltoken'} ne '') {
+ $querystring .= (($querystring eq '')?'':'&') . 'ltoken='.
+ &HTML::Entities::encode(&uri_escape($env{'form.ltoken'}));
+ } elsif ($env{'form.linkkey'}) {
+ $querystring .= (($querystring eq '')?'':'&') . 'linkkey='.
+ &HTML::Entities::encode(&uri_escape($env{'form.linkkey'}));
+ }
+ if ($querystring ne '') {
+ $ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;
+ $querystr_for_js = &js_escape($querystring);
+ }
+ } elsif ($logtoken ne '') {
+ $ssologin .= (($ssologin=~/\?/)?'&':'?') . 'logtoken='.$logtoken;
+ $querystr_for_js = &js_escape('logtoken='.$logtoken);
+ }
+ 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 '') {
+ $ssohref = ''.
+ '
';
+ } else {
+ $ssohref = ''.$samlssotext.'';
+ }
+ if (($env{'form.saml'} eq 'no') ||
+ (($env{'form.username'} ne '') && ($env{'form.domain'} ne ''))) {
+ $ssoauthstyle = 'none';
+ $stdauthformstyle = 'inline-block';
+ $logintype = $samlnonsso;
+ }
+ $r->print(<
+Log-in type:
+$logintype
+$lt{'change'} + +
+//
+
+ENDJS
+ }
+ } elsif ($samlwindow) {
+ $in_frame_js = <
+//
+
+ENDJS
+ }
+
+ $r->print(<
+
+
+ENDLOGIN
+ $r->print('+$lt{'change'} + +
+
+ENDSAML
+ } else {
+ if ($env{'form.ltoken'}) {
+ &Apache::lonnet::tmpdel($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 = <
+$ssohref
+$noscript_warning
+
+
+$loginhelp
+$contactblock
+$coursecatalog
+
+
+ $logintitle
+ $loginform
+ $noscript_warning
+
+
+
+ $loginhelp
+ $forgotpw
+ $contactblock
+ $newuserlink
+ $coursecatalog
+
+'."\n");
+ if ($showmainlogo) {
+ my $alttext = &Apache::loncommon::designparm('login.alttext_logo',$domain);
+ $r->print(' 
'."\n");
+ }
+$r->print(<
+
+ENDTOP + my ($domainrow,$serverrow,$loadrow,$userloadrow,$versionrow); + $domainrow = <<"END"; +
+
+ $lt{'dom'}:
+
+
+ $domain
+
+
+END
+ $serverrow = <<"END";
+
+
+ $lt{'serv'}:
+
+
+ $lonhost ($role)
+
+
+END
+ if ($loadlim) {
+ $loadrow = <<"END";
+
+
+ $lt{'load'}:
+
+
+ $loadpercent $lt{'perc'}
+
+
+END
+ }
+ if ($uloadlim) {
+ $userloadrow = <<"END";
+
+
+ $lt{'userload'}:
+
+
+ $userloadpercent $lt{'perc'}
+
+
+END
+ }
+ if (($version ne '') && ($version ne '')) {
+ $versionrow = <<"END";
+
+
+ $version
+
+
+END
+ }
+
$r->print(<
-
-The LearningOnline Network Login
-
-
-
-
-
-
+ENDTOP + my ($domainrow,$serverrow,$loadrow,$userloadrow,$versionrow); + $domainrow = <<"END"; +
 |
-
- - - - |
-|||||||||
-
-The LearningOnline Network is a MSU College of Natural Science
-collaboration involving Competency Based
-Instruction (CBI),
-LectureOnline (LOL) and Computer-Assisted Personalized
-Approach (CAPA). |
-
|
