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

Diff for /loncom/auth/lonrelaunch.pm between versions 1.1 and 1.2

version 1.1, 2022/06/18 02:10:18 version 1.2, 2022/06/26 04:03:47
Line 45  sub handler { Line 45  sub handler {
         &Apache::loncommon::get_unprocessed_cgi($r->args,['rtoken']);          &Apache::loncommon::get_unprocessed_cgi($r->args,['rtoken']);
         if (exists($env{'form.rtoken'})) {          if (exists($env{'form.rtoken'})) {
             %data = &Apache::lonnet::tmpget($env{'form.rtoken'});              %data = &Apache::lonnet::tmpget($env{'form.rtoken'});
             my $delete = &Apache::lonnet::tmpdel($env{'form.rtoken'});  
         }          }
     }      }
     my $handle = &Apache::lonnet::check_for_valid_session($r);      my $handle = &Apache::lonnet::check_for_valid_session($r);
Line 85  sub handler { Line 84  sub handler {
   
     if ((keys(%data)) && ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$})) {      if ((keys(%data)) && ($data{'origurl'} =~ m{^/tiny/$match_domain/\w+$})) {
         my $url = $data{'origurl'};          my $url = $data{'origurl'};
         if (($data{'linkprot'} =~ m{^\w+(c|d):\Q$url\E$}) &&          if ($data{'linkprot'} =~ m{^\w+(c|d):\Q$url\E$}) {
             ($data{'linkprotuser'} =~ m{^($match_username):($match_domain)$})) {              if ((!exists($data{'linkprotuser'})) ||
             my $brcrum = [{'href' => '','text' => 'Update session'},];                  (($data{'linkprotuser'}) &&
             $url .= '?ltoken='.$env{'form.rtoken'};                   ($data{'linkprotuser'} =~ m{^($match_username):($match_domain)$}))) {
             $r->print(&Apache::loncommon::start_page('Updating session',undef,                  $url .= '?ltoken='.$env{'form.rtoken'};
                                                      {'only_body'    => 1,                  $r->print(&Apache::loncommon::start_page('Updating session',undef,
                                                       'redirect'     => [1,$url],                                                           {'only_body'    => 1,
                                                       'bread_crumbs' => $brcrum,}).                                                            'redirect'     => [1,$url]}).
                       '<p>'.&mt('Updating old session information').'</p>'.                            '<p>'.&mt('Updating old session information').'</p>'.
                       &Apache::loncommon::end_page());                            &Apache::loncommon::end_page());
             return OK;              return OK;
         }          }
     }      }
     $r->print(&Apache::loncommon::start_page('Username mismatch',undef,{'only_body' => 1}));      if ($data{'linkprot'}) {
     $r->print(&mt('Although your credentials were authenticated, the username you entered did not match what was expected [_1] from the link you followed',"($data{'linkprotuser'})"));          $r->print(&Apache::loncommon::start_page('Updating session',undef,{'only_body' => 1}));
           if ($data{'linkprotuser'} ne '') {
               $r->print(&mt('Although your credentials were authenticated, the username you entered did not match what was expected [_1] from the link you followed',"($data{'linkprotuser'})"));
           } else {
               $r->print(&mt('Expired any existing session'));
           }
       } else {
           $r->print(&Apache::loncommon::start_page('Session removed',undef,{'only_body' => 1}));
           $r->print(&mt('Expired any existing session'));
       }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
       if (exists($env{'form.rtoken'})) {
           &Apache::lonnet::tmpdel($env{'form.rtoken'});       
       }
     return OK;      return OK;
 }  }
   
Removed from v.1.1  
changed lines
  Added in v.1.2

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