'
+ .'' if $forgotpw; +my $loginhelp = &loginhelpdisplay($authdomain,%lt); +$loginhelp .= '
' if $loginhelp; + # ---------------------------------------------------- Serve out DES JavaScript - { - my $jsh=Apache::File->new($include."/londes.js"); - $r->print(<$jsh>); - } +{ +my $jsh=Apache::File->new($include."/londes.js"); +$r->print(<$jsh>); +} # ---------------------------------------------------------- Serve rest of page - $r->print(<
');
-
+$helpdeskscript
- this.document.server.elements.udom.value
- =this.document.client.elements.udom.value;
+ENDDOCUMENT
+ my %endargs = ( 'noredirectlink' => 1, );
+ $r->print(&Apache::loncommon::end_page(\%endargs));
+ return OK;
+}
- uextkey=this.document.client.elements.uextkey.value;
- lextkey=this.document.client.elements.lextkey.value;
- initkeys();
+sub check_loginvia {
+ my ($domain,$lonhost) = @_;
+ if ($domain eq '' || $lonhost eq '') {
+ return;
+ }
+ my %domconfhash = &Apache::loncommon::get_domainconf($domain);
+ my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost};
+ my $loginvia_exempt = $domconfhash{$domain.'.login.loginvia_exempt_'.$lonhost};
+ my $output;
+ if ($loginvia ne '') {
+ my $noredirect;
+ my $ip = $ENV{'REMOTE_ADDR'};
+ if ($ip eq '127.0.0.1') {
+ $noredirect = 1;
+ } else {
+ if ($loginvia_exempt ne '') {
+ my @exempt = split(',',$loginvia_exempt);
+ if (grep(/^\Q$ip\E$/,@exempt)) {
+ $noredirect = 1;
+ }
+ }
+ }
+ unless ($noredirect) {
+ my ($newhost,$path);
+ if ($loginvia =~ /:/) {
+ ($newhost,$path) = split(':',$loginvia);
+ } else {
+ $newhost = $loginvia;
+ }
+ if ($newhost ne $lonhost) {
+ if (&Apache::lonnet::hostname($newhost) ne '') {
+ $output = &redirect_page($newhost,$path);
+ }
+ }
+ }
+ }
+ return $output;
+}
- this.document.server.elements.upass.value
- =crypted(this.document.client.elements.upass.value);
+sub redirect_page {
+ my ($desthost,$path) = @_;
+ my $protocol = $Apache::lonnet::protocol{$desthost};
+ $protocol = 'http' if ($protocol ne 'https');
+ unless ($path =~ m{^/}) {
+ $path = '/'.$path;
+ }
+ my $url = $protocol.'://'.&Apache::lonnet::hostname($desthost).$path;
+ if ($env{'form.firsturl'} ne '') {
+ $url .='?firsturl='.$env{'form.firsturl'};
+ }
+ my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef,
+ {'redirect' => [0,$url],});
+ my $end_page = &Apache::loncommon::end_page();
+ return $start_page.$end_page;
+}
+
+sub contactdisplay {
+ my ($lt,$servadm,$showadminmail,$authdomain,$helpdeskscript) = @_;
+ my $contactblock;
+ my $showhelpdesk = 0;
+ my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
+ if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
+ $showhelpdesk = 1;
+ }
+ if ($servadm && $showadminmail) {
+ $contactblock .= $$lt{'servadm'}.':
'. + ''.$servadm.'
'; + } + if ($showhelpdesk) { + $contactblock .= ''.$lt->{'helpdesk'}.'
'; + my $thisurl = &escape('/adm/login'); + $$helpdeskscript = <<"ENDSCRIPT"; + +ENDSCRIPT + } + return $contactblock; +} - this.document.server.submit(); +sub forgotpwdisplay { + my (%lt) = @_; + my $prompt_for_resetpw = 1; + if ($prompt_for_resetpw) { + return ''.$lt{'forgotpw'}.''; } + return; +} - +sub loginhelpdisplay { + my ($authdomain,%lt) = @_; + my $login_help = 1; + if ($login_help) { + my $dom = $authdomain; + if ($dom eq '') { + $dom = &Apache::lonnet::default_login_domain(); + } + my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom); + my $loginhelp_url = $helpconfig{'helpsettings'}{'loginhelpurl'}; + if ($loginhelp_url ne '') { + return ''.$lt{'help'}.''; + } else { + return ''.$lt{'help'}.''; + } + } + return; +} -Accessibility Options - -About LON-CAPA
-
-
'. + ''.$servadm.'
'; + } + if ($showhelpdesk) { + $contactblock .= ''.$lt->{'helpdesk'}.'
'; + my $thisurl = &escape('/adm/login'); + $$helpdeskscript = <<"ENDSCRIPT"; + +ENDSCRIPT + } + return $contactblock; +} - this.document.server.submit(); +sub forgotpwdisplay { + my (%lt) = @_; + my $prompt_for_resetpw = 1; + if ($prompt_for_resetpw) { + return ''.$lt{'forgotpw'}.''; } + return; +} - +sub loginhelpdisplay { + my ($authdomain,%lt) = @_; + my $login_help = 1; + if ($login_help) { + my $dom = $authdomain; + if ($dom eq '') { + $dom = &Apache::lonnet::default_login_domain(); + } + my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom); + my $loginhelp_url = $helpconfig{'helpsettings'}{'loginhelpurl'}; + if ($loginhelp_url ne '') { + return ''.$lt{'help'}.''; + } else { + return ''.$lt{'help'}.''; + } + } + return; +} -Accessibility Options - -About LON-CAPA
-
- |
-
-User Authentication - - - - - - |
-||||||||
-
|
-
-Laboratory for -Instructional -Technology in -Education |
- | |||||||