[p5sagit/Promulger.git] / script / mm2pmg

#!/usr/bin/perl
use strictures 1;
use autodie;

use Promulger::List;

use IPC::Run3;

@ARGV == 2 or die "usage: $0 mailman_list_name pmg_list_name";
my ($mm_list_name, $pmg_list_name) = @ARGV;
my $pmg_list = Promulger::List->resolve($pmg_list_name);
die "no such list: $pmg_list_name\n" unless $pmg_list;

run3 ['list_members', $mm_list_name], undef, \&add_member, undef;

sub add_member {
  my ($member) = @_;
  chomp $member;
  $pmg_list->subscribe($member);
}
Commit	Line	Data
e93133c7	1	#!/usr/bin/perl
2a007b5a	2	use strictures 1;
2a007b5a	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	}