>I want to set up a list and subscribe 100 people. I could use the
>approve <listpasswd> subscribe <listname> <user@address>
>command 100 times but that would be tedious.
>
>Does anyone have a handy-dandy script that could do this work for me, given a
>file of addresses?
>
How about:
#!/usr/bin/perl
# or wherever your perl is
# I'll call it 'seed-list'
# usage: seed-list passwd listname address-file
#
$list_passwd = shift;
$list_name = shift;
$addr_file = shift;
open(MAIL, "|mail majordomo")
open(ADDRESSES, "$addr_file") || die("Can't open the address list file");
while(<ADDRESSES>){
print MAIL "approve $list_passwd subscribe $list_name $_\n";
}
close(ADDRESSES);
close(MAIL);
__END__
Didn't test it but, looks right. Too bad Majordomo will send you back one
message each, notifying you of the subscriptions.
Regards,
Doug Plate Sr.
//////////////////////////////////////////////////////////////////////////////
Doug Plate Sr. <plate@dicomed.com>
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
|
|
