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

Diff for /loncom/auth/migrateuser.pm between versions 1.38 and 1.39

version 1.38, 2018/12/03 23:43:57 version 1.39, 2018/12/07 23:10:44
Line 119  sub lti_check { Line 119  sub lti_check {
     return \%lti_env;      return \%lti_env;
 }  }
   
   sub canhost {
       my ($uname,$udom,$lonhost,$loncaparev) = @_;
       my $canhost;
       if (&Apache::lonnet::is_library($lonhost)) {
           my @possdoms = &Apache::lonnet::current_machine_domains();
           my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles','',['ca','aa'],\@possdoms);
           if (keys(%roleshash)) {
               foreach my $key (keys(%roleshash)) {
                   my $audom = (split(/:/,$key))[1];    
                   if ((&Apache::lonnet::will_trust('othcoau',$udom,$audom)) &&
                       (&Apache::lonnet::will_trust('coaurem',$audom,$udom))) {
                       $canhost = 1;
                       last;
                   }
               }
           }
       }
       unless ($canhost) {
           my $uprimary_id = &Apache::lonnet::domain($udom,'primary');
           my $uint_dom = &Apache::lonnet::internet_dom($uprimary_id);
           my @intdoms;
           my $internet_names = &Apache::lonnet::get_internet_names($lonhost);
           if (ref($internet_names) eq 'ARRAY') {
               @intdoms = @{$internet_names};
           }
           if ($uint_dom ne '' && grep(/^\Q$uint_dom\E$/,@intdoms)) {
               $canhost = 1;
           } else {
               my $hostname = &Apache::lonnet::hostname($lonhost);
               my $serverhomeID = &Apache::lonnet::get_server_homeID($hostname);
               my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID);
               my %defdomdefaults = &Apache::lonnet::get_domain_defaults($serverhomedom);
               my %udomdefaults = &Apache::lonnet::get_domain_defaults($udom);
               $canhost =
                   &Apache::lonnet::can_host_session($udom,$lonhost,$loncaparev,
                                                     $udomdefaults{'remotesessions'},
                                                     $defdomdefaults{'hostedsessions'});
           }
       }
       return $canhost;
   }
   
 sub ip_changed {  sub ip_changed {
     my ($r,$udom,$camefrom,$idsref,$dataref) = @_;      my ($r,$udom,$camefrom,$idsref,$dataref) = @_;
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
Line 444  sub conlost_userhome { Line 486  sub conlost_userhome {
                 return $otherserver;                  return $otherserver;
             } else {              } else {
                 #FIXME Contents of $data{'dom_balancers'} contains invalid hostID.                  #FIXME Contents of $data{'dom_balancers'} contains invalid hostID.
             }                }
         } else {          } else {
             if ($data{'loncfail'}) {              if ($data{'loncfail'}) {
                 #FIXME Nowhere to go.                   #FIXME Nowhere to go. 
Line 577  sub handler { Line 619  sub handler {
     if ($home eq 'no_host') { return &goto_login($r,$udom,\%data); }      if ($home eq 'no_host') { return &goto_login($r,$udom,\%data); }
     if (&Apache::lonnet::hostname($home) eq '') { return &goto_login($r,$udom,\%data); }      if (&Apache::lonnet::hostname($home) eq '') { return &goto_login($r,$udom,\%data); }
   
       unless (grep(/^\Q$home\E$/,@ids)) {
           my $lonhost = $r->dir_config('lonHostID');
           my $loncaparev = $r->dir_config('lonVersion');
           unless (&canhost($data{'username'},$data{'domain'},$lonhost,$loncaparev)) {
               return &goto_login($r,$udom,\%data);
           }
       }
       
     my $rolemsg;      my $rolemsg;
     if ($data{'role'}) {      if ($data{'role'}) {
         $rolemsg = "role: $data{'role'}";          $rolemsg = "role: $data{'role'}";
Removed from v.1.38  
changed lines
  Added in v.1.39

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