version 1.54, 2003/09/21 20:06:36
|
version 1.58, 2004/08/10 18:55:13
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, |
|
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9, |
|
# 1/17/01 Gerd Kortemeyer |
|
# |
|
# 2/7/02,2/8,2/12,2/14,2/15,2/19 Josh Brunskole |
|
# |
|
# 7/10/02 Jeremy Bowers |
|
|
|
package Apache::lonlogin; |
package Apache::lonlogin; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
use CGI::Cookie(); |
use Apache::File (); |
use Apache::File (); |
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 58 sub handler {
|
Line 52 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
|
# -------------------------------- Prevent users from attempting to login twice |
|
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
|
my $lonid=$cookies{'lonID'}; |
|
my $cookie; |
|
if ($lonid) { |
|
my $handle=$lonid->value; |
|
$handle=~s/\W//g; |
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
|
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
|
# Indeed, a valid token is found |
|
my $bodytag=&Apache::loncommon::bodytag('Already logged in'); |
|
$r->print(<<ENDFAILED); |
|
<html> |
|
<head> |
|
<title>Already logged in</title> |
|
</head> |
|
$bodytag |
|
<h1>You are already logged in</h1> |
|
<p>Please either <a href="/adm/roles">continue the current session</a> or |
|
<a href="/adm/logout">logout</a>.</p> |
|
<p> |
|
<a href="/adm/loginproblems.html">Problems?</a></p> |
|
</body> |
|
</html> |
|
ENDFAILED |
|
return OK; |
|
} |
|
} |
|
|
|
# ---------------------------------------------------- No valid token, continue |
|
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'}, |
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'}, |
['interface','username','domain','firsturl','localpath','localres']); |
['interface','username','domain','firsturl','localpath','localres']); |
Line 109 sub handler {
|
Line 134 sub handler {
|
$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 |
Line 154 sub handler {
|
Line 179 sub handler {
|
|
|
if ($logtoken eq 'con_lost') { |
if ($logtoken eq 'con_lost') { |
my $spares=''; |
my $spares=''; |
foreach (keys %Apache::lonnet::hostname) { |
|
if ($_ ne $lonhost) { |
foreach my $hostid (keys(%Apache::lonnet::spareid)) { |
$spares.='<br /><a href="http://'.$Apache::lonnet::hostname{$_}. |
next if ($hostid eq $lonhost); |
'/adm/login?domain='.$authdomain.'">'. |
$spares.='<br /><font size="+1"><a href="http://'. |
$Apache::lonnet::hostname{$_}.'</a>'; |
$Apache::lonnet::hostname{$hostid}. |
if ($Apache::lonnet::spareid{$_}) { |
'/adm/login?domain='.$authdomain.'">'. |
$spares.=' (preferred)'; |
$Apache::lonnet::hostname{$hostid}.'</a>'. |
} |
' (preferred)</font>'.$/; |
} |
} |
|
$spares.= '<br />'; |
|
foreach my $hostid (keys(%Apache::lonnet::hostname)) { |
|
next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid}); |
|
$spares.='<br /><a href="http://'. |
|
$Apache::lonnet::hostname{$hostid}. |
|
'/adm/login?domain='.$authdomain.'">'. |
|
$Apache::lonnet::hostname{$hostid}.'</a>'; |
} |
} |
$r->print(<<ENDTROUBLE); |
$r->print(<<ENDTROUBLE); |
<html> |
<html> |