loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.66, 2005/07/05 21:30:14	version 1.69, 2005/11/23 20:46:04
Line 92 sub handler {	Line 92 sub handler {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
}	}
	if ($env{'user.name'} eq 'public' &&
	$env{'user.domain'} eq 'public' &&
	$requrl !~ m{^/+(res\|public)/} &&
	$requrl !~ m{^/+adm/(help\|logout\|randomlabel\.png)}) {
	$env{'request.querystring'}=$r->args;
	$env{'request.firsturl'}=$requrl;
	return FORBIDDEN;
	}
# ------------------------------------------------------------- This is allowed	# ------------------------------------------------------------- This is allowed
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
&Apache::lonnet::countacc($requrl);	&Apache::lonnet::countacc($requrl);
Line 171 sub handler {	Line 179 sub handler {
$r->header_out('Set-cookie',"lonID=$cookie; path=/");	$r->header_out('Set-cookie',"lonID=$cookie; path=/");
return OK;	return OK;
}	}
	if ($requrl=~m\|^/+adm/+help/+\|) {
	return OK;
	}
# -------------------------------------------------------------- Not authorized	# -------------------------------------------------------------- Not authorized
$requrl=~/\.(\w+)$/;	$requrl=~/\.(\w+)$/;
# if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|	# if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|