Re: PerlAuthenHandler advice needed.

[Doug MacEachern]

On Wed, 27 Sep 2000, Carlos Ramirez wrote:

>     my $authheader = 'Basic realm="'.$realm.'"';
> 
>     $r->header_out("WWW-Authenticate" ,$authheader);

there's a cleaner way for that:
$r->auth_name($realm);
$r->note_basic_auth_failure;
 
>     $r->status(AUTH_REQUIRED);

no need for that.

>     $r->send_http_header("text/html");

or this because..

>     return AUTH_REQUIRED;

..apache will send the headers when you return an error

>     return OK if $r->sub_request;

there's no Apache::sub_request method 

>     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)