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 | |
13 | my $ezmlm_bin = io->dir(io->dir($ezmlm_bin_path)->rel2abs); |
14 | |
15 | my $list_base = io->dir(io->dir($list_base_path)->rel2abs); |
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 | ); |