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;
14 run3 ['list_members', $mm_list_name], undef, \&add_member, undef;
19 $pmg_list->subscribe($member);