|
version 1.30, 2010/09/06 15:44:05
|
version 1.32, 2013/09/29 00:49:24
|
|
Line 115 sub handler {
|
Line 115 sub handler {
|
| if (&Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}) eq $env{'form.otherserver'}) { |
if (&Apache::lonnet::homeserver($env{'user.name'},$env{'user.domain'}) eq $env{'form.otherserver'}) { |
| $skip_canhost_check = 1; |
$skip_canhost_check = 1; |
| } |
} |
| } elsif ($env{'form.role'} =~ m{^[ac]a\./($match_domain)/($match_username)/$}) { |
} elsif ($env{'form.role'} =~ m{^[ac]a\./($match_domain)/($match_username)$}) { |
| if (&Apache::lonnet::homeserver($2,$1) eq $env{'form.otherserver'}) { |
if (&Apache::lonnet::homeserver($2,$1) eq $env{'form.otherserver'}) { |
| $skip_canhost_check = 1; |
$skip_canhost_check = 1; |
| } |
} |
|
Line 173 sub handler {
|
Line 173 sub handler {
|
| |
|
| # ---------------------------------------------------------------- Get handover |
# ---------------------------------------------------------------- Get handover |
| |
|
| |
my ($is_balancer) = &Apache::lonnet::check_loadbalancing($env{'user.name'},$env{'user.domain'}); |
| my %info=('ip' => $ENV{'REMOTE_ADDR'}, |
my %info=('ip' => $ENV{'REMOTE_ADDR'}, |
| 'domain' => $env{'user.domain'}, |
'domain' => $env{'user.domain'}, |
| 'username' => $env{'user.name'}, |
'username' => $env{'user.name'}, |
| 'role' => $env{'form.role'}, |
'role' => $env{'form.role'}, |
| 'server' => $r->dir_config('lonHostID')); |
'server' => $r->dir_config('lonHostID'), |
| |
'balancer' => $is_balancer); |
| if ($env{'form.origurl'}) { |
if ($env{'form.origurl'}) { |
| $info{'origurl'} = $env{'form.origurl'}; |
$info{'origurl'} = $env{'form.origurl'}; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to switchserver.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth