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

#!/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;
Commit	Line	Data
5b26866e	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;