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

Diff for /loncom/auth/migrateuser.pm between versions 1.25.2.4 and 1.25.2.5

version 1.25.2.4, 2021/01/04 03:52:32 version 1.25.2.5, 2021/12/12 18:34:48
Line 30  package Apache::migrateuser; Line 30  package Apache::migrateuser;
   
 use strict;  use strict;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use Apache::Constants qw(:common :http :methods);  use Apache::Constants qw(:common :http :methods :remotehost);
 use Apache::lonauth;  use Apache::lonauth;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonlocal;  use Apache::lonlocal;
Line 161  sub ip_changed { Line 161  sub ip_changed {
                 if ($hostname) {                  if ($hostname) {
                     my $protocol = $Apache::lonnet::protocol{$switchto};                      my $protocol = $Apache::lonnet::protocol{$switchto};
                     $protocol = 'http' if ($protocol ne 'https');                      $protocol = 'http' if ($protocol ne 'https');
                       my $alias = &Apache::lonnet::use_proxy_alias($r,$switchto);
                       $hostname = $alias if ($alias ne '');
                     $url = $protocol.'://'.$hostname;                      $url = $protocol.'://'.$hostname;
                     if ($rule_in_effect eq 'balancer') {                      if ($rule_in_effect eq 'balancer') {
                         $message .= '<br />'.                          $message .= '<br />'.
Line 189  sub ip_changed { Line 191  sub ip_changed {
         my %info= (          my %info= (
                     'domain'          => $udom,                      'domain'          => $udom,
                     'username'        => $dataref->{'username'},                      'username'        => $dataref->{'username'},
                     'role'            => $dataref->{'role'},  
                     'sessionserver'   => $lonhost,                      'sessionserver'   => $lonhost,
                   );                    );
         if ($dataref->{'origurl'}) {          my @names = ('origurl','symb','role');
             $info{'origurl'} = $dataref->{'origurl'};          foreach my $name (@names) {
         }              if ($dataref->{$name} ne '') {
         if ($dataref->{'symb'}) {                  $info{$name} = $dataref->{$name};
             $info{'symb'} = $dataref->{'symb'};              }
         }          }
         my $iptoken = &Apache::lonnet::tmpput(\%info,$switchto);          my $iptoken = &Apache::lonnet::tmpput(\%info,$switchto,'link');
         unless ($iptoken eq 'conlost') {          unless ($iptoken eq 'conlost') {
             $url .= ($url =~ /\?/) ? '&' : '?';              $url .= (($url =~ /\?/) ? '&' : '?') . 'iptoken='.$iptoken;
             $url .= 'iptoken='.$iptoken;  
         }          }
         $r->print(&Apache::loncommon::start_page($title,undef,          $r->print(&Apache::loncommon::start_page($title,undef,
                                                  {'redirect' =>                                                   {'redirect' =>
Line 234  sub handler { Line 234  sub handler {
     if (!defined($data{'username'}) || !defined($data{'domain'})) {      if (!defined($data{'username'}) || !defined($data{'domain'})) {
         return &goto_login($r);          return &goto_login($r);
     }      }
     my $ip = &Apache::lonnet::get_requestor_ip();       my $ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP); 
     if ($data{'ip'} ne $ip) {      if ($data{'ip'} ne $ip) {
         &Apache::lonnet::logthis('IP change when session migration requested -- was: '.          &Apache::lonnet::logthis('IP change when session migration requested -- was: '.
                  $data{'ip'}.'; now: '.$ip.' for '.$data{'username'}.':'.$data{'domain'});                   $data{'ip'}.'; now: '.$ip.' for '.$data{'username'}.':'.$data{'domain'});
Line 289  sub handler { Line 289  sub handler {
             }              }
         }          }
     } else {      } else {
  my $handle = &Apache::lonnet::check_for_valid_session($r);          my ($handle,$expirepub);
    $handle = &Apache::lonnet::check_for_valid_session($r);
   
   # For "public user" - remove any existing "public" cookie so actual user is logged in.
           if ($handle) {
               if ($handle=~/^publicuser\_/) {
                   my $lonidsdir=$r->dir_config('lonIDsDir');
                   if ($lonidsdir ne '') {
                       unlink("$lonidsdir/$handle.id");
                   }
                   undef($handle);
                   $expirepub = 1;
               }
           }
  if ($handle) {   if ($handle) {
     &Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),      &Apache::lonnet::transfer_profile_to_env($r->dir_config('lonIDsDir'),
      $handle);       $handle);
Line 306  sub handler { Line 319  sub handler {
                 $desturl = $data{'origurl'};                  $desturl = $data{'origurl'};
             }              }
     &Apache::lonauth::success($r,$data{'username'},$data{'domain'},      &Apache::lonauth::success($r,$data{'username'},$data{'domain'},
       $home,$desturl,$extra_env,\%form);        $home,$desturl,$extra_env,\%form,'',
                                         $expirepub);
   
  }   }
  return OK;   return OK;
Removed from v.1.25.2.4  
changed lines
  Added in v.1.25.2.5

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