bin/ezpz-admin-repl

   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;