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

Diff for /loncom/auth/migrateuser.pm between versions 1.63 and 1.65

version 1.63, 2022/06/30 21:04:13 version 1.65, 2022/08/24 20:58:50
Line 42  use CGI::Cookie; Line 42  use CGI::Cookie;
   
 sub goto_login {  sub goto_login {
     my ($r,$domain,$data) = @_;      my ($r,$domain,$data) = @_;
       my $write_to_opener;
       if (ref($data) eq 'HASH') {
           $write_to_opener = $data->{'lcssowin'};
       }
     if ((ref($data) eq 'HASH') && ($data->{'lti.login'})) {      if ((ref($data) eq 'HASH') && ($data->{'lti.login'})) {
         &Apache::ltiauth::invalid_request($r,'22');          &Apache::ltiauth::invalid_request($r,'22');
     } else {      } else {
Line 52  sub goto_login { Line 56  sub goto_login {
             $url .= '?domain='.$domain;              $url .= '?domain='.$domain;
         }          }
         $r->print(&Apache::loncommon::start_page('Going to login',undef,          $r->print(&Apache::loncommon::start_page('Going to login',undef,
          {'redirect' => [0,$url],}).           {'redirect' => [0,$url,'',$write_to_opener],}).
           '<h1>'.&mt('One moment please...').'</h1>'.            '<h1>'.&mt('One moment please...').'</h1>'.
           '<p>'.&mt('Transferring to login page.').'</p>'.            '<p>'.&mt('Transferring to login page.').'</p>'.
           &Apache::loncommon::end_page());            &Apache::loncommon::end_page());
Line 297  sub ip_changed { Line 301  sub ip_changed {
         }          }
         $r->print(&Apache::loncommon::start_page($title,undef,          $r->print(&Apache::loncommon::start_page($title,undef,
                                                  {'redirect' =>                                                   {'redirect' =>
                                                   [2,$url],}).                                                    [2,$url,'',$dataref->{'lcssowin'}],}).
                   '<h1>'.&mt('One moment please...').'</h1>'.                    '<h1>'.&mt('One moment please...').'</h1>'.
                   '<p class="LC_warning">'.$message.'</p>'.                    '<p class="LC_warning">'.$message.'</p>'.
                   &Apache::loncommon::end_page());                    &Apache::loncommon::end_page());
Line 336  sub logout { Line 340  sub logout {
         $r->headers_out->add('Set-cookie' => $c);          $r->headers_out->add('Set-cookie' => $c);
     }      }
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
     my ($url,$token,$delay,%info,%user_info);      my ($url,$token,$delay,$write_to_opener,%info,%user_info);
     if (ref($data) eq 'HASH') {      if (ref($data) eq 'HASH') {
         %user_info=('ip'       => $ip,          %user_info=('ip'       => $ip,
                     'domain'   => $data->{'domain'},                      'domain'   => $data->{'domain'},
Line 346  sub logout { Line 350  sub logout {
                     'origurl'  => $data->{'origurl'},                      'origurl'  => $data->{'origurl'},
                     'symb'     => $data->{'symb'},                      'symb'     => $data->{'symb'},
                     'server'   => $lonhost);                      'server'   => $lonhost);
           $write_to_opener = $data->{'lcssowin'};
     }      }
     $delay = 0.1;      $delay = 0.1;
     if (ref($linkprot_info) eq 'HASH') {      if (ref($linkprot_info) eq 'HASH') {
Line 379  sub logout { Line 384  sub logout {
     $r->send_http_header;      $r->send_http_header;
     $r->print(      $r->print(
         &Apache::loncommon::start_page('Updating Session ...',undef,          &Apache::loncommon::start_page('Updating Session ...',undef,
                                        {'redirect'       => [$delay,$url],                                         {'redirect'       => [$delay,$url,'',$write_to_opener],
                                         'only_body'      => 1,}).                                          'only_body'      => 1,}).
         &Apache::loncommon::end_page());          &Apache::loncommon::end_page());
     if ($env{'request.balancercookie'}) {      if ($env{'request.balancercookie'}) {
Line 744  sub handler { Line 749  sub handler {
                 unless ($env{'request.linkprot'} eq $data{'linkprot'}) {                  unless ($env{'request.linkprot'} eq $data{'linkprot'}) {
                     $checklaunch = 1;                      $checklaunch = 1;
                 }                  }
                   unless ($env{'request.linkprotexit'} eq $data{'linkprotexit'}) {
                       $checklaunch = 1;
                   }
                 unless ($env{'request.linkkey'} eq $data{'linkkey'}) {                  unless ($env{'request.linkkey'} eq $data{'linkkey'}) {
                     $checklaunch = 1;                      $checklaunch = 1;
                 }                  }
Line 755  sub handler { Line 763  sub handler {
                 if (($env{'user.name'} ne $data{'username'}) ||                  if (($env{'user.name'} ne $data{'username'}) ||
                     ($env{'user.domain'} ne $data{'domain'})) {                      ($env{'user.domain'} ne $data{'domain'})) {
                     my %linkprot_env;                      my %linkprot_env;
                     foreach my $item ('linkprot','deeplink.login') {                      foreach my $item ('linkprot','linkprotexit','deeplink.login') {
                         if ($data{$item}) {                          if ($data{$item}) {
                             $linkprot_env{$item} = $data{$item};                              $linkprot_env{$item} = $data{$item};
                         }                          }
Line 764  sub handler { Line 772  sub handler {
                     return OK;                      return OK;
                 }                  }
                 &Apache::lonnet::appenv({'request.linkprot' => $data{'linkprot'}});                  &Apache::lonnet::appenv({'request.linkprot' => $data{'linkprot'}});
                   if ($data{'linkprotexit'}) {
                       &Apache::lonnet::appenv({'request.linkprotexit' => $data{'linkprotexit'}});
                   }
                 if ($env{'request.linkkey'}) {                  if ($env{'request.linkkey'}) {
                     &Apache::lonnet::delenv('request.linkkey');                      &Apache::lonnet::delenv('request.linkkey');
                 }                  }
Line 958  sub handler { Line 969  sub handler {
                                           'user.linkproturi' => $linkuri,                                            'user.linkproturi' => $linkuri,
                                           'request.linkprot' => $data{'linkprot'}};                                            'request.linkprot' => $data{'linkprot'}};
                         }                          }
                           if ($data{'linkprotexit'}) {
                               $extra_env->{'request.linkprotexit'} = $data{'linkprotexit'};
                           }
                     }                      }
                     foreach my $item ('linkprotuser','linkprotexit') {                      foreach my $item ('linkprotuser','linkprotexit') {
                         if ($data{$item} ne '') {                          if ($data{$item} ne '') {
Line 993  sub handler { Line 1007  sub handler {
             }              }
     &Apache::lonauth::success($r,$data{'username'},$data{'domain'},      &Apache::lonauth::success($r,$data{'username'},$data{'domain'},
       $home,$desturl,$extra_env,\%form,$skipcritical,'',        $home,$desturl,$extra_env,\%form,$skipcritical,'',
                                       $expirepub);                                        $expirepub,$data{'lcssowin'});
  }   }
  return OK;   return OK;
     }      }
Line 1061  sub handler { Line 1075  sub handler {
             }              }
             if ($data{'linkprot'}) {              if ($data{'linkprot'}) {
                 $extra_env->{'request.linkprot'} = $data{'linkprot'};                  $extra_env->{'request.linkprot'} = $data{'linkprot'};
                   if ($data{'linkprotexit'}) {
                       $extra_env->{'request.linkprotexit'} = $data{'linkprotexit'};
                   }
                 foreach my $item ('linkprotuser','linkprotexit') {                  foreach my $item ('linkprotuser','linkprotexit') {
                     if ($data{$item}) {                      if ($data{$item}) {
                         $form{'request.'.$item} = $data{$item};                          $form{'request.'.$item} = $data{$item};
Line 1071  sub handler { Line 1088  sub handler {
             }              }
         }          }
         &Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,          &Apache::lonauth::success($r,$data{'username'},$data{'domain'},$home,
                                   $next_url,$extra_env,\%form,'',$cid);                                    $next_url,$extra_env,\%form,'',$cid,'',$data{'lcssowin'});
     }      }
     return OK;      return OK;
 }  }
Removed from v.1.63  
changed lines
  Added in v.1.65

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