version 1.137, 2011/08/09 01:35:31
|
version 1.138, 2012/05/30 20:29:49
|
Line 438 sub handler {
|
Line 438 sub handler {
|
|
|
# ------------------------------------------------------ Check if load balancer |
# ------------------------------------------------------ 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) { |
if ($is_balancer) { |
$r->set_handlers('PerlResponseHandler'=> |
$r->set_handlers('PerlResponseHandler'=> |
[\&Apache::switchserver::handler]); |
[\&Apache::switchserver::handler]); |