version 1.114, 2008/03/08 02:45:14
|
version 1.115, 2008/05/14 18:27:30
|
Line 203 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; |
} |
} |