From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 15 Jul 2012 17:58:37 +0000 (+0000)
Subject: test list creation tool
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bdab61a3b862017e4b56e242212b55a4e574be79;p=scpubgit%2FApp-EzPz.git

test list creation tool
---

diff --git a/bin/ezpz-create-test-ezmlm-list b/bin/ezpz-create-test-ezmlm-list
new file mode 100755
index 0000000..06344e1
--- /dev/null
+++ b/bin/ezpz-create-test-ezmlm-list
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use lib (-d 'lib' ? ('lib') : ());
+use IO::All;
+use IPC::System::Simple qw(run);
+use strictures 1;
+
+die "Usage: ezpz-create-test-ezmlm-list ezmlm-bindir list-base-dir list-name"
+  unless @ARGV == 3;
+
+my ($ezmlm_bin_path, $list_base_path, $list_name) = @ARGV;
+
+my $ezmlm_bin = io->dir(io->dir($ezmlm_bin_path)->rel2abs);
+
+my $list_base = io->dir(io->dir($list_base_path)->rel2abs);
+
+run(
+  $ezmlm_bin->catfile('ezmlm-make'),
+  $list_base->catdir($list_name),
+  $list_base->catfile("dot-qmail-for-${list_name}"),
+  $list_name,
+  'example.com'
+);