loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.43, 2003/04/12 15:58:43	version 1.44, 2003/04/16 15:59:15
Line 177 sub handler {	Line 177 sub handler {
&Apache::lonnet::countacc($requrl);	&Apache::lonnet::countacc($requrl);
$requrl=~/\.(\w+)$/;	$requrl=~/\.(\w+)$/;
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|	if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') \|\|
($requrl=~/^\/adm\/.*\/(aboutme\|navmaps\|smppg\|bulletinboard\|wrapper)(\?\|$)/) \|\|	($requrl=~/^\/adm\/.*\/(aboutme\|navmaps\|smppg\|bulletinboard)(\?\|$)/) \|\|
	($requrl=~/^\/adm\/wrapper\//) \|\|
($requrl=~/^\/public\/.*\/syllabus$/)) {	($requrl=~/^\/public\/.*\/syllabus$/)) {
# ------------------------------------- This is serious stuff, get symb and log	# ------------------------------------- This is serious stuff, get symb and log
my $query=$r->args;	my $query=$r->args;
Line 199 sub handler {	Line 200 sub handler {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
} else {	} else {
$symb=&Apache::lonnet::symbread;	$symb=&Apache::lonnet::symbread($requrl);
	my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
	&Apache::lonnet::symblist($map,$murl => $mid,
	'last_known' => $murl);
}	}
$ENV{'request.symb'}=$symb;	$ENV{'request.symb'}=$symb;
&Apache::lonnet::courseacclog($symb);	&Apache::lonnet::courseacclog($symb);