1 package App::EzPz::UserStore;
4 use Scalar::Util 'blessed';
8 has ezmlm_bindir => (is => 'ro', required => 1);
10 has htpasswd_file => (is => 'ro', required => 1);
12 has _htpasswd => (is => 'lazy');
14 sub _build__htpasswd {
16 return Authen::Htpasswd->new($self->htpasswd_file);
21 return map $self->_inflate_user($_), $self->_htpasswd->all_users;
25 my ($self, $name) = @_;
26 if (my $htp_user = $self->_htpasswd->lookup_user($name)) {
27 return $self->_inflate_user($htp_user);
34 my ($self, $user) = @_;
35 unless (blessed($user)) {
36 $user = App::EzPz::User->new($user);
38 my $htp_file = $self->_htpasswd;
39 my $htp_user = $user->_htpasswd_user;
40 $htp_file->add_user($htp_user);
41 $htp_user->file($htp_file);
46 my ($self, $user) = @_;
47 $self->_htpasswd->remove_user($user->_htpasswd_user);
52 my ($self, $htp_user) = @_;
53 return App::EzPz::User->new(
54 htpasswd_user => $htp_user,
59 my ($self, $name, $password) = @_;
60 return unless my $user = $self->get($name);
61 return $user->check_password($password);