perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Mark Hedges <hed...@scriptdolphin.org>
Subject Re: Authorization module is not working
Date Thu, 08 Jan 2009 19:24:15 GMT


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

Mime
View raw message