Commit | Line | Data |
5b26866e |
1 | #!/usr/bin/env perl |
2 | |
778d3118 |
3 | use lib (-d 'lib' ? ('lib') : ()); |
5b26866e |
4 | use File::Which; |
5 | use App::EzPz::UserStore; |
6 | use strictures 1; |
7 | |
fda55d3e |
8 | die "Usage: ezpz-admin-repl htpasswd-file [ezmlm-bindir list-base-dir]" |
9 | unless @ARGV == 1 or @ARGV == 3; |
5b26866e |
10 | |
11 | { |
12 | package Eval::WithLexicals::Scratchpad; |
13 | |
14 | use vars qw($users); |
15 | |
16 | $users = App::EzPz::UserStore->new( |
fda55d3e |
17 | htpasswd_file => $ARGV[0], |
18 | (@ARGV > 1) |
19 | ? (ezmlm_config => { |
20 | bindir => $ARGV[1], |
21 | list_base_dir => $ARGV[2], |
22 | }) |
23 | : () |
5b26866e |
24 | ); |
25 | } |
26 | |
27 | do +which('tinyrepl'); |
28 | |
29 | exit 0; |