Return to lonacc.pm CVS log | Up to [LON-CAPA] / loncom / auth |
version 1.163, 2016/02/20 00:12:49 | version 1.164, 2016/08/16 20:17:49 |
---|---|
Line 360 sub sso_login { | Line 360 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, |