Diff for /loncom/auth/checkauthen.pm between versions 1.15 and 1.21

version 1.15, 2014/01/05 11:30:06 version 1.21, 2018/12/24 14:29:48
Line 1 Line 1
 # The LearningOnline Network  # The LearningOnline Network
 # checks for a cokkie to authenticate a user  # checks for a cookie to authenticate a user
 #  #
 # $Id$  # $Id$
 #  #
Line 38  sub handler { Line 38  sub handler {
   
     if ($r->uri() =~ m{^/res/adm/pages/[^/]+\.(gif|png)$}) {      if ($r->uri() =~ m{^/res/adm/pages/[^/]+\.(gif|png)$}) {
         if ($r->user() eq '') {          if ($r->user() eq '') {
             $r->user('public');              $r->user('public:public');
         }          }
         return OK;          return OK;
     }      }
   
     if (&Apache::lonnet::is_domainimage($r->uri)) {      if (&Apache::lonnet::is_domainimage($r->uri)) {
         if ($r->user() eq '') {          if ($r->user() eq '') {
             $r->user('public');              $r->user('public:public');
         }          }
         return OK;          return OK;
     }      }
Line 66  sub handler { Line 66  sub handler {
  && $env{'user.domain'} eq 'public') {   && $env{'user.domain'} eq 'public') {
  if ($env{'request.publicaccess'} ) {   if ($env{'request.publicaccess'} ) {
             if ($r->user() eq '') {              if ($r->user() eq '') {
                 $r->user('public');                  $r->user('public:public');
             }              }
     return OK;      return OK;
  } else {   } else {
Line 99  sub handler { Line 99  sub handler {
     }      }
     if (($fail == FORBIDDEN) &&      if (($fail == FORBIDDEN) &&
         (($r->uri eq '/adm/email') || ($r->uri eq '/adm/preferences') ||          (($r->uri eq '/adm/email') || ($r->uri eq '/adm/preferences') ||
          ($r->uri eq '/adm/requestcourse'))) {           ($r->uri eq '/adm/requestcourse') ||
            (($r->is_initial_req()) && ($r->uri =~ m{^/tiny/[\w\-.]+/\w+$})))) {
         $env{'form.firsturl'} = $r->uri;          $env{'form.firsturl'} = $r->uri;
     }      }
     return $fail;      return $fail;

Removed from v.1.15  
changed lines
  Added in v.1.21


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