>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?
# 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");
print MAIL "approve $list_passwd subscribe $list_name $_\n";
Didn't test it but, looks right. Too bad Majordomo will send you back one
message each, notifying you of the subscriptions.
Doug Plate Sr.
Doug Plate Sr. <firstname.lastname@example.org>