Kiran k wrote:
> Hi ,
> I am having problems with the stacked handlers , i have enclosed the code below ,
>
> the error i get is undefined value ($r) in sub authenticate
>
> package SetRealm1;
>
> use Apache;
> use Apache::Constants qw(:common);
> use DBI;
> use diagnostics;
> sub handler {
> my $r = shift;
>
> $r->push_handlers(PerlAuthenHandler => \authenticate());
the push_handlers method does not pass the Apache request object as its first argument.
>
> ## uri's are
> return OK unless is_protected($r);
> my $realm = get_realm($r);
> my $authheader = 'Basic realm="'.$realm.'"';
> $r->header_out("WWW-Authenticate" ,$authheader);
>
> ## Return 401 to browser and prompt for login
> $r->status(AUTH_REQUIRED);
> $r->send_http_header("text/html");
>
> return AUTH_REQUIRED;
> }
>
> sub get_realm {
> my $r = shift;
> return " Test".int(rand(1000000)) if ($r->uri =~ /\/test/);
> }
>
> sub is_protected {
> my $r = shift;
> my @protected = ('\/test','\/icons');
>
> for (@protected) { return 1 if ($r->uri =~ /$_/); }
> return 0;
> }
>
> sub authenticate {
> my $r = shift;
>
Add this....
$r||=Apache->request;
>
> return OK unless $r->is_initial_req;
>
> my ($res,$password) = $r->get_basic_auth_pw;
> $r->log_reason("res is $res pword is $password ");
> return $res if $res != OK;
>
> my $username = $r->connection->user;
> unless ($username && $pass)
> {
> $r->note_basic_auth_failure;
> $r->log_reason("Did not provide username");
> return AUTH_REQUIRED;
> }
> ### check against database
>
> return OK;
>
> }
>
> 1;
>
> thanks in advance
>
> Kiran
>
> _____________________________________________________
> Chat with your friends as soon as they come online. Get Rediff Bol at
> http://bol.rediff.com
