version 1.113, 2007/11/06 02:42:40
|
version 1.115, 2008/05/14 18:27:30
|
Line 57 sub goodbye {
|
Line 57 sub goodbye {
|
############################################### |
############################################### |
|
|
sub get_posted_cgi { |
sub get_posted_cgi { |
my ($r) = @_; |
my ($r,$fields) = @_; |
|
|
my $buffer; |
my $buffer; |
if ($r->header_in('Content-length')) { |
if ($r->header_in('Content-length')) { |
Line 73 sub get_posted_cgi {
|
Line 73 sub get_posted_cgi {
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$name =~ tr/+/ /; |
$name =~ tr/+/ /; |
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if (ref($fields) eq 'ARRAY') { |
|
next if (!grep(/^\Q$name\E$/,@{$fields})); |
|
} |
&Apache::loncommon::add_to_env("form.$name",$value); |
&Apache::loncommon::add_to_env("form.$name",$value); |
} |
} |
} else { |
} else { |
Line 93 sub get_posted_cgi {
|
Line 96 sub get_posted_cgi {
|
} else { |
} else { |
$value=~s/\s+$//s; |
$value=~s/\s+$//s; |
} |
} |
|
if (ref($fields) eq 'ARRAY') { |
|
next if (!grep(/^\Q$name\E$/,@{$fields})); |
|
} |
&Apache::loncommon::add_to_env("form.$name",$value); |
&Apache::loncommon::add_to_env("form.$name",$value); |
} |
} |
if ($i<$#lines) { |
if ($i<$#lines) { |
Line 197 sub sso_login {
|
Line 203 sub sso_login {
|
&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('SSOUserUnknown' => $user); |
$r->subprocess_env->set('SSOUserDomain' => $domain); |
$r->subprocess_env->set('SSOUserDomain' => $domain); |
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
my @cancreate; |
|
my %domconfig = |
|
&Apache::lonnet::get_dom('configuration',['usercreation'],$domain); |
|
if (ref($domconfig{'usercreation'}) eq 'HASH') { |
|
if (ref($domconfig{'usercreation'}{'cancreate'}) eq 'HASH') { |
|
if (ref($domconfig{'usercreation'}{'cancreate'}{'selfcreate'}) eq 'ARRAY') { |
|
@cancreate = @{$domconfig{'usercreation'}{'cancreate'}{'selfcreate'}}; |
|
} elsif (($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne 'none') && |
|
($domconfig{'usercreation'}{'cancreate'}{'selfcreate'} ne '')) { |
|
@cancreate = ($domconfig{'usercreation'}{'cancreate'}{'selfcreate'}); |
|
} |
|
} |
|
} |
|
if (grep(/^sso$/,@cancreate)) { |
|
$r->internal_redirect('/adm/createaccount'); |
|
} else { |
|
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
|
} |
$r->set_handlers('PerlHandler'=> undef); |
$r->set_handlers('PerlHandler'=> undef); |
return OK; |
return OK; |
} |
} |