On Wed 30 Sep 2009, Bernhard Janetzki wrote: > Hello together, > i'm trying basic authentication via > > ## apache2 config: > <Location /auth> > SetHandler perl-script > PerlAuthenHandler DataExchange::AuthHandler > #PerlResponseHandler ModPerl::Registry > Options +ExecCGI > PerlOptions +GlobalRequest > > AuthType Basic > AuthName "The Gate" > Require valid-user > </Location> > > > ## Example script: > > package DataExchange::AuthHandler; > > use strict; > use warnings; > > use Apache2::Access (); > use Apache2::RequestUtil (); > > use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED); > > sub handler { > my $r = shift; > > warn $r->user(); > > my $password = $r->get_basic_auth_pw;
have a look at http://perl.apache.org/docs/2.0/api/Apache2/Access.html#C_get_basic_auth_pw_ get_basic_auth_pw returns a status and the password. Your code has to check that status before proceeding. see also http://perl.apache.org/docs/2.0/user/handlers/http.html#PerlAuthenHandler Torsten -- Need professional mod_perl support? Just hire me: torsten.foert...@gmx.net