version 1.69, 2005/11/23 20:46:04
|
version 1.70, 2005/11/29 21:12:03
|
Line 44 sub handler {
|
Line 44 sub handler {
|
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); |
my $lonid=$cookies{'lonID'}; |
my $lonid=$cookies{'lonID'}; |
my $cookie; |
my $cookie; |
|
my $lonidsdir=$r->dir_config('lonIDsDir'); |
|
|
|
my $handle; |
if ($lonid) { |
if ($lonid) { |
my $handle=$lonid->value; |
$handle=$lonid->value; |
$handle=~s/\W//g; |
$handle=~s/\W//g; |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
} |
|
|
|
if ($r->user |
|
&& (!$lonid || !-e "$lonidsdir/$handle.id" || $handle eq '') ) { |
|
my $domain = $r->dir_config('lonDefDomain'); |
|
my $home=&Apache::lonnet::homeserver($r->user,$domain); |
|
if ($home !~ /(con_lost|no_such_host)/) { |
|
$handle=&Apache::lonauth::success($r,$r->user,$domain, |
|
$home,'noredirect'); |
|
$r->header_out('Set-cookie',"lonID=$handle; path=/"); |
|
} |
|
} |
|
|
|
if ($r->dir_config("lonBalancer") eq 'yes') { |
|
$r->set_handlers('PerlResponseHandler'=> |
|
[\&Apache::switchserver::handler]); |
|
} |
|
|
|
if ($handle ne '') { |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
|
|
# ------------------------------------------------------ Initialize Environment |
# ------------------------------------------------------ Initialize Environment |