--- loncom/auth/lonlogin.pm 2005/04/07 06:56:21 1.63
+++ loncom/auth/lonlogin.pm 2005/06/07 02:14:28 1.65
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.63 2005/04/07 06:56:21 albertel Exp $
+# $Id: lonlogin.pm,v 1.65 2005/06/07 02:14:28 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -179,22 +179,36 @@ ENDFAILED
if ($logtoken eq 'con_lost') {
my $spares='';
-
- foreach my $hostid (keys(%Apache::lonnet::spareid)) {
+ my $last;
+ foreach my $hostid (sort
+ {
+ $Apache::lonnet::hostname{$a} cmp
+ $Apache::lonnet::hostname{$b};
+ }
+ keys(%Apache::lonnet::spareid)) {
next if ($hostid eq $lonhost);
+ next if ($last eq $Apache::lonnet::hostname{$hostid});
$spares.='
'.
$Apache::lonnet::hostname{$hostid}.''.
' (preferred)'.$/;
+ $last=$Apache::lonnet::hostname{$hostid};
}
$spares.= '
';
- foreach my $hostid (keys(%Apache::lonnet::hostname)) {
+ foreach my $hostid (sort
+ {
+ $Apache::lonnet::hostname{$a} cmp
+ $Apache::lonnet::hostname{$b};
+ }
+ keys(%Apache::lonnet::hostname)) {
next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid});
+ next if ($last eq $Apache::lonnet::hostname{$hostid});
$spares.='
'.
$Apache::lonnet::hostname{$hostid}.'';
+ $last=$Apache::lonnet::hostname{$hostid};
}
$r->print(<
@@ -303,8 +317,12 @@ my %lt=&Apache::lonlocal::texthash(
lextkey=this.document.client.elements.lextkey.value;
initkeys();
- this.document.server.elements.upass.value
- =crypted(this.document.client.elements.upass.value);
+ this.document.server.elements.upass0.value
+ =crypted(this.document.client.elements.upass.value.substr(0,15));
+ this.document.server.elements.upass1.value
+ =crypted(this.document.client.elements.upass.value.substr(15,15));
+ this.document.server.elements.upass2.value
+ =crypted(this.document.client.elements.upass.value.substr(30,15));
this.document.server.submit();
return false;
@@ -323,7 +341,9 @@ ENDSCRIPT
-
+
+
+