X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fezpz-admin-repl;h=47475a573827fbb46639cf99089e6e7b60e8a5dc;hb=6b4ac75f6057d5775e1380ac845b602bef755cba;hp=22850c62475cde5ac5eadff0a56da33e9393702a;hpb=778d311808a2ac1f97075b9114959e1d41cbd689;p=scpubgit%2FApp-EzPz.git

diff --git a/bin/ezpz-admin-repl b/bin/ezpz-admin-repl
index 22850c6..47475a5 100755
--- a/bin/ezpz-admin-repl
+++ b/bin/ezpz-admin-repl
@@ -5,8 +5,8 @@ use File::Which;
 use App::EzPz::UserStore;
 use strictures 1;
 
-die "Usage: ezpz-admin-repl ezmlm-bindir htpasswd-file"
-  unless @ARGV == 2;
+die "Usage: ezpz-admin-repl htpasswd-file [ezmlm-bindir list-base-dir]"
+  unless @ARGV == 1 or @ARGV == 3;
 
 {
   package Eval::WithLexicals::Scratchpad;
@@ -14,11 +14,14 @@ die "Usage: ezpz-admin-repl ezmlm-bindir htpasswd-file"
   use vars qw($users);
 
   $users = App::EzPz::UserStore->new(
-    ezmlm_bindir => $ARGV[0],
-    htpasswd_file => $ARGV[1],
+    htpasswd_file => $ARGV[0],
+    (@ARGV > 1)
+      ? (ezmlm_config => {
+           bindir => $ARGV[1],
+           list_base_dir => $ARGV[2],
+        })
+      : ()
   );
 }
 
 do +which('tinyrepl');
-
-exit 0;