From: Matt S Trout 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' +);