-
-Domain: |
- $domain |
- LON System Administration:
- $sysadm
- Server Administration:
- $servadm |
-Server: |
- $lonhost ($role) |
-Load: |
- $loadpercent percent |
+# ------------------- If we cannot talk to ourselves, we are in serious trouble
+
+ if ($logtoken eq 'con_lost') {
+ my $spares='';
+ my $last;
+ foreach my $hostid (sort
+ {
+ &Apache::lonnet::hostname($a) cmp
+ &Apache::lonnet::hostname($b);
+ }
+ keys(%Apache::lonnet::spareid)) {
+ next if ($hostid eq $lonhost);
+ my $hostname = &Apache::lonnet::hostname($hostid);
+ next if ($last eq $hostname);
+ $spares.=' '.
+ $hostname.''.
+ ' '.&mt('(preferred)').''.$/;
+ $last=$hostname;
+ }
+$spares.= ' ';
+my %all_hostnames = &Apache::lonnet::all_hostnames();
+foreach my $hostid (sort
+ {
+ &Apache::lonnet::hostname($a) cmp
+ &Apache::lonnet::hostname($b);
+ }
+ keys(%all_hostnames)) {
+ next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid});
+ my $hostname = &Apache::lonnet::hostname($hostid);
+ next if ($last eq $hostname);
+ $spares.=' '.
+ $hostname.'';
+ $last=$hostname;
+}
+$r->print(
+ ''
+ .''
+ .&mt('The LearningOnline Network with CAPA')
+ .''
+ .''
+ .''.&mt('The LearningOnline Network with CAPA').''
+ .''
+ .''.&mt('This LON-CAPA server is temporarily not available for login.').''
+ .''.&mt('Please attempt to login to one of the following servers:').' '
+ .$spares
+ .''
+ .''
+);
+return OK;
+}
+
+# ----------------------------------------------- Apparently we are in business
+$servadm=~s/\,/\ /g;
+
+# ----------------------------------------------------------- Front page design
+my $pgbg=
+($fullgraph?&Apache::loncommon::designparm('login.pgbg',$domain):'#FFFFFF');
+my $font=
+($fullgraph?&Apache::loncommon::designparm('login.font',$domain):'#000000');
+my $link=
+($fullgraph?&Apache::loncommon::designparm('login.link',$domain):'#0000FF');
+my $vlink=
+($fullgraph?&Apache::loncommon::designparm('login.vlink',$domain):'#0000FF');
+my $alink=&Apache::loncommon::designparm('login.alink',$domain);
+my $mainbg=
+($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF');
+my $sidebg=
+($fullgraph?&Apache::loncommon::designparm('login.sidebg',$domain):'#FFFFFF');
+my $textcol =
+($fullgraph?&Apache::loncommon::designparm('login.textcol',$domain):'#000000');
+my $bgcol =
+($fullgraph?&Apache::loncommon::designparm('login.bgcol',$domain):'#FFFFFF');
+my $logo=&Apache::loncommon::designparm('login.logo',$domain);
+my $img=&Apache::loncommon::designparm('login.img',$domain);
+my $domainlogo=&Apache::loncommon::domainlogo($domain);
+my $login=&Apache::loncommon::designparm('login.login',$domain);
+if ($login eq '') {
+$login = $iconpath.'/'.&mt('userauthentication.gif');
+}
+my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain);
+my $showcoursecat =
+&Apache::loncommon::designparm('login.coursecatalog',$domain);
+my $loginheader =&Apache::loncommon::designparm('login.loginheader',$domain);
+my $shownewuserlink =
+&Apache::loncommon::designparm('login.newuser',$domain);
+my $now=time;
+my $js = (<
+function send()
+{
+this.document.server.elements.uname.value
+=this.document.client.elements.uname.value;
+
+this.document.server.elements.udom.value
+=this.document.client.elements.udom.value;
+
+uextkey=this.document.client.elements.uextkey.value;
+lextkey=this.document.client.elements.lextkey.value;
+initkeys();
+
+this.document.server.elements.upass0.value
+ =crypted(this.document.client.elements.upass$now.value.substr(0,15));
+this.document.server.elements.upass1.value
+ =crypted(this.document.client.elements.upass$now.value.substr(15,15));
+this.document.server.elements.upass2.value
+ =crypted(this.document.client.elements.upass$now.value.substr(30,15));
+
+this.document.client.elements.uname.value='';
+this.document.client.elements.upass$now.value='';
+
+this.document.server.submit();
+return false;
+}
+
+
+ENDSCRIPT
+
+# --------------------------------------------------- Print login screen header
+
+my %add_entries = (topmargin => "0",
+ leftmargin => "0",
+ marginheight => "0",
+ marginwidth => "0",
+ bgcolor => "$pgbg",
+ text => "$font",
+ link => "$link",
+ vlink => "$vlink",
+ alink => "$alink",);
+
+$r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js,
+ { 'redirect' => [$expire,'/adm/roles'],
+ 'add_entries' => \%add_entries,
+ 'only_body' => 1,}));
+
+# ----------------------------------------------------------------------- Texts
+
+my %lt=&Apache::lonlocal::texthash(
+ 'un' => 'Username',
+ 'pw' => 'Password',
+ 'dom' => 'Domain',
+ 'perc' => 'percent',
+ 'load' => 'Server Load',
+ 'userload' => 'User Load',
+ 'about' => 'About LON-CAPA',
+ 'catalog' => 'Course Catalog',
+ 'log' => 'Log in',
+ 'help' => 'Log-in Help',
+ 'serv' => 'Server',
+ 'servadm' => 'Server Administration',
+ 'helpdesk' => 'Contact Helpdesk',
+ 'forgotpw' => 'Forgot password?',
+ 'newuser' => 'New User?',
+ 'options_headline' => 'Select Accessibility Options',
+ 'sprs_img' => 'Suppress rendering of images',
+ 'sprs_applet' => 'Suppress Java applets',
+ 'sprs_embed' => 'Suppress rendering of embedded multimedia',
+ 'sprs_font' => 'Increase font size',
+ 'sprs_blackwhite' => 'Switch to black and white mode',
+ 'remember' => 'Remember these settings for next login');
+# -------------------------------------------------- Change password field name
+my $forgotpw = &forgotpwdisplay(%lt);
+my $loginhelp = &loginhelpdisplay(%lt);
+
+# ---------------------------------------------------- Serve out DES JavaScript
+{
+my $jsh=Apache::File->new($include."/londes.js");
+$r->print(<$jsh>);
+}
+# ---------------------------------------------------------- Serve rest of page
+
+if ($fullgraph) {
+$r->print(
+ '
-
- |