[BACK]Return to lonacc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonacc.pm between versions 1.159.2.8.2.5 and 1.159.2.11

version 1.159.2.8.2.5, 2020/10/01 12:43:10 version 1.159.2.11, 2020/09/28 01:31:42
Line 355  sub sso_login { Line 355  sub sso_login {
     # login but immediately go to switch server to find us a new       # login but immediately go to switch server to find us a new 
     # machine      # machine
     &Apache::lonauth::success($r,$user,$domain,$home,'noredirect');      &Apache::lonauth::success($r,$user,$domain,$home,'noredirect');
             foreach my $item (keys(%form)) {  
                 $env{'form.'.$item} = $form{$item};  
             }  
             unless ($form{'symb'}) {  
                 unless (($r->uri eq '/adm/roles') || ($r->uri eq '/adm/sso')) {  
                     $env{'form.origurl'} = $r->uri;  
                 }  
             }  
             $env{'request.sso.login'} = 1;              $env{'request.sso.login'} = 1;
             if (defined($r->dir_config("lonSSOReloginServer"))) {              if (defined($r->dir_config("lonSSOReloginServer"))) {
                 $env{'request.sso.reloginserver'} =                  $env{'request.sso.reloginserver'} =
Line 443  sub sso_login { Line 435  sub sso_login {
     return undef;      return undef;
 }  }
   
   sub needs_symb_check {
       my ($requrl) = @_;
       $requrl=~/\.(\w+)$/;
       if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') ||
           ($requrl=~/^\/adm\/.*\/(aboutme|smppg|bulletinboard)(\?|$ )/x) ||
           ($requrl=~/^\/adm\/wrapper\//) ||
           ($requrl=~m|^/adm/coursedocs/showdoc/|) ||
           ($requrl=~m|\.problem/smpedit$|) ||
           ($requrl=~/^\/public\/.*\/syllabus$/) ||
           ($requrl=~/^\/adm\/(viewclasslist|navmaps)$/) ||
           ($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?|$)/)) {
           return 1;
       }
       return;
   }
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     my $requrl=$r->uri;      my $requrl=$r->uri;
Line 537  sub handler { Line 545  sub handler {
                         if ($value =~ /^supplemental/) {                          if ($value =~ /^supplemental/) {
                             $suppext = 1;                              $suppext = 1;
                         }                          }
                         last;  
                     }                      }
                 }                  }
             }              }
