--- loncom/auth/switchserver.pm 2019/01/27 16:02:43 1.48 +++ loncom/auth/switchserver.pm 2019/06/15 02:50:04 1.49 @@ -1,7 +1,7 @@ # The LearningOnline Network # Switch Servers Handler # -# $Id: switchserver.pm,v 1.48 2019/01/27 16:02:43 raeburn Exp $ +# $Id: switchserver.pm,v 1.49 2019/06/15 02:50:04 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -56,9 +56,13 @@ sub init_env { sub do_redirect { my ($r,$url,$only_body,$extra_text) = @_; $r->send_http_header; + my $delay = 0.5; + if ($only_body) { + $delay = 0; + } my $start_page = &Apache::loncommon::start_page('Switching Server ...',undef, - {'redirect' => [0.5,$url], + {'redirect' => [$delay,$url], 'only_body' => $only_body,}); my $end_page = &Apache::loncommon::end_page(); $r->print($start_page.$extra_text.$end_page); @@ -231,6 +235,7 @@ sub handler { # ---------------------------------------------------------------- Get handover my $newcookieid; + my $only_body = 0; my ($is_balancer,$posshost,$setcookie,$offloadto,$dom_balancers) = &Apache::lonnet::check_loadbalancing($env{'user.name'},$env{'user.domain'}); if ($is_balancer && $setcookie && $env{'form.otherserver'}) { @@ -239,8 +244,10 @@ sub handler { # cookie which points at the target server my ($found_server,$balancer_cookie) = &Apache::lonnet::check_for_balancer_cookie($r,1); - unless (($found_server eq $env{'form.otherserver'}) && - ($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) { + if (($found_server eq $env{'form.otherserver'}) && + ($balancer_cookie =~ /^\Q$env{'user.domain'}\E_\Q$env{'user.name'}\E_/)) { + $only_body = 1; + } else { $newcookieid = &balancer_cookieid($r,$env{'form.otherserver'}, $env{'user.name'},$env{'user.domain'}); } @@ -328,7 +335,7 @@ sub handler { '&username='.$env{'user.name'}. '&token='.$token; # --------------------------------------------------------------- Screen Output - return &do_redirect($r, $url, 0); + return &do_redirect($r, $url, $only_body); } 1;