in reply to PerlAuthenHandler Problems
(untested)my %auth; sub handler { my $r = shift; my($res, $password) = $r->get_basic_auth_pw; return $res if $res != OK; my $user = $r->user; if (exists $auth{$user}){ return Apache2::Const::OK; } ..... $auth{$user} = $user; return Apache2::Const::OK; } 1;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: PerlAuthenHandler Problems
by yibbiy (Initiate) on Jul 19, 2007 at 12:36 UTC |