loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.25.2.2, 2020/05/02 17:35:40
+version 1.25.2.3, 2020/10/23 20:58:08
  Line 255  sub handler {
          } else {
              $extra_env = { 'request.balancercookie' => $data{'server'}.':'.$data{'balcookie'} };
          }
+     } elsif (($data{'server'}) && ($data{'otherbalcookie'})) {
+         my ($balancer,$balcookie) = split(/:/,$data{'otherbalcookie'});
+         if (defined(&Apache::lonnet::hostname($balancer)) && $balcookie =~ /^[a-f0-9]{32}$/) {
+             my $baldom = &Apache::lonnet::host_domain($balancer);
+             if (&Apache::lonnet::shared_institution($baldom)) {
+                 my $cookieid = join('_',$udom,$data{'username'},$balcookie);
+                 &Apache::lonnet::updatebalcookie($cookieid,$balancer,$data{'server'});
+                 if (ref($extra_env) eq 'HASH') {
+                     $extra_env->{'request.balancercookie'} = $data{'otherbalcookie'};
+                 } else {
+                     $extra_env = { 'request.balancercookie' => $data{'otherbalcookie'} };
+                 }
+             }
+         }
      }
      my (%form,$cid);