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) |