1 package App::EzPz::Web;
3 use Module::Runtime qw(use_module);
4 use App::EzPz::UserStore;
8 has users => (is => 'lazy');
12 my $config = $self->config;
13 return App::EzPz::UserStore->new(
14 htpasswd_file => $config->{htpasswd_file},
15 ($config->{ezmlm_bindir}
17 bindir => $config->{ezmlm_bindir},
18 list_base_dir => $config->{list_base_dir},
26 htpasswd_file => 'test-setup/lists/htpasswd',
27 ezmlm_bindir => 'test-setup/ezmlm/bin',
28 list_base_dir => 'test-setup/lists',
32 sub dispatch_request {
34 my $users = $self->users;
37 return if $_[PSGI_ENV]->{REMOTE_USER};
38 return use_module('Plack::Middleware::Auth::Basic')->new(
39 authenticator => sub { $users->check_password(@_) }
43 $current_user = $users->get(my $name = $_[PSGI_ENV]->{REMOTE_USER});
45 401, [ 'Content-type' => 'text/plain' ], [ "No such user $name" ]
46 ] unless $current_user;
50 $self->_render_front_page($current_user);
53 my $list = $current_user->get_list($_[1]);
57 $self->_list_dispatchers($current_user, $list, \$error),
58 sub () { $self->_render_list_page($list, $error) };
60 sub (/deny/|/allow/|/mod/|/digest/) {
62 my $sublist = $list->${\$_[1]};
63 $self->_list_dispatchers($current_user, $sublist, \$error),
64 sub () { $self->_render_sublist_page($sublist, $error) };
71 my ($self, $user, $list, $action, $on) = @_;
72 print STDERR "${user} called ${action} ${on} for ${list}\n";
75 sub _list_dispatchers {
76 my ($self, $current_user, $list, $error_ref) = @_;
77 my $name = $current_user->username;
80 $self->audit_action($name, $list->name, 'add', $_[1]);
81 eval { $list->add_member($_[1]); 1 }
82 or ${$error_ref} = $@;
86 $self->audit_action($name, $list->name, 'remove', $_[1]);
87 eval { $list->remove_member($_[1]); 1 }
88 or ${$error_ref} = $@;
95 my ($self, $name) = @_;
96 my $my_file = __FILE__;
98 return HTML::Zoom->from_file("${my_file}/_templates/${name}.html");
102 my ($self, $name, $code) = @_;
104 200, [ 'Content-type' => 'text/html' ],
105 [ $self->_zoom_for($name)->${\sub { local $_ = $_[0]; &$code }}->to_html ]
109 sub _render_front_page {
110 my ($self, $user) = @_;
111 return $self->_render_page(index => sub {
112 $_->replace_content('.user-name',$user->username)
117 $_->select('.list-link')
118 ->replace_content($name)
120 ->set_attribute(href => "/list/${name}/");
127 sub _render_list_page {
128 shift->_render_listcore_page(
130 map [ ucfirst($_)." list", "${_}/" ], qw(allow deny mod digest)
135 sub _render_sublist_page {
136 shift->_render_listcore_page(
137 @_, [ [ "Back to list", "../" ] ],
141 sub _render_listcore_page {
142 my ($self, $list, $error, $links) = @_;
143 $self->_render_page(list => sub {
144 $_->replace_content('.list-name', $list->name)
145 ->replace_content('.error', $error||'')
146 ->repeat('.list-link', [
148 my ($name, $href) = @$_;
150 $_->select('.list-link-anchor')
151 ->replace_content($name)
153 ->set_attribute(href => $href);
157 ->repeat('.list-member', [
161 $_->replace_content('.list-member-name', $email)
162 ->set_attribute('.list-member-remove', value => $email);
169 __PACKAGE__->run_if_script;