loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.126, 2009/10/06 21:58:30	version 1.127, 2009/10/06 23:43:21
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}) {	my %servers = &Apache::lonnet::get_servers($domain);
my $loginvia = $domconfig{login}{loginvia}{$lonhost};	if ($servers{$loginvia} ne '') {
my %servers = &Apache::lonnet::get_servers($domain);	$r->print(&redirect_page($loginvia));
if (($servers{$loginvia} ne '') && ($loginvia ne $lonhost)) {	return OK;
$r->print(&redirect_page($loginvia));
return OK;
}
}
}	}
}	}
}	}