Gotcha. And the reason I don't call $r->get_basic_auth_pw() is I can't
live on the CVS edge.
[Quoting conversation from a few weeks ago]
------------------------------------------------------------------------
> my ($res,$password) = $r->get_basic_auth_pw;
this will core dump if AuthName is not set in the configuration file.
not with the current cvs though, see previous message.
> $r->note_basic_auth_failure;
this won't work right unless you've set $r->auth_name($val)
------------------------------------------------------------------------
Thanks for your help.
-Todd
On Fri, 13 Oct 2000, Doug MacEachern wrote:
> On Tue, 10 Oct 2000, Todd Chapman wrote:
>
> >
> > Is there a mod_perl bugs database? I am having a problem and I want to
> > make sure it isn't a bug in mod_perl that's fixed in a recent release.
>
> known bugs are listed in the ToDo file.
>
> > P.S. The bug is that $r->connection->user() is not set when I return OK
> > from my PerlAuthenHandler. I have to set it manually. Why would that be?
>
> it's not a bug, it's because you're not calling $r->get_basic_auth_pw(),
> which you should do instead of this:
>
> > my $authen = new HTTPD::Authen::Basic();
> > my @info = $authen->parse($r->header_in('Authorization'));
>
> otherwise, you need to set $r->connection->user yourself.
>
