![[BACK]](/icons/back.gif){kind=icon}
Return to lonacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth|
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, |