(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;
In reply to Re: PerlAuthenHandler Problems
by xicheng
in thread PerlAuthenHandler Problems
by yibbiy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |