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