>         # get user's authentication credentials
>         my ($res, $sent_pw) = $r->get_basic_auth_pw;
>        $r->note_basic_auth_failure;

do not call note_basic_auth_failure here.

> Hope someone will see wrong settings or errors in the code that I overlook.
> Grareful for any hints,

I think that the above fix ought to work, but if it doesn't you can just
steal an example from here:

  http://www.modperlcookbook.org/code/ch13/Cookbook/Authenticate.pm

and read the corresponding explanation here:

  http://www.modperlcookbook.org/chapters/ch13.pdf

specifically, you will want to read recipe 13.3 to understand how the API
interacts with the HTTP authentication challenge/response cycle.

HTH

--Geoff

-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html

Reply via email to