bin/mm2pmg

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   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 }