--- loncom/auth/lonlogin.pm 2003/11/12 16:55:40 1.55 +++ loncom/auth/lonlogin.pm 2004/12/18 23:58:34 1.61 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.55 2003/11/12 16:55:40 www Exp $ +# $Id: lonlogin.pm,v 1.61 2004/12/18 23:58:34 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,7 +68,6 @@ sub handler {
Please either continue the current session or
@@ -135,7 +134,7 @@ ENDFAILED
$loadavg=<$loadfile>;
}
$loadavg =~ s/\s.*//g;
- my $loadpercent=100*$loadavg/$loadlim;
+ my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim);
my $userloadpercent=&Apache::lonnet::userload();
# ------------------------------------------------------- Do the load balancing
@@ -180,15 +179,22 @@ ENDFAILED
if ($logtoken eq 'con_lost') {
my $spares='';
- foreach (keys %Apache::lonnet::hostname) {
- if ($_ ne $lonhost) {
- $spares.='
'.
- $Apache::lonnet::hostname{$_}.'';
- if ($Apache::lonnet::spareid{$_}) {
- $spares.=' (preferred)';
- }
- }
+
+ foreach my $hostid (keys(%Apache::lonnet::spareid)) {
+ next if ($hostid eq $lonhost);
+ $spares.='
'.
+ $Apache::lonnet::hostname{$hostid}.''.
+ ' (preferred)'.$/;
+ }
+ $spares.= '
';
+ foreach my $hostid (keys(%Apache::lonnet::hostname)) {
+ next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid});
+ $spares.='
'.
+ $Apache::lonnet::hostname{$hostid}.'';
}
$r->print(<
-
- $lt{'sysadm'}:
- $sysadm
- $lt{'servadm'}:
- $servadm
- $version
-
+ $contactblock
@@ -529,8 +530,8 @@ $domainlogo
-
@@ -538,7 +539,31 @@ ENDDOCUMENT
}
$r->print('