--- loncom/auth/checkauthen.pm 2006/09/07 17:07:26 1.7 +++ loncom/auth/checkauthen.pm 2007/10/02 01:09:59 1.12 @@ -1,7 +1,7 @@ # The LearningOnline Network # checks for a cokkie to authenticate a user # -# $Id: checkauthen.pm,v 1.7 2006/09/07 17:07:26 albertel Exp $ +# $Id: checkauthen.pm,v 1.12 2007/10/02 01:09:59 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,6 +36,10 @@ use Apache::lonnet; sub handler { my ($r) = @_; + if (&Apache::lonnet::is_domainimage($r->uri)) { + return OK; + } + if ($r->auth_type() ne 'LONCAPA') { return DECLINED; } @@ -57,17 +61,15 @@ sub handler { } } - my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); - my $lonid=$cookies{'lonID'}; - my $cookie; - if ($lonid) { - my $handle=$lonid->value; - $handle=~s/\W//g; - my $lonidsdir=$r->dir_config('lonIDsDir'); - if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { - return OK; - } + my $handle = &Apache::lonnet::check_for_valid_session($r); + if ($handle eq '') { + $handle = $env{'user.environment'}; } + + if ($handle ne '') { + return OK; + } + return $fail; }