version 1.153, 2014/01/30 12:15:12
|
version 1.155, 2014/05/05 23:17:12
|
Line 160 sub get_posted_cgi {
|
Line 160 sub get_posted_cgi {
|
if (length($value) == 1) { |
if (length($value) == 1) { |
$value=~s/[\r\n]$//; |
$value=~s/[\r\n]$//; |
} |
} |
|
} elsif ($fname =~ /\.(xls|doc|ppt)x$/i) { |
|
$value=~s/[\r\n]$//; |
} |
} |
if (ref($fields) eq 'ARRAY') { |
if (ref($fields) eq 'ARRAY') { |
next if (!grep(/^\Q$name\E$/,@{$fields})); |
next if (!grep(/^\Q$name\E$/,@{$fields})); |
Line 384 sub sso_login {
|
Line 386 sub sso_login {
|
$r->set_handlers('PerlHandler'=> undef); |
$r->set_handlers('PerlHandler'=> undef); |
} |
} |
return OK; |
return OK; |
} elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) { |
} else { |
&Apache::lonnet::logthis(" SSO authorized unknown user $user "); |
&Apache::lonnet::logthis(" SSO authorized unknown user $user "); |
$r->subprocess_env->set('SSOUserUnknown' => $user); |
|
$r->subprocess_env->set('SSOUserDomain' => $domain); |
|
my @cancreate; |
my @cancreate; |
my %domconfig = |
my %domconfig = |
&Apache::lonnet::get_dom('configuration',['usercreation'],$domain); |
&Apache::lonnet::get_dom('configuration',['usercreation'],$domain); |
Line 401 sub sso_login {
|
Line 401 sub sso_login {
|
} |
} |
} |
} |
} |
} |
if (grep(/^sso$/,@cancreate)) { |
if ((grep(/^sso$/,@cancreate)) || (defined($r->dir_config('lonSSOUserUnknownRedirect')))) { |
$r->set_handlers('PerlHandler'=> |
$r->subprocess_env->set('SSOUserUnknown' => $user); |
[\&Apache::createaccount::handler]); |
$r->subprocess_env->set('SSOUserDomain' => $domain); |
$r->handler('perl-script'); |
if (grep(/^sso$/,@cancreate)) { |
} else { |
$r->set_handlers('PerlHandler'=> [\&Apache::createaccount::handler]); |
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
$r->handler('perl-script'); |
$r->set_handlers('PerlHandler'=> undef); |
} else { |
|
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
|
$r->set_handlers('PerlHandler'=> undef); |
|
} |
|
return OK; |
} |
} |
return OK; |
|
} |
} |
return undef; |
return undef; |
} |
} |