Line 550  sub handler { Line 557  sub handler {
             my $lonhost = &Apache::lonnet::host_from_dns($hostname);              my $lonhost = &Apache::lonnet::host_from_dns($hostname);
             if ($lonhost) {              if ($lonhost) {
                 my $actual = &Apache::lonnet::absolute_url($hostname);                  my $actual = &Apache::lonnet::absolute_url($hostname);
                 my $exphostname = &Apache::lonnet::hostname($lonhost);  
                 my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname;                  my $expected = $Apache::lonnet::protocol{$lonhost}.'://'.$hostname;
                 unless ($actual eq $expected) {                  unless ($actual eq $expected) {
                     $env{'request.use_absolute'} = $expected;                      $env{'request.use_absolute'} = $expected;
Line 599  sub handler { Line 605  sub handler {
                 $env{'form.origurl'} = $r->uri;                  $env{'form.origurl'} = $r->uri;
             }              }
         }          }
         if ($requrl=~m{^/+tiny/+$match_domain/+\w+$}) {  
             if ($env{'user.name'} eq 'public' &&  
                 $env{'user.domain'} eq 'public') {  
                 $env{'request.firsturl'}=$requrl;  
                 return FORBIDDEN;  
             } else {  
                 return OK;  
             }  
         }  
   
 # ---------------------------------------------------------------- Check access  # ---------------------------------------------------------------- Check access
  my $now = time;   my $now = time;
         my $check_symb;  
  if ($requrl !~ m{^/(?:adm|public|(?:prt|zip)spool)/}   if ($requrl !~ m{^/(?:adm|public|(?:prt|zip)spool)/}
     || $requrl =~ /^\/adm\/.*\/(smppg|bulletinboard)(\?|$ )/x) {      || $requrl =~ /^\/adm\/.*\/(smppg|bulletinboard)(\?|$ )/x) {
             my ($access,$poss_symb);              my ($access,$poss_symb);
             if (($env{'request.course.id'}) && (!$suppext)) {              if (($env{'request.course.id'}) && (!$suppext) && (&needs_symb_check($requrl))) {
                 $requrl=~/\.(\w+)$/;                  unless ($env{'form.symb'}) {
                 if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') ||                      if ($r->args) {
                     ($requrl=~/^\/adm\/.*\/(aboutme|smppg|bulletinboard)(\?|$ )/x) ||                          &Apache::loncommon::get_unprocessed_cgi($r->args,['symb']);
                     ($requrl=~/^\/adm\/wrapper\//) ||                      }
                     ($requrl=~m|^/adm/coursedocs/showdoc/|) ||  
                     ($requrl=~m|\.problem/smpedit$|) ||  
                     ($requrl=~/^\/public\/.*\/syllabus$/) ||  
                     ($requrl=~/^\/adm\/(viewclasslist|navmaps)$/) ||  
                     ($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?|$)/)) {  
                     $check_symb = 1;  
                 }                  }
             }  
             if ($check_symb) {  
                 if ($env{'form.symb'}) {                  if ($env{'form.symb'}) {
                     $poss_symb=&Apache::lonnet::symbclean($env{'form.symb'});                      $poss_symb=&Apache::lonnet::symbclean($env{'form.symb'});
                 } elsif (($env{'request.course.id'}) && ($r->args ne '')) {  
                     my $query = $r->args;  
                     foreach my $pair (split(/&/,$query)) {  
                         my ($name, $value) = split(/=/,$pair);  
                         $name = &unescape($name);  
                         $value =~ tr/+/ /;  
                         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;  
                         if ($name eq 'symb') {  
                             $poss_symb = &Apache::lonnet::symbclean($value);  
                             last;  
                         }  
                     }  
                 }                  }
                 if ($poss_symb) {                  if ($poss_symb) {
                     my ($possmap,$resid,$url)=&Apache::lonnet::decode_symb($poss_symb);                      my ($possmap,$resid,$url)=&Apache::lonnet::decode_symb($poss_symb);
Line 739  sub handler { Line 715  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/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 749  sub handler { Line 725  sub handler {
  if ($env{'request.course.id'}) {   if ($env{'request.course.id'}) {
     &Apache::lonnet::countacc($requrl);      &Apache::lonnet::countacc($requrl);
             my $query=$r->args;              my $query=$r->args;
             if ($check_symb) {              if (&needs_symb_check($requrl)) {
 # ------------------------------------- This is serious stuff, get symb and log  # ------------------------------------- This is serious stuff, get symb and log
  my $symb;   my $symb;
  if ($query) {   if ($query) {
Line 792  sub handler { Line 768  sub handler {
                     if ($requrl=~m{^(/adm/.*/aboutme)/portfolio$}) {                      if ($requrl=~m{^(/adm/.*/aboutme)/portfolio$}) {
                         $requrl = $1;                          $requrl = $1;
                     }                      }
     $symb=&Apache::lonnet::symbread($requrl);                      unless ($suppext) {
                     if (&Apache::lonnet::is_on_map($requrl) && $symb) {          $symb=&Apache::lonnet::symbread($requrl);
                         my ($encstate,$invalidsymb);                          if (&Apache::lonnet::is_on_map($requrl) && $symb) {
                         unless (&Apache::lonnet::symbverify($symb,$requrl,\$encstate)) {                              my ($encstate,$invalidsymb);
                             $invalidsymb = 1;                              unless (&Apache::lonnet::symbverify($symb,$requrl,\$encstate)) {
                             #                                  $invalidsymb = 1;
                             # If $env{'request.enc'} is true, but no encryption for $symb retrieved                                  #
                             # by original lonnet::symbread() call, call again to check for an instance                                  # If $env{'request.enc'} is true, but no encryption for $symb retrieved
                             # of $requrl in the course which has encryption, and set that as the symb.                                  # by original lonnet::symbread() call, call again to check for an instance
                             # If there is no such symb, or symbverify() fails for the new symb proceed                                  # of $requrl in the course which has encryption, and set that as the symb.
                             # to report invalid symb.                                  # If there is no such symb, or symbverify() fails for the new symb proceed
                             #                                  # to report invalid symb.
                             if ($env{'request.enc'} && !$encstate) {                                  #
                                 my %possibles;                                  if ($env{'request.enc'} && !$encstate) {
                                 my $nocache = 1;                                      my %possibles;
                                 $symb = &Apache::lonnet::symbread($requrl,'','','',\%possibles,$nocache);                                      my $nocache = 1;
                                 if ($symb) {                                      $symb = &Apache::lonnet::symbread($requrl,'','','',\%possibles,$nocache);
                                     if (&Apache::lonnet::symbverify($symb,$requrl)) {                                      if ($symb) {
                                         $invalidsymb = '';                                          if (&Apache::lonnet::symbverify($symb,$requrl)) {
                                               $invalidsymb = '';
                                           }
                                       } elsif (keys(%possibles) > 1) {
                                           $r->internal_redirect('/adm/ambiguous');
                                           return OK;
                                     }                                      }
                                 } elsif (keys(%possibles) > 1) {  
                                     $r->internal_redirect('/adm/ambiguous');  
                                     return OK;  
                                 }                                  }
                             }                                  if ($invalidsymb) {
                             if ($invalidsymb) {                                      $r->log_reason('Invalid symb for '.$requrl.': '.$symb);
                                 $r->log_reason('Invalid symb for '.$requrl.': '.$symb);                                      $env{'user.error.msg'}=
                                 $env{'user.error.msg'}=                                          "$requrl:bre:1:1:Invalid Access";
                                     "$requrl:bre:1:1:Invalid Access";                                      return HTTP_NOT_ACCEPTABLE;
                                 return HTTP_NOT_ACCEPTABLE;                                  }
                             }                              }
                         }                          }
                     }          if ($symb) {
     if ($symb) {      my ($map,$mid,$murl)=
  my ($map,$mid,$murl)=          &Apache::lonnet::decode_symb($symb);
     &Apache::lonnet::decode_symb($symb);                              if ($requrl eq '/adm/navmaps') {
                         if ($requrl eq '/adm/navmaps') {                                  &Apache::lonnet::symblist($map,$murl =>[$murl,$mid]);
                             &Apache::lonnet::symblist($map,$murl =>[$murl,$mid]);                              } else {
                         } else {                                  if (($map =~ /\.page$/) && ($requrl !~ /\.page$/)) {
                             if (($map =~ /\.page$/) && ($requrl !~ /\.page$/)) {                                      my $mapsymb = &Apache::lonnet::symbread($map);
                                 my $mapsymb = &Apache::lonnet::symbread($map);                                      ($map,$mid,$murl)=&Apache::lonnet::decode_symb($mapsymb);
                                 ($map,$mid,$murl)=&Apache::lonnet::decode_symb($mapsymb);                                  }
                                   &Apache::lonnet::symblist($map,$murl =>[$murl,$mid],
                                                             'last_known' =>[$murl,$mid]);
                             }                              }
                             &Apache::lonnet::symblist($map,$murl =>[$murl,$mid],          }
                                                       'last_known' =>[$murl,$mid]);  
                         }  
     }      }
  }   }
  $env{'request.symb'}=$symb;   $env{'request.symb'}=$symb;
Removed from v.1.159.2.8.2.5  
changed lines
  Added in v.1.159.2.11

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.