loncom/auth/checkauthen.pm - diff

Return to checkauthen.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.3, 2006/06/02 19:29:21	version 1.7, 2006/09/07 17:07:26
Line 36 use Apache::lonnet;	Line 36 use Apache::lonnet;
sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;

if ($r->auth_type() eq 'Basic') {	if ($r->auth_type() ne 'LONCAPA') {
return DECLINED;	return DECLINED;
}	}
my $fail = FORBIDDEN;	my $fail = FORBIDDEN;
if ($r->dir_config('lonOtherAuthen') eq 'yes') {	if ($r->dir_config('lonOtherAuthen') eq 'yes') {
	if (defined($r->dir_config('lonOtherAuthenType'))) {
	$r->auth_type($r->dir_config('lonOtherAuthenType'));
	}
#&Apache::lonnet::logthis("other authen");	#&Apache::lonnet::logthis("other authen");
$fail = DECLINED;	$fail = DECLINED;
}	}
Line 65 sub handler {	Line 68 sub handler {
return OK;	return OK;
}	}
}	}

return $fail;	return $fail;
}	}