version 1.92, 2006/08/08 17:20:15
|
version 1.93, 2006/08/29 20:04:41
|
Line 150 sub handler {
|
Line 150 sub handler {
|
$handle=$lonid->value; |
$handle=$lonid->value; |
$handle=~s/\W//g; |
$handle=~s/\W//g; |
} |
} |
|
|
my ($sso_login); |
my ($sso_login); |
if ($r->user |
if ($r->user |
|
#&& $r->user ne 'lonadm' |
&& (!$lonid || !-e "$lonidsdir/$handle.id" || $handle eq '') ) { |
&& (!$lonid || !-e "$lonidsdir/$handle.id" || $handle eq '') ) { |
$sso_login = 1; |
&Apache::lonnet::logthis("$handle and -e ".(-e "$lonidsdir/$handle.id")); |
|
|
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
my $home=&Apache::lonnet::homeserver($r->user,$domain); |
my $home=&Apache::lonnet::homeserver($r->user,$domain); |
if ($home !~ /(con_lost|no_such_host)/) { |
if ($home !~ /(con_lost|no_host|no_such_host)/) { |
$handle=&Apache::lonauth::success($r,$r->user,$domain, |
my %info=('ip' => $r->connection->remote_ip(), |
$home,'noredirect'); |
'domain' => $domain, |
$r->header_out('Set-cookie',"lonID=$handle; path=/"); |
'username' => $r->user, |
|
'server' => $r->dir_config('lonHostID'), |
|
'sso.login' => 1 |
|
); |
|
my $token = &Apache::lonnet::tmpput(\%info, |
|
$r->dir_config('lonHostID')); |
|
$env{'form.token'} = $token; |
|
$r->internal_redirect('/adm/migrateuser'); |
|
return OK; |
|
} elsif (defined($r->dir_config('lonSSOUserUnkownRedirect'))) { |
|
$r->internal_redirect($r->dir_config('lonSSOUserUnkownRedirect')); |
|
return OK; |
} |
} |
} |
} |
|
|
if ($sso_login) { |
|
&Apache::lonnet::appenv('request.sso.login' => 1); |
|
} |
|
|
|
if ($r->dir_config("lonBalancer") eq 'yes') { |
if ($r->dir_config("lonBalancer") eq 'yes') { |
$r->set_handlers('PerlResponseHandler'=> |
$r->set_handlers('PerlResponseHandler'=> |
[\&Apache::switchserver::handler]); |
[\&Apache::switchserver::handler]); |