Commit | Line | Data |
e93133c7 |
1 | #!/usr/bin/perl |
2a007b5a |
2 | use strictures 1; |
3 | use autodie; |
e93133c7 |
4 | |
5 | use Promulger::List; |
6 | |
7 | use IPC::Run3; |
8 | |
9 | @ARGV == 2 or die "usage: $0 mailman_list_name pmg_list_name"; |
10 | my ($mm_list_name, $pmg_list_name) = @ARGV; |
11 | my $pmg_list = Promulger::List->resolve($pmg_list_name); |
12 | die "no such list: $pmg_list_name\n" unless $pmg_list; |
13 | |
14 | run3 ['list_members', $mm_list_name], undef, \&add_member, undef; |
15 | |
16 | sub add_member { |
17 | my ($member) = @_; |
18 | chomp $member; |
19 | $pmg_list->subscribe($member); |
20 | } |