--- Kiran k <[EMAIL PROTECTED]> wrote:
> . . .
> the error i get is undefined value ($r) in sub authenticate
> . . .
> r->push_handlers(PerlAuthenHandler =>> \authenticate());
r->push_handlers has no lexical symbol, and authenticate has no lexical
and no argument. Try this:
$r->push_handlers(PerlAuthenHandler =>> \&authenticate($r));
^ ^ ^^
Also,
> . . .
> sub authenticate {
> my $r = shift;
Try adding a back-up check:
my $r = shift || Apache->request;
That shouldn't be necessary, but it should also never be used; if it
does get used, it's covering your assets from some other error
somewhere else. =o)
Paul
__________________________________________________
Do You Yahoo!?
Get email at your own domain with Yahoo! Mail.
http://personal.mail.yahoo.com/
