85 |
} |
} |
86 |
|
|
87 |
foreach my $list (@lists) { |
foreach my $list (@lists) { |
88 |
print $list->name,"\n"; |
print $list->name," <",$list->email,">\n"; |
89 |
foreach my $user_on_list ($user_list->search(list_id => $list->id)) { |
foreach my $user_on_list ($user_list->search(list_id => $list->id)) { |
90 |
my $user = $users->retrieve( id => $user_on_list->user_id ); |
my $user = $users->retrieve( id => $user_on_list->user_id ); |
91 |
print "\t",$user->full_name," <", $user->email, ">\n"; |
print "\t",$user->full_name," <", $user->email, ">\n"; |
143 |
Queue message for later delivery. Message can be read from file (specified as |
Queue message for later delivery. Message can be read from file (specified as |
144 |
argument) or read from C<STDIN>. |
argument) or read from C<STDIN>. |
145 |
|
|
146 |
This options without optional parametars it will display current queue. |
This option without optional parametar will display pending queue. If you |
147 |
|
add C<--verbose> flag, it will display all messages in queue. |
148 |
|
|
149 |
=cut |
=cut |
150 |
|
|
202 |
|
|
203 |
=item --send[=list_name] |
=item --send[=list_name] |
204 |
|
|
205 |
Send e-mail waiting in queue for all lists, or with optional argument for |
Send e-mails waiting in queue, or with optional argument, just send messages |
206 |
just single list. |
for single list. |
207 |
|
|
208 |
=cut |
=cut |
209 |
|
|