version 1.162, 2015/12/03 20:40:21
|
version 1.164, 2016/08/16 20:17:49
|
Line 109 sub cleanup {
|
Line 109 sub cleanup {
|
my ($r)=@_; |
my ($r)=@_; |
if (! $r->is_initial_req()) { return DECLINED; } |
if (! $r->is_initial_req()) { return DECLINED; } |
&Apache::lonnet::save_cache(); |
&Apache::lonnet::save_cache(); |
&Apache::lontexconvert::jsMath_reset(); |
|
return OK; |
return OK; |
} |
} |
|
|
Line 361 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, |