loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonacc.pm between versions 1.127 and 1.132

-version 1.127, 2009/07/23 18:45:39
+version 1.132, 2010/03/17 00:06:14
  Line 411  sub handler {
  	}
  	$env{'request.filename'} = $r->filename;
  	$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') {
+                         $preserved .= $pair.'&';
+                     }
+                 }
+                 $preserved =~ s/\&$//;
+                 if ($preserved) {
+                     $env{'request.external.querystring'} = $preserved;
+                 }
+             }
+         }
  # -------------------------------------------------------- Load POST parameters
  	&Apache::lonacc::get_posted_cgi($r);
- Line 433  sub handler {
+ Line 449  sub handler {
                  return OK;
              }
  	    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') {
+                         if ($requrl eq '/res/lib/templates/simpleproblem.problem/smpedit') {
+                             $access = &Apache::lonnet::allowed('bre','/res/lib/templates/simpleproblem.problem');
+                             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;
+                         }
+                     }
+                 } else {
+ 		    $env{'user.error.msg'}="$requrl:bre:1:1:Access Denied";
+ 		    return HTTP_NOT_ACCEPTABLE;
+                 }
  	    }
  	}
  	if ($requrl =~ m|^/prtspool/|) {
- Line 457  sub handler {
+ Line 489  sub handler {
  	    $env{'user.domain'} eq 'public' &&
  	    $requrl !~ m{^/+(res|public|uploaded)/} &&
  	    $requrl !~ m{^/adm/[^/]+/[^/]+/aboutme/portfolio$ }x &&
+         $requrl !~ m{^/adm/blockingstatus/.*$} &&
  	    $requrl !~ m{^/+adm/(help|logout|restrictedaccess|randomlabel\.png)}) {
  	    $env{'request.querystring'}=$r->args;
  	    $env{'request.firsturl'}=$requrl;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.127
changed lines
	Added in v.1.132