loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.77, 2006/04/13 20:47:39	version 1.78, 2006/06/02 19:38:21
Line 150 sub handler {	Line 150 sub handler {
$handle=~s/\W//g;	$handle=~s/\W//g;
}	}

	my ($sso_login);
if ($r->user	if ($r->user
&& (!$lonid \|\| !-e "$lonidsdir/$handle.id" \|\| $handle eq '') ) {	&& (!$lonid \|\| !-e "$lonidsdir/$handle.id" \|\| $handle eq '') ) {
	$sso_login = 1;
my $domain = $r->dir_config('lonDefDomain');	my $domain = $r->dir_config('lonDefDomain');
my $home=&Apache::lonnet::homeserver($r->user,$domain);	my $home=&Apache::lonnet::homeserver($r->user,$domain);
if ($home !~ /(con_lost\|no_such_host)/) {	if ($home !~ /(con_lost\|no_such_host)/) {
Line 161 sub handler {	Line 163 sub handler {
}	}
}	}

	if ($sso_login) {
	&Apache::lonnet::appenv('request.sso.login' => 1);
	}

if ($r->dir_config("lonBalancer") eq 'yes') {	if ($r->dir_config("lonBalancer") eq 'yes') {
$r->set_handlers('PerlResponseHandler'=>	$r->set_handlers('PerlResponseHandler'=>
[\&Apache::switchserver::handler]);	[\&Apache::switchserver::handler]);