version 1.97, 2006/09/07 20:57:04
|
version 1.100, 2006/09/19 18:03:02
|
Line 180 sub sso_login {
|
Line 180 sub sso_login {
|
$r->internal_redirect('/adm/migrateuser'); |
$r->internal_redirect('/adm/migrateuser'); |
} |
} |
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')); |
return OK; |
return OK; |
} |
} |
return undef; |
return undef; |
Line 201 sub handler {
|
Line 201 sub handler {
|
$handle=~s/\W//g; |
$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 |
} |
} |
|
|