version 1.160, 2014/12/01 22:52:54
|
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 203 sub get_posted_cgi {
|
Line 202 sub get_posted_cgi {
|
$fname=''; |
$fname=''; |
$fmime=''; |
$fmime=''; |
} |
} |
|
if ($i<$#lines && $lines[$i+1]=~/^Content\-Type\:\s*([\w\-\/]+)/i) { |
|
# TODO: something with $1 ! |
|
$i++; |
|
} |
|
if ($i<$#lines && $lines[$i+1]=~/^Content\-transfer\-encoding\:\s*([\w\-\/]+)/i) { |
|
# TODO: something with $1 ! |
|
$i++; |
|
} |
$i++; |
$i++; |
} |
} |
} else { |
} else { |
Line 290 sub sso_login {
|
Line 297 sub sso_login {
|
return undef; |
return undef; |
} |
} |
|
|
my ($user) = ($r->user =~ m/([a-zA-Z0-9_\-@.]*)/); |
my ($user) = ($r->user =~ m/^($match_username)$/); |
|
if ($user eq '') { |
|
return undef; |
|
} |
|
|
my $query = $r->args; |
my $query = $r->args; |
my %form; |
my %form; |
Line 350 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, |