--- loncom/auth/lonlogin.pm	2004/11/11 22:18:23	1.60
+++ loncom/auth/lonlogin.pm	2005/06/07 13:42:03	1.66
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.60 2004/11/11 22:18:23 raeburn Exp $
+# $Id: lonlogin.pm,v 1.66 2005/06/07 13:42:03 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,7 +32,7 @@ use strict;
 use Apache::Constants qw(:common);
 use CGI::Cookie();
 use Apache::File ();
-use Apache::lonnet();
+use Apache::lonnet;
 use Apache::loncommon();
 use Apache::lonauth();
 use Apache::lonlocal;
@@ -84,23 +84,23 @@ ENDFAILED
 # ---------------------------------------------------- No valid token, continue
 
     &Apache::loncommon::get_unprocessed_cgi
-     ($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},
+     ($ENV{'QUERY_STRING'}.'&'.$env{'request.querystring'},
       ['interface','username','domain','firsturl','localpath','localres']);
  
 
 # ----------------------------------------------------------- Process Interface
-    $ENV{'form.interface'}=~s/\W//g;
+    $env{'form.interface'}=~s/\W//g;
 
     my $textbrowsers=$r->dir_config('lonTextBrowsers');
     my $httpbrowser=$ENV{"HTTP_USER_AGENT"};
     
     foreach (split(/\:/,$textbrowsers)) {
 	if ($httpbrowser=~/$_/i) {
-	    $ENV{'form.interface'}='textual';
+	    $env{'form.interface'}='textual';
         }
     }
 
