loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.9, 2006/07/21 19:42:12	version 1.12, 2006/12/11 14:06:04
Line 45 sub handler {	Line 45 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'};
if ($lonid) {	if ($lonid) {
my $handle=$lonid->value;	my $handle=&LONCAPA::clean_handle($lonid->value);
$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {	if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
Line 58 sub handler {	Line 57 sub handler {
}	}
if ($requrl=~m\|^/public/\|	if ($requrl=~m\|^/public/\|
\|\| $requrl=~m\|^/adm/help/.*\.hlp$\|	\|\| $requrl=~m\|^/adm/help/.*\.hlp$\|
	\|\| $requrl=~m\|^/adm/[^/]+/[^/]+/aboutme/portfolio$\|
\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {	\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {
&process_public($r,$requrl);	&process_public($r,$requrl);
return OK;	return OK;
Line 72 sub handler {	Line 72 sub handler {
} elsif ($requrl eq '/adm/restrictedaccess') {	} elsif ($requrl eq '/adm/restrictedaccess') {
&process_public($r,$requrl);	&process_public($r,$requrl);
return OK;	return OK;
	} elsif ($requrl eq '/adm/blockedaccess') {
	&process_public($r,$requrl);
	return OK;
}	}
return DECLINED;	return DECLINED;
}	}