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
