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

Diff for /loncom/auth/lonauth.pm between versions 1.121.2.24.2.7 and 1.121.2.24.2.8

version 1.121.2.24.2.7, 2023/07/05 17:33:03 version 1.121.2.24.2.8, 2024/10/09 18:12:23
Line 220  sub success { Line 220  sub success {
         }          }
         $args->{'redirect'} = [0,$destination,'',$write_to_opener];          $args->{'redirect'} = [0,$destination,'',$write_to_opener];
     } else {      } else {
           if ($env{'environment.remote'} eq 'on') {
               my $checkexempt;
               if ($env{'user.loadbalexempt'} eq $r->dir_config('lonHostID')) {
                   if ($env{'user.loadbalcheck.time'} + 600 > time) {
                       $checkexempt = 1;
                   }
               }
               if ($env{'user.noloadbalance'} eq $r->dir_config('lonHostID')) {
                   $checkexempt = 1;
               }
               unless (($checkexempt) ||
                       (($destination =~ m{^/adm/switchserver}) && (!$r->is_initial_req()))) {
                   my ($is_balancer,$otherserver) =
                       &Apache::lonnet::check_loadbalancing($env{'user.name'},
                                                            $env{'user.domain'});
                   if (($is_balancer) && ($otherserver ne '') &&
                       ($otherserver ne $r->dir_config('lonHostID'))) {
                       $env{'environment.remote'} = 'off';
                   }
               }
           }
         $startupremote=&Apache::lonmenu::startupremote($destination);          $startupremote=&Apache::lonmenu::startupremote($destination);
     }      }
   
Removed from v.1.121.2.24.2.7  
changed lines
  Added in v.1.121.2.24.2.8

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