version 1.55.4.1, 2004/02/10 19:23:11
|
version 1.57, 2004/05/07 14:25:17
|
Line 68 sub handler {
|
Line 68 sub handler {
|
<head> |
<head> |
<title>Already logged in</title> |
<title>Already logged in</title> |
</head> |
</head> |
<html> |
|
$bodytag |
$bodytag |
<h1>You are already logged in</h1> |
<h1>You are already logged in</h1> |
<p>Please either <a href="/adm/roles">continue the current session</a> or |
<p>Please either <a href="/adm/roles">continue the current session</a> or |
Line 109 ENDFAILED
|
Line 108 ENDFAILED
|
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use. |
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use. |
$r->dir_config('lonIconsURL'); |
$r->dir_config('lonIconsURL'); |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
my $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0]; |
|
foreach my $posdom (values(%Apache::lonnet::hostdom)) { |
|
if ($posdom eq $testdomain) { $domain=$testdomain; } |
|
} |
|
if (($ENV{'form.domain'}) && |
if (($ENV{'form.domain'}) && |
($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) { |
($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) { |
$domain=$ENV{'form.domain'}; |
$domain=$ENV{'form.domain'}; |
Line 139 ENDFAILED
|
Line 134 ENDFAILED
|
$loadavg=<$loadfile>; |
$loadavg=<$loadfile>; |
} |
} |
$loadavg =~ s/\s.*//g; |
$loadavg =~ s/\s.*//g; |
my $loadpercent=100*$loadavg/$loadlim; |
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); |
my $userloadpercent=&Apache::lonnet::userload(); |
my $userloadpercent=&Apache::lonnet::userload(); |
|
|
# ------------------------------------------------------- Do the load balancing |
# ------------------------------------------------------- Do the load balancing |