#!/usr/bin/env perl

use lib (-d 'lib' ? ('lib') : ());
use File::Which;
use App::EzPz::UserStore;
use strictures 1;

die "Usage: ezpz-admin-repl htpasswd-file [ezmlm-bindir list-base-dir]"
  unless @ARGV == 1 or @ARGV == 3;

{
  package Eval::WithLexicals::Scratchpad;

  use vars qw($users);

  $users = App::EzPz::UserStore->new(
    htpasswd_file => $ARGV[0],
    (@ARGV > 1)
      ? (ezmlm_config => {
           bindir => $ARGV[1],
           list_base_dir => $ARGV[2],
        })
      : ()
  );
}

do +which('tinyrepl');

exit 0;