version 1.126, 2009/10/06 21:58:30
|
version 1.129, 2009/10/23 16:14:36
|
Line 113 sub handler {
|
Line 113 sub handler {
|
|
|
my $lonhost = $r->dir_config('lonHostID'); |
my $lonhost = $r->dir_config('lonHostID'); |
my $domain = &Apache::lonnet::default_login_domain(); |
my $domain = &Apache::lonnet::default_login_domain(); |
my %domconfig = &Apache::loncommon::get_domainconf($domain); |
my %domconfhash = &Apache::loncommon::get_domainconf($domain); |
if ($lonhost ne '') { |
if ($lonhost ne '') { |
if (ref($domconfig{login}) eq 'HASH') { |
my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost}; |
if (ref($domconfig{login}{loginvia}) eq 'HASH') { |
if (($loginvia ne '') && ($loginvia ne $lonhost)) { |
if ($domconfig{login}{loginvia}{$lonhost}) { |
if (&Apache::lonnet::hostname($loginvia) ne '') { |
my $loginvia = $domconfig{login}{loginvia}{$lonhost}; |
$r->print(&redirect_page($loginvia)); |
my %servers = &Apache::lonnet::get_servers($domain); |
return OK; |
if (($servers{$loginvia} ne '') && ($loginvia ne $lonhost)) { |
|
$r->print(&redirect_page($loginvia)); |
|
return OK; |
|
} |
|
} |
|
} |
} |
} |
} |
} |
} |
Line 342 $r->print(&Apache::loncommon::start_page
|
Line 337 $r->print(&Apache::loncommon::start_page
|
# ----------------------------------------------------------------------- Texts |
# ----------------------------------------------------------------------- Texts |
|
|
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'un' => 'Username', |
'un' => 'Username', |
'pw' => 'Password', |
'pw' => 'Password', |
'dom' => 'Domain', |
'dom' => 'Domain', |
'perc' => 'percent', |
'perc' => 'percent', |
'load' => 'Server Load', |
'load' => 'Server Load', |
'userload' => 'User Load', |
'userload' => 'User Load', |
'catalog' => 'Course Catalog', |
'catalog' => 'Course/Community Catalog', |
'log' => 'Log in', |
'log' => 'Log in', |
'help' => 'Log-in Help', |
'help' => 'Log-in Help', |
'serv' => 'Server', |
'serv' => 'Server', |
'servadm' => 'Server Administration', |
'servadm' => 'Server Administration', |
'helpdesk' => 'Contact Helpdesk', |
'helpdesk' => 'Contact Helpdesk', |
'forgotpw' => 'Forgot password?', |
'forgotpw' => 'Forgot password?', |
'newuser' => 'New User?', |
'newuser' => 'New User?', |
); |
); |
# -------------------------------------------------- Change password field name |
# -------------------------------------------------- Change password field name |
my $forgotpw = &forgotpwdisplay(%lt); |
my $forgotpw = &forgotpwdisplay(%lt); |
my $loginhelp = &loginhelpdisplay(%lt); |
my $loginhelp = &loginhelpdisplay(%lt); |