Hi List,
I am a newbie.
I don't know howto invoke the following subroutine to complete
authenticate.
Would you give me a whole sample?
Thanx a lot !
> sub handler {
> my ($r) = shift;
>
> my ($res, $password) = ($r->get_basic_auth_pw);
> return $res if $res; #decline if not Basic
> my $username = $r->user;
>
> if ($username eq '') {
> $r->note_basic_auth_failure;
> $r->log_error ("no account given for uri=<" . $r->uri . ">");
> return Apache::AUTH_REQUIRED;
> }
>
> # etc...
>
> return Apache::OK;
> }
Regards,
Kai
--
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
