loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.158, 2014/10/04 02:59:32	version 1.159, 2014/10/18 21:40:06
Line 445 sub handler {	Line 445 sub handler {
my ($is_balancer,$otherserver);	my ($is_balancer,$otherserver);

if ($handle eq '') {	if ($handle eq '') {
unless (($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) {	unless ((($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) \|\|
	($requrl =~ m{^/public/$match_domain/$match_courseid/syllabus}) \|\|
	($requrl =~ m{^/adm/help/}) \|\|
	($requrl =~ m{^/res/$match_domain/$match_username/})) {
$r->log_reason("Cookie not valid", $r->filename);	$r->log_reason("Cookie not valid", $r->filename);
}	}
} elsif ($handle ne '') {	} elsif ($handle ne '') {
Line 566 sub handler {	Line 569 sub handler {
if ($requrl !~ m{^/(?:adm\|public\|prtspool)/}	if ($requrl !~ m{^/(?:adm\|public\|prtspool)/}
\|\| $requrl =~ /^\/adm\/.*\/(smppg\|bulletinboard)(\?\|$ )/x) {	\|\| $requrl =~ /^\/adm\/.*\/(smppg\|bulletinboard)(\?\|$ )/x) {
my $access=&Apache::lonnet::allowed('bre',$requrl);	my $access=&Apache::lonnet::allowed('bre',$requrl);
	if ($handle eq '') {
	unless ($access eq 'F') {
	if ($requrl =~ m{^/res/$match_domain/$match_username/}) {
	$r->log_reason("Cookie not valid", $r->filename);
	}
	}
	}
if ($access eq '1') {	if ($access eq '1') {
$env{'user.error.msg'}="$requrl:bre:0:0:Choose Course";	$env{'user.error.msg'}="$requrl:bre:0:0:Choose Course";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;