[scpubgit/App-EzPz.git] / bin / ezpz-create-test-ezmlm-list

#!/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($ezmlm_bin_path)->absolute;

my $list_base = io->dir($list_base_path)->absolute;

run(
  $ezmlm_bin->catfile('ezmlm-make'),
  $list_base->catdir($list_name),
  $list_base->catfile("dot-qmail-for-${list_name}"),
  $list_name,
  'example.com'
);
Commit	Line	Data
bdab61a3	1	#!/usr/bin/env perl
	2
	3	use lib (-d 'lib' ? ('lib') : ());
	4	use IO::All;
	5	use IPC::System::Simple qw(run);
	6	use strictures 1;
	7
	8	die "Usage: ezpz-create-test-ezmlm-list ezmlm-bindir list-base-dir list-name"
	9	unless @ARGV == 3;
	10
	11	my ($ezmlm_bin_path, $list_base_path, $list_name) = @ARGV;
	12
6a99a8c7	13	my $ezmlm_bin = io->dir($ezmlm_bin_path)->absolute;
bdab61a3	14
6a99a8c7	15	my $list_base = io->dir($list_base_path)->absolute;
bdab61a3	16
	17	run(
	18	$ezmlm_bin->catfile('ezmlm-make'),
	19	$list_base->catdir($list_name),
	20	$list_base->catfile("dot-qmail-for-${list_name}"),
	21	$list_name,
	22	'example.com'
	23	);