UserStore and User classes

[scpubgit/App-EzPz.git] / bin / ezpz-admin-repl

diff --git a/bin/ezpz-admin-repl b/bin/ezpz-admin-repl
new file mode 100755 (executable)
index 0000000..0ba5445
--- /dev/null
+++ b/bin/ezpz-admin-repl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use File::Which;
+use App::EzPz::UserStore;
+use strictures 1;
+
+die "Usage: ezpz-admin-repl ezmlm-bindir htpasswd-file"
+  unless @ARGV == 2;
+
+{
+  package Eval::WithLexicals::Scratchpad;
+
+  use vars qw($users);
+
+  $users = App::EzPz::UserStore->new(
+    ezmlm_bindir => $ARGV[0],
+    htpasswd_file => $ARGV[1],
+  );
+}
+
+do +which('tinyrepl');
+
+exit 0;