loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.137, 2011/08/09 01:35:31
+version 1.138, 2012/05/30 20:29:49
  Line 438  sub handler {
  # ------------------------------------------------------ Check if load balancer
-         ($is_balancer,$otherserver) =
+         my $checkexempt;
-             &Apache::lonnet::check_loadbalancing($env{'user.name'},
+         if ($env{'user.loadbalexempt'} eq $r->dir_config('lonHostID')) {
-                                                  $env{'user.domain'});
+             if ($env{'user.loadbalcheck.time'} + 600 > time) {
+                 $checkexempt = 1;
+             }
+         }
+         unless ($checkexempt) {
+             ($is_balancer,$otherserver) =
+                 &Apache::lonnet::check_loadbalancing($env{'user.name'},
+                                                      $env{'user.domain'});
+         }
          if ($is_balancer) {
              $r->set_handlers('PerlResponseHandler'=>
                               [\&Apache::switchserver::handler]);