Diff for /loncom/auth/lonauth.pm between versions 1.121.2.25 and 1.121.2.27

version 1.121.2.25, 2022/02/27 02:06:20 version 1.121.2.27, 2024/10/09 17:56:24
Line 29 Line 29
 package Apache::lonauth;  package Apache::lonauth;
   
 use strict;  use strict;
 use LONCAPA;  use LONCAPA qw(:DEFAULT :match);
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use CGI qw(:standard);  use CGI qw(:standard);
 use Apache::loncommon();  use Apache::loncommon();
Line 149  sub success { Line 149  sub success {
     }      }
   
     my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});      my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});
       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';
               }
           }
       }
     my $startupremote=&Apache::lonmenu::startupremote($destination);      my $startupremote=&Apache::lonmenu::startupremote($destination);
     my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);      my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
     my $setflags=&Apache::lonmenu::setflags();      my $setflags=&Apache::lonmenu::setflags();

Removed from v.1.121.2.25  
changed lines
  Added in v.1.121.2.27


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