117 |
} |
} |
118 |
|
|
119 |
foreach my $list (@lists) { |
foreach my $list (@lists) { |
120 |
print $list->name," <",$list->email,">\n"; |
print $list->name,": ",$list->from_addr," <",$list->email,">\n"; |
121 |
foreach my $u ($nos->list_members( list => $list->name )) { |
foreach my $u ($nos->list_members( list => $list->name )) { |
122 |
print "\t",$u->{'name'}, " <", $u->{'email'}, ">\n"; |
print "\t",$u->{'name'}, " <", $u->{'email'}, ">",( $u->{'ext_id'} ? ' ['.$u->{'ext_id'}.']' : '' ),"\n"; |
123 |
} |
} |
124 |
} |
} |
125 |
|
|
214 |
|
|
215 |
} elsif (defined($list_name = $opt->{'send'})) { |
} elsif (defined($list_name = $opt->{'send'})) { |
216 |
|
|
217 |
|
unless ($opt->{'email_send_driver'}) { |
218 |
|
print "WARNING: this will dump debugging output to STDERR\n"; |
219 |
|
print "enter alternative driver (e.g. smtp): "; |
220 |
|
my $d = <STDIN>; |
221 |
|
chomp($d); |
222 |
|
$opt->{'email_send_driver'} = $d; |
223 |
|
} |
224 |
|
|
225 |
$nos->send_queued_messages( |
$nos->send_queued_messages( |
226 |
list => $list_name, |
list => $list_name, |
227 |
driver => $opt->{'email_send_driver'}, |
driver => $opt->{'email_send_driver'}, |