version 1.97, 2006/09/07 20:57:04
|
version 1.102, 2006/11/23 01:49:41
|
Line 164 sub sso_login {
|
Line 164 sub sso_login {
|
# machine |
# machine |
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect'); |
&Apache::lonauth::success($r,$user,$domain,$home,'noredirect'); |
$r->internal_redirect('/adm/switchserver'); |
$r->internal_redirect('/adm/switchserver'); |
|
$r->set_handlers('PerlHandler'=> undef); |
} 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 |
Line 178 sub sso_login {
|
Line 179 sub sso_login {
|
$r->dir_config('lonHostID')); |
$r->dir_config('lonHostID')); |
$env{'form.token'} = $token; |
$env{'form.token'} = $token; |
$r->internal_redirect('/adm/migrateuser'); |
$r->internal_redirect('/adm/migrateuser'); |
|
$r->set_handlers('PerlHandler'=> undef); |
} |
} |
return OK; |
return OK; |
} elsif (defined($r->dir_config('lonSSOUserUnkownRedirect'))) { |
} elsif (defined($r->dir_config('lonSSOUserUnknownRedirect'))) { |
$r->internal_redirect($r->dir_config('lonSSOUserUnkownRedirect')); |
$r->internal_redirect($r->dir_config('lonSSOUserUnknownRedirect')); |
|
$r->set_handlers('PerlHandler'=> undef); |
return OK; |
return OK; |
} |
} |
return undef; |
return undef; |
Line 197 sub handler {
|
Line 200 sub handler {
|
|
|
my $handle; |
my $handle; |
if ($lonid) { |
if ($lonid) { |
$handle=$lonid->value; |
$handle=&LONCAPA::clean_handle($lonid->value); |
$handle=~s/\W//g; |
|
} |
} |
|
|
if (my $result = &sso_login($r,$lonid,$handle)) { |
my $result = &sso_login($r,$lonid,$handle); |
|
if (defined($result)) { |
return $result |
return $result |
} |
} |
|
|