--- loncom/auth/publiccheck.pm 2006/07/14 21:39:16 1.6 +++ loncom/auth/publiccheck.pm 2006/07/21 19:42:12 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: publiccheck.pm,v 1.6 2006/07/14 21:39:16 albertel Exp $ +# $Id: publiccheck.pm,v 1.9 2006/07/21 19:42:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -40,6 +40,7 @@ use Apache::lonacc(); sub handler { my $r = shift; + my $requrl=$r->uri; my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); my $lonid=$cookies{'lonID'}; @@ -60,20 +61,17 @@ sub handler { || (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) { &process_public($r,$requrl); return OK; - } elsif ($requrl =~ m|/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$|) { - my $access = &process_portfolio($1,$2,$3); + } elsif (&Apache::lonnet::is_portfolio_url($requrl)) { + my (undef,$udom,$unum,$file_name,$group) = + &Apache::lonnet::parse_portfolio_url($requrl); + my $access = &process_portfolio($udom,$unum,$file_name,$group); if ($access) { &process_public($r,$requrl,$access); return OK; } - } elsif ($requrl =~ m|/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$|) { - my $access = &process_portfolio($1,$2,$3.'/'.$4,$3); - if ($access) { - &process_public($r,$requrl,$access); - return OK; - } } elsif ($requrl eq '/adm/restrictedaccess') { &process_public($r,$requrl); + return OK; } return DECLINED; } @@ -85,7 +83,7 @@ sub process_public { my $cookie=&Apache::lonauth::success($r,'public','public','public'); my $lonidsdir=$r->dir_config('lonIDsDir'); &Apache::lonnet::transfer_profile_to_env($lonidsdir,$cookie); - $r->header_out('Set-cookie',"lonID=$cookie; path=/"); + $r->err_header_out('Set-cookie',"lonID=$cookie; path=/"); } &Apache::lonacc::get_posted_cgi($r); $env{'request.state'} = "published";