Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (nike.apache.org: domain of odysseas@sysnetint.com
 designates 204.10.243.120 as permitted sender)
Reply-To: <odysseas@sysnetint.com>
From: "Odysseas Pentakalos, Ph.D." <odysseas@sysnetint.com>
To: "'Mark Hedges'" <hedges@scriptdolphin.org>
Cc: <modperl@perl.apache.org>
References: <34D63706784547699728873644F8AEAB@northgrum.com>
 <alpine.DEB.1.10.0901081122540.7757@li16-163.members.linode.com>
Subject: RE: Authorization module is not working
Date: Thu, 8 Jan 2009 14:45:12 -0500
Organization: SYSNET International, Inc.
Message-ID: <649607324C0C4477AFC92348AF56E2F1@northgrum.com>
MIME-Version: 1.0
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: 7bit
In-Reply-To: <alpine.DEB.1.10.0901081122540.7757@li16-163.members.linode.com>
thread-index: AclxxuGmSIc4wj6IT5a6MvKViXNk7gAAh0yg

Mark,

Thanks so much for your help. That was not the problem but it helped me see
the problem. I was not importing the Constants at the top so regardless of
whether I was returning FORBIDDEN or DECLINED, or HTTP_UNAUTHORIZED the
value was invalid. I spent hours tracking down this oversight.

Thanks again,
Odysseas

-----Original Message-----
From: Mark Hedges [mailto:hedges@scriptdolphin.org] 
Sent: Thursday, January 08, 2009 2:24 PM
To: Odysseas Pentakalos, Ph.D.
Cc: modperl@perl.apache.org
Subject: Re: Authorization module is not working


On Wed, 7 Jan 2009, Odysseas Pentakalos, Ph.D. wrote:
>
> sub handler {
>     my($r) = @_;
>
>     my $log = $r->log;
>
>     return FORBIDDEN unless $r->is_main;
>
>     my $subr = $r->lookup_uri($r->uri);
>     my $dn = $subr->subprocess_env('SSL_CLIENT_S_DN');
>
>     $r->log_reason("In CertAuthz a certificate must be provided with a 
> DN of $dn.", $r->filename);
>     return FORBIDDEN;
> }

Try using $r->note_basic_auth_failure() and return
Apache2::Const::HTTP_UNAUTHORIZED ?

http://perl.apache.org/docs/2.0/user/handlers/http.html#PerlAuthzHandler

Mark