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'}, |