loncom/auth/checkauthen.pm - diff

Return to checkauthen.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.8, 2006/09/19 15:18:54	version 1.11, 2007/04/11 21:36:58
Line 36 use Apache::lonnet;	Line 36 use Apache::lonnet;
sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;

	if (&Apache::lonnet::is_domainimage($r->uri)) {
	return OK;
	}

if ($r->auth_type() ne 'LONCAPA') {	if ($r->auth_type() ne 'LONCAPA') {
return DECLINED;	return DECLINED;
}	}
Line 61 sub handler {	Line 65 sub handler {
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
my $handle;	my $handle;
if ($lonid) {	if ($lonid) {
my $handle = $lonid->value;	$handle=&LONCAPA::clean_handle($lonid->value);
$handle=~s/\W//g;
$handle = $r->dir_config('lonIDsDir')."/$handle.id";	$handle = $r->dir_config('lonIDsDir')."/$handle.id";
} else {	} else {
$handle = $env{'user.environment'};	$handle = $env{'user.environment'};