loncom/auth/checkauthen.pm - diff

Return to checkauthen.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.7, 2006/09/07 17:07:26	version 1.8, 2006/09/19 15:18:54
Line 59 sub handler {	Line 59 sub handler {

my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
my $cookie;	my $handle;
if ($lonid) {	if ($lonid) {
my $handle=$lonid->value;	my $handle = $lonid->value;
$handle=~s/\W//g;	$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	$handle = $r->dir_config('lonIDsDir')."/$handle.id";
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {	} else {
return OK;	$handle = $env{'user.environment'};
}
}	}

	if (($handle ne '') && (-e $handle)) {
	return OK;
	}

return $fail;	return $fail;
}	}