loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.22, 2001/11/29 19:12:44	version 1.23, 2001/11/29 21:54:56
Line 28	Line 28
# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11,	# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11,
# 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30,11/6,	# 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30,11/6,
# 12/25,12/26,	# 12/25,12/26,
# 01/06/01,05/28,8/11,9/26 Gerd Kortemeyer	# 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer

package Apache::lonacc;	package Apache::lonacc;

Line 155 sub handler {	Line 155 sub handler {
$ENV{'user.error.msg'}="$requrl:bre:1:1:Access Denied";	$ENV{'user.error.msg'}="$requrl:bre:1:1:Access Denied";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
}	}
	# ------------------------------------------------------------- This is allowed
	if ($ENV{'request.course.id'}) {
	$requrl=~/\.(\w+)$/;
	if (&Apache::lonnet::fileembstyle($1) eq 'ssi') {
	# ------------------------------------- This is serious stuff, get symb and log
	my $symb=&Apache::lonnet::symbread;
	$ENV{'request.symb'}=$symb;
	&Apache::lonnet::courseacclog($symb);
	} else {
	# ------------------------------------------------------- This is other content
	&Apache::lonnet::courseacclog($requrl);
	}
	}
return OK;	return OK;
} else {	} else {
$r->log_reason("Cookie $handle not valid", $r->filename)	$r->log_reason("Cookie $handle not valid", $r->filename)