version 1.138, 2010/05/21 15:54:34
|
version 1.140, 2010/08/25 16:34:32
|
Line 152 sub handler {
|
Line 152 sub handler {
|
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); |
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); |
my $userloadpercent=&Apache::lonnet::userload(); |
my $userloadpercent=&Apache::lonnet::userload(); |
|
|
# ------------------------------------------------------- Do the load balancing |
|
my $otherserver= &Apache::lonnet::absolute_url($host_name); |
|
my $firsturl= |
my $firsturl= |
($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'}); |
($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'}); |
# ---------------------------------------------------------- Are we overloaded? |
|
if ((($userloadpercent>100.0)||($loadpercent>100.0))) { |
|
my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent); |
|
if ($unloaded) { $otherserver=$unloaded; } |
|
} |
|
|
|
# ----------------------------------------------------------- Get announcements |
# ----------------------------------------------------------- Get announcements |
my $announcements=&Apache::lonnet::getannounce(); |
my $announcements=&Apache::lonnet::getannounce(); |
# -------------------------------------------------------- Set login parameters |
# -------------------------------------------------------- Set login parameters |
Line 313 this.document.client.elements.upass$now.
|
Line 305 this.document.client.elements.upass$now.
|
this.document.server.submit(); |
this.document.server.submit(); |
return false; |
return false; |
} |
} |
|
|
|
function enableInput() { |
|
this.document.client.elements.upass$now.removeAttribute("readonly"); |
|
this.document.client.elements.uname.removeAttribute("readonly"); |
|
this.document.client.elements.udom.removeAttribute("readonly"); |
|
return; |
|
} |
|
|
// ]]> |
// ]]> |
</script> |
</script> |
|
|
Line 325 my %add_entries = (
|
Line 325 my %add_entries = (
|
text => "$font", |
text => "$font", |
link => "$link", |
link => "$link", |
vlink => "$vlink", |
vlink => "$vlink", |
alink => "$alink",); |
alink => "$alink", |
|
onload => 'javascript:enableInput();',); |
|
|
$r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js, |
$r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js, |
{ 'redirect' => [$expire,'/adm/roles'], |
{ 'redirect' => [$expire,'/adm/roles'], |
Line 375 $r->print(
|
Line 376 $r->print(
|
# |
# |
|
|
$r->print(<<ENDSERVERFORM); |
$r->print(<<ENDSERVERFORM); |
<form name="server" action="$otherserver/adm/authenticate" method="post" target="_top"> |
<form name="server" action="/adm/authenticate" method="post" target="_top"> |
<input type="hidden" name="logtoken" value="$logtoken" /> |
<input type="hidden" name="logtoken" value="$logtoken" /> |
<input type="hidden" name="serverid" value="$lonhost" /> |
<input type="hidden" name="serverid" value="$lonhost" /> |
<input type="hidden" name="uname" value="" /> |
<input type="hidden" name="uname" value="" /> |
Line 414 my $loginform=(<<LFORM);
|
Line 415 my $loginform=(<<LFORM);
|
<input type="hidden" name="lextkey" value="$lextkey" /> |
<input type="hidden" name="lextkey" value="$lextkey" /> |
<input type="hidden" name="uextkey" value="$uextkey" /> |
<input type="hidden" name="uextkey" value="$uextkey" /> |
<b><label for="uname">$lt{'un'}</label>:</b><br /> |
<b><label for="uname">$lt{'un'}</label>:</b><br /> |
<input type="text" name="uname" id="uname" size="15" value="$authusername" /><br /> |
<input type="text" name="uname" id="uname" size="15" value="$authusername" readonly="readonly" /><br /> |
<b><label for="upass$now">$lt{'pw'}</label>:</b><br /> |
<b><label for="upass$now">$lt{'pw'}</label>:</b><br /> |
<input type="password" name="upass$now" id="upass$now" size="15" /><br /> |
<input type="password" name="upass$now" id="upass$now" size="15" readonly="readonly" /><br /> |
<b><label for="udom">$lt{'dom'}</label>:</b><br /> |
<b><label for="udom">$lt{'dom'}</label>:</b><br /> |
<input type="text" name="udom" id="udom" size="15" value="$authdomain" /><br /> |
<input type="text" name="udom" id="udom" size="15" value="$authdomain" readonly="readonly" /><br /> |
<input type="submit" value="$lt{'log'}" /> |
<input type="submit" value="$lt{'log'}" /> |
</form> |
</form> |
LFORM |
LFORM |