--- loncom/auth/checkauthen.pm 2006/09/19 15:18:54 1.8 +++ loncom/auth/checkauthen.pm 2012/04/18 18:55:06 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network # checks for a cokkie to authenticate a user # -# $Id: checkauthen.pm,v 1.8 2006/09/19 15:18:54 albertel Exp $ +# $Id: checkauthen.pm,v 1.13 2012/04/18 18:55:06 raeburn 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,21 +61,17 @@ sub handler { } } - my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); - my $lonid=$cookies{'lonID'}; - my $handle; - if ($lonid) { - my $handle = $lonid->value; - $handle=~s/\W//g; - $handle = $r->dir_config('lonIDsDir')."/$handle.id"; - } else { + my $handle = &Apache::lonnet::check_for_valid_session($r); + if ($handle eq '') { $handle = $env{'user.environment'}; } - if (($handle ne '') && (-e $handle)) { + if ($handle ne '') { return OK; } - + if (($fail == FORBIDDEN) && ($r->uri eq '/adm/email')) { + $env{'form.firsturl'} = $r->uri; + } return $fail; }