40 |
"inbox=s" => \$opt->{'inbox'}, |
"inbox=s" => \$opt->{'inbox'}, |
41 |
"debug" => \$debug, |
"debug" => \$debug, |
42 |
"verbose" => \$verbose, |
"verbose" => \$verbose, |
43 |
|
"from=s" => \$opt->{'from'}, |
44 |
|
"driver=s" => \$opt->{'email_send_driver'}, |
45 |
); |
); |
46 |
|
|
47 |
my $nos = new Nos( |
my $nos = new Nos( |
75 |
|
|
76 |
Adds new list. You can also feed list name as first line to C<STDIN>. |
Adds new list. You can also feed list name as first line to C<STDIN>. |
77 |
|
|
78 |
|
You can also add C<--from='Full name of list'> to specify full name (comment) |
79 |
|
in outgoing e-mail. |
80 |
|
|
81 |
=cut |
=cut |
82 |
|
|
83 |
if ($list_name = $opt->{'new'}) { |
if ($list_name = $opt->{'new'}) { |
89 |
|
|
90 |
my $id = $nos->new_list( |
my $id = $nos->new_list( |
91 |
list => $list_name, |
list => $list_name, |
92 |
|
from => ($opt->{'from'} || ''), |
93 |
email => $email, |
email => $email, |
94 |
) || die "can't add list $list_name\n"; |
) || die "can't add list $list_name\n"; |
95 |
|
|
205 |
Send e-mails waiting in queue, or with optional argument, just send messages |
Send e-mails waiting in queue, or with optional argument, just send messages |
206 |
for single list. |
for single list. |
207 |
|
|
208 |
|
Optional argument C<--driver=smtp> forces sending using SMTP server at |
209 |
|
localhost (127.0.0.1). |
210 |
|
|
211 |
=cut |
=cut |
212 |
|
|
213 |
} elsif (defined($list_name = $opt->{'send'})) { |
} elsif (defined($list_name = $opt->{'send'})) { |
214 |
|
|
215 |
$nos->send_queued_messages($list_name); |
$nos->send_queued_messages($list_name, $opt->{'email_send_driver'}); |
216 |
|
|
217 |
|
|
218 |
=item --inbox=list_name |
=item --inbox=list_name |