version 1.103, 2006/12/11 14:06:04
|
version 1.104, 2007/01/08 15:54:23
|
Line 184 sub sso_login {
|
Line 184 sub sso_login {
|
} |
} |
return OK; |
return OK; |
} elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) { |
} elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) { |
|
$r->subprocess_env->set('SSOUserUnknown' => $user); |
|
$r->subprocess_env->set('SSOUserDomain' => $domain); |
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
$r->set_handlers('PerlHandler'=> undef); |
$r->set_handlers('PerlHandler'=> undef); |
return OK; |
return OK; |