version 1.37, 2018/12/02 14:41:19
|
version 1.38, 2018/12/03 23:43:57
|
Line 339 sub conlost_userhome {
|
Line 339 sub conlost_userhome {
|
map { $conlost{$_} = 1; } split(/,/,$data{'conlost'}); |
map { $conlost{$_} = 1; } split(/,/,$data{'conlost'}); |
} |
} |
if ($data{'loncfail'}) { |
if ($data{'loncfail'}) { |
if ($is_balancer) { |
if ($lonhost ne $data{'from_balancer'}) { |
if ($lonhost ne $data{'from_balancer'}) { |
my ($is_balancer,$posshost,$setcookie,$offloadto,$dom_balancers) = |
my ($is_balancer,$posshost,$setcookie,$offloadto,$dom_balancers) = |
&Apache::lonnet::check_loadbalancing($data{'username'},$data{'domain'}); |
&Apache::lonnet::check_loadbalancing($data{'username'},$data{'domain'}); |
if ($is_balancer) { |
if ($is_balancer) { |
if (ref($offloadto) eq 'HASH') { |
if (ref($offloadto) eq 'HASH') { |
$data{'offloadto'} = ''; |
$data{'offloadto'} = ''; |
foreach my $key (keys(%{$offloadto})) { |
foreach my $key (keys(%{$offloadto})) { |
if (ref($offloadto->{$key}) eq 'ARRAY') { |
if (ref($offloadto->{$key}) eq 'ARRAY') { |
$data{'offloadto'} .= $key.'='.join(',',@{$offloadto->{$key}}).'&'; |
$data{'offloadto'} .= $key.'='.join(',',@{$offloadto->{$key}}).'&'; |
|
} |
|
} |
} |
$data{'offloadto'} =~ s/\&$//; |
|
} elsif (ref($offloadto) eq 'ARRAY') { |
|
$data{'offloadto'} = join(',',@{$offloadto}); |
|
} |
} |
|
$data{'offloadto'} =~ s/\&$//; |
|
} elsif (ref($offloadto) eq 'ARRAY') { |
|
$data{'offloadto'} = join(',',@{$offloadto}); |
} |
} |
} |
} |
} |
} |
Line 577 sub handler {
|
Line 575 sub handler {
|
$udom=$data{'domain'}; |
$udom=$data{'domain'}; |
} |
} |
if ($home eq 'no_host') { return &goto_login($r,$udom,\%data); } |
if ($home eq 'no_host') { return &goto_login($r,$udom,\%data); } |
if (&Apache::lonnet::hostname($home) eq '') { return &goto_login($r,$udom,\%data); } |
if (&Apache::lonnet::hostname($home) eq '') { return &goto_login($r,$udom,\%data); } |
|
|
my $rolemsg; |
my $rolemsg; |
if ($data{'role'}) { |
if ($data{'role'}) { |
$rolemsg = "role: $data{'role'}"; |
$rolemsg = "role: $data{'role'}"; |
} else { |
} else { |
$rolemsg = '(no role)'; |
$rolemsg = '(no role)'; |
} |
} |