Return to lonacc.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.159.2.3, 2016/08/07 20:49:37 | version 1.159.2.4, 2016/08/16 20:36:45 |
---|---|
Line 352 sub sso_login { | Line 352 sub sso_login { |
} else { | } else { |
# need to login them in, so generate the need data that | # need to login them in, so generate the need data that |
# migrate expects to do login | # migrate expects to do login |
my $ip; | my $ip = $r->get_remote_host(); |
my $c = $r->connection; | |
eval { | |
$ip = $c->remote_ip(); | |
}; | |
if ($@) { | |
$ip = $c->client_ip(); | |
} | |
my %info=('ip' => $ip, | my %info=('ip' => $ip, |
'domain' => $domain, | 'domain' => $domain, |
'username' => $user, | 'username' => $user, |