-    my $fullgraph=($ENV{'form.interface'} ne 'textual');
+    my $fullgraph=($env{'form.interface'} ne 'textual');
     my $port_to_use=$r->dir_config('lonhttpdPort');
     if (!defined($port_to_use)) {
 	$port_to_use='8080';
@@ -108,9 +108,9 @@ ENDFAILED
     my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use.
                   $r->dir_config('lonIconsURL');
     my $domain  = $r->dir_config('lonDefDomain');
-    if (($ENV{'form.domain'}) && 
-	 ($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) {
-	$domain=$ENV{'form.domain'};
+    if (($env{'form.domain'}) && 
+	 ($Apache::lonnet::domaindescription{$env{'form.domain'}})) {
+	$domain=$env{'form.domain'};
     }
     my $role    = $r->dir_config('lonRole');
     my $loadlim = $r->dir_config('lonLoadLim');
@@ -124,8 +124,8 @@ ENDFAILED
 
 # --------------------------------------------- Default values for login fields
 
-    my $authusername=($ENV{'form.username'}?$ENV{'form.username'}:'');
-    my $authdomain=($ENV{'form.domain'}?$ENV{'form.domain'}:$domain);
+    my $authusername=($env{'form.username'}?$env{'form.username'}:'');
+    my $authdomain=($env{'form.domain'}?$env{'form.domain'}:$domain);
 
 # ---------------------------------------------------------- Determine own load
     my $loadavg;
@@ -140,7 +140,7 @@ ENDFAILED
 # ------------------------------------------------------- Do the load balancing
     my $otherserver='http://'.$ENV{'SERVER_NAME'};
     my $firsturl=
-    ($ENV{'request.firsturl'}?$ENV{'request.firsturl'}:$ENV{'form.firsturl'});
+    ($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'});
 # ---------------------------------------- Are we access server and overloaded?
     if (($role eq 'access') &&
 	(($userloadpercent>100.0)||($loadpercent>100.0))) {
@@ -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.='<br /><font size="+1"><a href="http://'.
                 $Apache::lonnet::hostname{$hostid}.
                 '/adm/login?domain='.$authdomain.'">'.
                 $Apache::lonnet::hostname{$hostid}.'</a>'.
                 ' (preferred)</font>'.$/;
+	    $last=$Apache::lonnet::hostname{$hostid};
         }
         $spares.= '<br />';
-        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.='<br /><a href="http://'.
                 $Apache::lonnet::hostname{$hostid}.
                 '/adm/login?domain='.$authdomain.'">'.
                 $Apache::lonnet::hostname{$hostid}.'</a>';
+	    $last=$Apache::lonnet::hostname{$hostid};
         }
 	$r->print(<<ENDTROUBLE);
 <html>
@@ -265,7 +279,8 @@ my %lt=&Apache::lonlocal::texthash(
                   'servadm' => 'Server Administration',
                   'sysadm' => 'System Administration',
                   'helpdesk' => 'Contact Helpdesk');
-
+# -------------------------------------------------- Change password field name
+    my $now=time;
 # ---------------------------------------------------------- Serve rest of page
     $r->print(<<ENDSCRIPT);
 
@@ -303,8 +318,15 @@ 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$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;
@@ -321,9 +343,11 @@ ENDSCRIPT
   <form name="server" action="$otherserver/adm/authenticate" method="post" target="_top">
    <input type="hidden" name="logtoken" value="$logtoken" />
    <input type="hidden" name="serverid" value="$lonhost" />
-   <input type="hidden" name="interface" value="$ENV{'form.interface'}" />
+   <input type="hidden" name="interface" value="$env{'form.interface'}" />
    <input type="hidden" name="uname" value="" />
-   <input type="hidden" name="upass" value="" />
+   <input type="hidden" name="upass0" value="" />
+   <input type="hidden" name="upass1" value="" />
+   <input type="hidden" name="upass2" value="" />
    <input type="hidden" name="udom" value="" />
    <input type="hidden" name="imagesuppress"  value="" />
    <input type="hidden" name="appletsuppress"  value="" />
@@ -331,8 +355,8 @@ ENDSCRIPT
    <input type="hidden" name="fontenhance"  value="" />
    <input type="hidden" name="blackwhite"  value="" />
    <input type="hidden" name="remember"  value="" />
-   <input type="hidden" name="localpath" value="$ENV{'form.localpath'}" />
-   <input type="hidden" name="localres" value="$ENV{'form.localres'}" />
+   <input type="hidden" name="localpath" value="$env{'form.localpath'}" />
+   <input type="hidden" name="localres" value="$env{'form.localres'}" />
   </form>
 ENDSERVERFORM
     if ($fullgraph) { $r->print(<<ENDTOP);
@@ -429,7 +453,7 @@ ENDNOOPT
       </tr>
       <tr>
        <td bgcolor="$mainbg"><font size=-1><b>&nbsp;&nbsp;&nbsp;$lt{'pw'}:</b></font></td>
-       <td bgcolor="$mainbg"><input type="password" name="upass" size="10" /></td>
+       <td bgcolor="$mainbg"><input type="password" name="upass$now" size="10" /></td>
       </tr>
       <tr>
        <td bgcolor="$mainbg"><font size=-1><b>&nbsp;&nbsp;&nbsp;$lt{'dom'}:</b></font></td>
@@ -447,7 +471,8 @@ ENDNOOPT
     </form>
 ENDLOGIN
     if ($fullgraph) {
-        my $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version);
+        my $helpdeskscript;
+        my $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version,$authdomain,\$helpdeskscript);
 	$r->print(<<ENDDOCUMENT);
    </td>
 
@@ -534,6 +559,7 @@ $domainlogo
 // the if prevents the script error if the browser can not handle this
 if ( document.client.uname ) { document.client.uname.focus(); }
 </script>
+$helpdeskscript
 
 ENDDOCUMENT
 }
@@ -542,11 +568,15 @@ ENDDOCUMENT
 }
 
 sub contactdisplay {
-    my ($lt,$sysadm,$servadm,$version) = @_;
+    my ($lt,$sysadm,$servadm,$version,$authdomain,$helpdeskscript) = @_;
     my $contactblock;
     my $showsysadm = 1;
     my $showservadm = 1;
-    my $showhelpdesk = 1;
+    my $showhelpdesk = 0;
+    my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
+    if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
+        $showhelpdesk = 1;
+    }
     if ($showsysadm) {
         $contactblock .= '<b>&nbsp;&nbsp;&nbsp;'.$$lt{'sysadm'}.':</b><br />'.
                          '<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$sysadm.'</tt><br />';
@@ -556,7 +586,21 @@ sub contactdisplay {
                          '<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$servadm.'</tt><br />&nbsp;<br />';
     }
     if ($showhelpdesk) {
-        $contactblock .= '<b>&nbsp;&nbsp;&nbsp;<a href="/adm/helpdesk">'.$$lt{'helpdesk'}.'</a></b><br />';
+        $contactblock .= '<b>&nbsp;&nbsp;&nbsp;<a href="javascript:helpdesk()">'.$$lt{'helpdesk'}.'</a></b><br />';
+        my $thisurl = &Apache::lonnet::escape('/adm/login');
+        $$helpdeskscript = <<"ENDSCRIPT";
+<script type="text/javascript">
+function helpdesk() {
+    var codedom = document.client.udom.value;
+    if (codedom == '') {
+        codedom = "$authdomain";
+    }
+    var querystr = "origurl=$thisurl&codedom="+codedom;
+    document.location.href = "/adm/helpdesk?"+querystr;
+    return;
+}
+</script>
+ENDSCRIPT
     }
     $contactblock .= <<"ENDBLOCK";
      &nbsp;&nbsp;&nbsp;$version