version 1.126, 2009/10/06 21:58:30
|
version 1.128, 2009/10/21 12:29:40
|
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; |
|
} |
|
} |
|
} |
} |
} |
} |
} |
} |