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

Diff for /loncom/interface/lontiny.pm between versions 1.8.2.6 and 1.24

version 1.8.2.6, 2024/02/10 14:24:46 version 1.24, 2025/02/07 20:23:42
Line 99  sub handler { Line 99  sub handler {
                             }                              }
                             if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {                              if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
                                 # Check for ttoken                                  # Check for ttoken
                                 my $newlauncher = &launch_check($r->uri,$symb);                                  my $newlauncher = &launch_check($r->uri,$symb,$cdom,$cnum);
                                 my ($map,$resid,$url) = &Apache::lonnet::decode_symb($symb);                                  my ($map,$resid,$url) = &Apache::lonnet::decode_symb($symb);
                                 if (&Apache::lonnet::is_on_map($url)) {                                  if (&Apache::lonnet::is_on_map($url)) {
                                     my $realuri;                                      my ($realuri,$reinitresult,$reinitchecked);
                                     if ((&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) &&                                      if ((&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) &&
                                         (!$env{'request.role.adv'})) {                                          (!$env{'request.role.adv'})) {
                                         $env{'user.error.msg'}=$r->uri.':bre:1:1:Access to resource denied';                                          my $loncaparev = $r->dir_config('lonVersion');
                                         return HTTP_NOT_ACCEPTABLE;                                          ($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
                                           $reinitchecked = 1;
                                           unless (($reinitresult eq 'main') || ($reinitresult eq 'both')) {
                                               $env{'user.error.msg'}=$r->uri.':bre:1:1:Access to resource denied';
                                               return HTTP_NOT_ACCEPTABLE;
                                           }
                                     }                                      }
                                     if ((&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i) &&                                      if ((&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i) &&
                                         (!$env{'request.role.adv'})) {                                          (!$env{'request.role.adv'})) {
Line 126  sub handler { Line 131  sub handler {
                                             $realuri .= '?symb='.$symb;                                              $realuri .= '?symb='.$symb;
                                         }                                          }
                                     }                                      }
                                     my ($update,$reinitresult);                                      my $update;
                                     # Check if course needs to be re-initialized                                      # Check if course needs to be re-initialized
                                     if ($newlauncher) {                                      if ($newlauncher) {
                                         $update = 1;                                          $update = 1;
                                       } elsif (($reinitresult eq 'main') || ($reinitresult eq 'both')) {
                                           $update = 1;
                                     } else {                                      } else {
                                         my $loncaparev = $r->dir_config('lonVersion');                                          if (!$reinitchecked) {
                                         ($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);                                              my $loncaparev = $r->dir_config('lonVersion');
                                               ($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
                                           }
                                         if (($reinitresult eq 'main') || ($reinitresult eq 'both')) {                                          if (($reinitresult eq 'main') || ($reinitresult eq 'both')) {
                                             $update = 1;                                              $update = 1;
                                         } elsif (!-e $env{'request.course.fn'}.'.db') {                                          } elsif (!-e $env{'request.course.fn'}.'.db') {
Line 161  sub handler { Line 170  sub handler {
                                             $env{'user.error.msg'}=$r->uri.':bre:0:0:Course not initialized';                                              $env{'user.error.msg'}=$r->uri.':bre:0:0:Course not initialized';
                                             $env{'user.reinit'} = 1;                                              $env{'user.reinit'} = 1;
                                             return HTTP_NOT_ACCEPTABLE;                                              return HTTP_NOT_ACCEPTABLE;
                                           } elsif ((&Apache::lonnet::EXT('resource.0.hiddenresource',$symb) =~ /^yes$/i) &&
                                                    (!$env{'request.role.adv'})) {
                                               $env{'user.error.msg'}=$r->uri.':bre:1:1:Access to resource denied';
                                               return HTTP_NOT_ACCEPTABLE;
                                         }                                          }
                                     }                                      }
                                     if (($reinitresult eq 'both') || ($reinitresult eq 'supp')) {                                      if (($reinitresult eq 'both') || ($reinitresult eq 'supp')) {
Line 307  sub handler { Line 320  sub handler {
 }  }
   
 sub launch_check {  sub launch_check {
     my ($linkuri,$symb) = @_;      my ($linkuri,$symb,$cdom,$cnum) = @_;
     my ($linkprotector,$linkproturi,$linkprotexit,$linkprotpbid,$linkprotpburl,      my ($linkprotector,$linkproturi,$linkprotexit,$linkprotpbid,$linkprotpburl,
         $linkkey,$newlauncher,$prevlaunch);          $linkkey,$newlauncher,$prevlaunch);
     if ($env{'form.ttoken'}) {      if ($env{'form.ttoken'}) {
Line 447  sub launch_check { Line 460  sub launch_check {
             }              }
             if ($linkprotector) {              if ($linkprotector) {
                 &Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi});                  &Apache::lonnet::appenv({'request.linkprot' => $linkprotector.':'.$linkproturi});
                   if ($linkprotpburl && $linkprotpbid) {
                       my ($res,$error) = &store_passback_info($cdom,$cnum,$linkuri,$linkprotector,
                                                           $scope,$symb,$linkprotpbid,$linkprotpburl,
                                                           $currdeeplinklogin);
                   }
             } elsif ($env{'request.linkprot'}) {              } elsif ($env{'request.linkprot'}) {
                 &Apache::lonnet::delenv('request.linkprot');                  &Apache::lonnet::delenv('request.linkprot');
             }              }
Line 525  sub launch_check { Line 543  sub launch_check {
     return $newlauncher;      return $newlauncher;
 }  }
   
   #
   # Store linkprotpburl and linkprotpbid in user's nohist_$cid_linkprot_pb.db
   # $linkuri\0$linkprotector\0$scope = [$linkprotpbid,$linkprotpburl]
   # Separately store $symb in course's nohist_linkprot_passback.db
   # which should trigger passback:
   # $symb => {$linkuri\0$linkprotector\0$scope => 1};
   #
   
   sub store_passback_info {
       my ($cdom,$cnum,$linkuri,$linkprotector,$scope,$symb,
           $linkprotpbid,$linkprotpburl,$currdeeplinklogin) = @_;
       my $key = join("\0",($linkuri,$linkprotector,$scope));
       my $namespace = 'nohist_'.$cdom.'_'.$cnum.'_linkprot_pb';
       if ($linkuri eq $currdeeplinklogin) {
           my %pbinfo = &Apache::lonnet::get($namespace,[$key]);
           if (ref($pbinfo{$key}) eq 'ARRAY') {
               if (($pbinfo{$key}[0] eq $linkprotpbid) &&
                   ($pbinfo{$key}[1] eq $linkprotpburl)) {
                   return ('ok');
               }
           }
       }
       my $now = time;
       my $result = &Apache::lonnet::cput($namespace,{$key => [$linkprotpbid,$linkprotpburl]});
       my $error;
       if (($result eq 'ok') || ($result eq 'con_delayed')) {
           $namespace = 'nohist_linkprot_passback';
           my %triggers = &Apache::lonnet::get($namespace,[$symb],$cdom,$cnum);
           my $newtrigger;
           if ((exists($triggers{$symb})) && (ref($triggers{$symb}) eq 'HASH')) {
               unless (exists($triggers{$symb}{$key})) {
                   $newtrigger = 1;
               }
           } else {
               $newtrigger = 1;
           }
           if ($newtrigger) {
               my ($lockhash,$tries,$gotlock);
               $lockhash = {
                             lock => $env{'user.name'}.
                                     ':'.$env{'user.domain'},
                           };
               $tries = 0;
               $gotlock = &Apache::lonnet::newput($namespace,$lockhash,$cdom,$cnum);
               while (($gotlock ne 'ok') && ($tries<10)) {
                   $tries ++;
                   sleep (0.1);
                   $gotlock = &Apache::lonnet::newput($namespace,$lockhash,$cdom,$cnum);
               }
               if ($gotlock eq 'ok') {
                   %triggers = &Apache::lonnet::get($namespace,[$symb],$cdom,$cnum);
                   $triggers{$symb}{$key} = 1;
                   $result = &Apache::lonnet::cput($namespace,{$symb => $triggers{$symb}},$cdom,$cnum);
                   my $dellockoutcome = &Apache::lonnet::del($namespace,['lock'],$cdom,$cnum);
               } else {
                   $error = 'nolock';
               }
           }
       }
       return ($result,$error);
   }
   
 sub do_redirect {  sub do_redirect {
     my ($r,$destination,$linkprot) = @_;      my ($r,$destination,$linkprot) = @_;
     my $windowname = 'loncapaclient';      my $windowname = 'loncapaclient';
Removed from v.1.8.2.6  
changed lines
  Added in v.1.24

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