version 1.57, 2004/05/07 14:25:17
|
version 1.64, 2005/04/28 01:19:20
|
Line 32 use strict;
|
Line 32 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use CGI::Cookie(); |
use CGI::Cookie(); |
use Apache::File (); |
use Apache::File (); |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonauth(); |
use Apache::lonauth(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
Line 84 ENDFAILED
|
Line 84 ENDFAILED
|
# ---------------------------------------------------- No valid token, continue |
# ---------------------------------------------------- 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']); |
|
|
|
|
# ----------------------------------------------------------- Process Interface |
# ----------------------------------------------------------- Process Interface |
$ENV{'form.interface'}=~s/\W//g; |
$env{'form.interface'}=~s/\W//g; |
|
|
my $textbrowsers=$r->dir_config('lonTextBrowsers'); |
my $textbrowsers=$r->dir_config('lonTextBrowsers'); |
my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; |
my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; |
|
|
foreach (split(/\:/,$textbrowsers)) { |
foreach (split(/\:/,$textbrowsers)) { |
if ($httpbrowser=~/$_/i) { |
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'); |
my $port_to_use=$r->dir_config('lonhttpdPort'); |
if (!defined($port_to_use)) { |
if (!defined($port_to_use)) { |
$port_to_use='8080'; |
$port_to_use='8080'; |
Line 108 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'); |
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'}; |
} |
} |
my $role = $r->dir_config('lonRole'); |
my $role = $r->dir_config('lonRole'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
Line 124 ENDFAILED
|
Line 124 ENDFAILED
|
|
|
# --------------------------------------------- Default values for login fields |
# --------------------------------------------- Default values for login fields |
|
|
my $authusername=($ENV{'form.username'}?$ENV{'form.username'}:''); |
my $authusername=($env{'form.username'}?$env{'form.username'}:''); |
my $authdomain=($ENV{'form.domain'}?$ENV{'form.domain'}:$domain); |
my $authdomain=($env{'form.domain'}?$env{'form.domain'}:$domain); |
|
|
# ---------------------------------------------------------- Determine own load |
# ---------------------------------------------------------- Determine own load |
my $loadavg; |
my $loadavg; |
Line 140 ENDFAILED
|
Line 140 ENDFAILED
|
# ------------------------------------------------------- Do the load balancing |
# ------------------------------------------------------- Do the load balancing |
my $otherserver='http://'.$ENV{'SERVER_NAME'}; |
my $otherserver='http://'.$ENV{'SERVER_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 access server and overloaded? |
# ---------------------------------------- Are we access server and overloaded? |
if (($role eq 'access') && |
if (($role eq 'access') && |
(($userloadpercent>100.0)||($loadpercent>100.0))) { |
(($userloadpercent>100.0)||($loadpercent>100.0))) { |
Line 179 ENDFAILED
|
Line 179 ENDFAILED
|
|
|
if ($logtoken eq 'con_lost') { |
if ($logtoken eq 'con_lost') { |
my $spares=''; |
my $spares=''; |
foreach (keys %Apache::lonnet::hostname) { |
my $last; |
if ($_ ne $lonhost) { |
foreach my $hostid (sort |
$spares.='<br /><a href="http://'.$Apache::lonnet::hostname{$_}. |
{ |
'/adm/login?domain='.$authdomain.'">'. |
$Apache::lonnet::hostname{$a} cmp |
$Apache::lonnet::hostname{$_}.'</a>'; |
$Apache::lonnet::hostname{$b}; |
if ($Apache::lonnet::spareid{$_}) { |
} |
$spares.=' (preferred)'; |
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 (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); |
$r->print(<<ENDTROUBLE); |
<html> |
<html> |
Line 256 my %lt=&Apache::lonlocal::texthash(
|
Line 277 my %lt=&Apache::lonlocal::texthash(
|
'help' => 'Help', |
'help' => 'Help', |
'serv' => 'Server', |
'serv' => 'Server', |
'servadm' => 'Server Administration', |
'servadm' => 'Server Administration', |
'sysadm' => 'System Administration'); |
'sysadm' => 'System Administration', |
|
'helpdesk' => 'Contact Helpdesk'); |
|
|
# ---------------------------------------------------------- Serve rest of page |
# ---------------------------------------------------------- Serve rest of page |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
Line 314 ENDSCRIPT
|
Line 335 ENDSCRIPT
|
<form name="server" action="$otherserver/adm/authenticate" method="post" target="_top"> |
<form name="server" action="$otherserver/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="interface" value="$ENV{'form.interface'}" /> |
<input type="hidden" name="interface" value="$env{'form.interface'}" /> |
<input type="hidden" name="uname" value="" /> |
<input type="hidden" name="uname" value="" /> |
<input type="hidden" name="upass" value="" /> |
<input type="hidden" name="upass" value="" /> |
<input type="hidden" name="udom" value="" /> |
<input type="hidden" name="udom" value="" /> |
Line 324 ENDSCRIPT
|
Line 345 ENDSCRIPT
|
<input type="hidden" name="fontenhance" value="" /> |
<input type="hidden" name="fontenhance" value="" /> |
<input type="hidden" name="blackwhite" value="" /> |
<input type="hidden" name="blackwhite" value="" /> |
<input type="hidden" name="remember" value="" /> |
<input type="hidden" name="remember" value="" /> |
<input type="hidden" name="localpath" value="$ENV{'form.localpath'}" /> |
<input type="hidden" name="localpath" value="$env{'form.localpath'}" /> |
<input type="hidden" name="localres" value="$ENV{'form.localres'}" /> |
<input type="hidden" name="localres" value="$env{'form.localres'}" /> |
</form> |
</form> |
ENDSERVERFORM |
ENDSERVERFORM |
if ($fullgraph) { $r->print(<<ENDTOP); |
if ($fullgraph) { $r->print(<<ENDTOP); |
Line 440 ENDNOOPT
|
Line 461 ENDNOOPT
|
</form> |
</form> |
ENDLOGIN |
ENDLOGIN |
if ($fullgraph) { |
if ($fullgraph) { |
|
my $helpdeskscript; |
|
my $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version,$authdomain,\$helpdeskscript); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
</td> |
</td> |
|
|
Line 492 ENDLOGIN
|
Line 515 ENDLOGIN
|
</tr> |
</tr> |
</table> |
</table> |
<br /> |
<br /> |
<small> |
$contactblock |
<b> $lt{'sysadm'}:</b><br /> |
|
<tt> $sysadm</tt><br /> |
|
<b> $lt{'servadm'}:</b><br /> |
|
<tt> $servadm</tt><br /> <br /> |
|
$version |
|
</small> |
|
</td> |
</td> |
|
|
<!-- Row 5 Column 2 --> |
<!-- Row 5 Column 2 --> |
Line 528 $domainlogo
|
Line 545 $domainlogo
|
</tr> |
</tr> |
</table> |
</table> |
|
|
<script> |
<script type="text/javascript"> |
// the if prevents the script error if the browser can't handle this |
// the if prevents the script error if the browser can not handle this |
if ( document.client.uname ) { document.client.uname.focus(); } |
if ( document.client.uname ) { document.client.uname.focus(); } |
</script> |
</script> |
|
$helpdeskscript |
|
|
ENDDOCUMENT |
ENDDOCUMENT |
} |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|
|
sub contactdisplay { |
|
my ($lt,$sysadm,$servadm,$version,$authdomain,$helpdeskscript) = @_; |
|
my $contactblock; |
|
my $showsysadm = 1; |
|
my $showservadm = 1; |
|
my $showhelpdesk = 0; |
|
my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
|
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
|
$showhelpdesk = 1; |
|
} |
|
if ($showsysadm) { |
|
$contactblock .= '<b> '.$$lt{'sysadm'}.':</b><br />'. |
|
'<tt> '.$sysadm.'</tt><br />'; |
|
} |
|
if ($showservadm) { |
|
$contactblock .= '<b> '.$$lt{'servadm'}.':</b><br />'. |
|
'<tt> '.$servadm.'</tt><br /> <br />'; |
|
} |
|
if ($showhelpdesk) { |
|
$contactblock .= '<b> <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"; |
|
$version |
|
ENDBLOCK |
|
return $contactblock; |
|
} |
|
|
|
|
1; |
1; |
__END__ |
__END__ |