version 1.127, 2009/07/23 18:45:39
|
version 1.130.6.1, 2011/11/18 22:41:02
|
Line 411 sub handler {
|
Line 411 sub handler {
|
} |
} |
$env{'request.filename'} = $r->filename; |
$env{'request.filename'} = $r->filename; |
$env{'request.noversionuri'} = &Apache::lonnet::deversion($requrl); |
$env{'request.noversionuri'} = &Apache::lonnet::deversion($requrl); |
|
if ($requrl =~ m{^/adm/wrapper/ext/}) { |
|
my $query = $r->args; |
|
if ($query) { |
|
my $preserved; |
|
foreach my $pair (split(/&/,$query)) { |
|
my ($name, $value) = split(/=/,$pair); |
|
unless (($name eq 'symb') || ($name eq 'wrapperdisplay')) { |
|
$preserved .= $pair.'&'; |
|
} |
|
} |
|
$preserved =~ s/\&$//; |
|
if ($preserved) { |
|
$env{'request.external.querystring'} = $preserved; |
|
} |
|
} |
|
} |
# -------------------------------------------------------- Load POST parameters |
# -------------------------------------------------------- Load POST parameters |
|
|
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
Line 433 sub handler {
|
Line 449 sub handler {
|
return OK; |
return OK; |
} |
} |
if (($access ne '2') && ($access ne 'F')) { |
if (($access ne '2') && ($access ne 'F')) { |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
if ($requrl =~ m{^/res/}) { |
return HTTP_NOT_ACCEPTABLE; |
$access = &Apache::lonnet::allowed('bro',$requrl); |
|
if ($access ne 'F') { |
|
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
|
} else { |
|
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
} |
} |
} |
} |
if ($requrl =~ m|^/prtspool/|) { |
if ($requrl =~ m|^/prtspool/|) { |
Line 457 sub handler {
|
Line 481 sub handler {
|
$env{'user.domain'} eq 'public' && |
$env{'user.domain'} eq 'public' && |
$requrl !~ m{^/+(res|public|uploaded)/} && |
$requrl !~ m{^/+(res|public|uploaded)/} && |
$requrl !~ m{^/adm/[^/]+/[^/]+/aboutme/portfolio$ }x && |
$requrl !~ m{^/adm/[^/]+/[^/]+/aboutme/portfolio$ }x && |
|
$requrl !~ m{^/adm/blockingstatus/.*$} && |
$requrl !~ m{^/+adm/(help|logout|restrictedaccess|randomlabel\.png)}) { |
$requrl !~ m{^/+adm/(help|logout|restrictedaccess|randomlabel\.png)}) { |
$env{'request.querystring'}=$r->args; |
$env{'request.querystring'}=$r->args; |
$env{'request.firsturl'}=$requrl; |
$env{'request.firsturl'}=$requrl; |
Line 464 sub handler {
|
Line 489 sub handler {
|
} |
} |
# ------------------------------------------------------------- This is allowed |
# ------------------------------------------------------------- This is allowed |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
&Apache::lonnet::countacc($requrl); |
my $skiplogging; |
|
if ((!&Apache::loncommon::needs_gci_custom()) && |
|
($env{'course.'.$env{'request.course.id'}.'.internal.courseowner'} ne $env{'user.name'}.':'.$env{'user.domain'})) { |
|
$skiplogging = 1; |
|
} |
|
unless ($skiplogging) { |
|
&Apache::lonnet::countacc($requrl); |
|
} |
$requrl=~/\.(\w+)$/; |
$requrl=~/\.(\w+)$/; |
my $query=$r->args; |
my $query=$r->args; |
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
Line 515 sub handler {
|
Line 547 sub handler {
|
} |
} |
} |
} |
$env{'request.symb'}=$symb; |
$env{'request.symb'}=$symb; |
&Apache::lonnet::courseacclog($symb); |
unless ($skiplogging) { |
|
&Apache::lonnet::courseacclog($symb); |
|
} |
} else { |
} else { |
# ------------------------------------------------------- This is other content |
# ------------------------------------------------------- This is other content |
&Apache::lonnet::courseacclog($requrl); |
unless ($skiplogging) { |
|
&Apache::lonnet::courseacclog($requrl); |
|
} |
} |
} |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};; |