83 |
|
|
84 |
die "need e-mail address for list (as argument or on STDIN)\n" unless ($email); |
die "need e-mail address for list (as argument or on STDIN)\n" unless ($email); |
85 |
|
|
86 |
my $l = $nos->_get_list($list_name) || $nos->_add_list( |
my $id = $nos->new_list( |
87 |
list => $list_name, |
list => $list_name, |
88 |
email => $email, |
email => $email, |
89 |
) || die "can't add list $list_name\n"; |
) || die "can't add list $list_name\n"; |
90 |
|
|
91 |
print "added list $list_name with ID ",$l->id,"\n"; |
print "added list $list_name with ID $id\n"; |
92 |
|
|
93 |
|
|
94 |
=item --list[=list_name] |
=item --list[=list_name] |