bin/ezpz-admin-repl

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