40 |
"inbox=s" => \$opt->{'inbox'}, |
"inbox=s" => \$opt->{'inbox'}, |
41 |
"debug" => \$debug, |
"debug" => \$debug, |
42 |
"verbose" => \$verbose, |
"verbose" => \$verbose, |
|
"email=s" => \$opt->{'email'}, |
|
43 |
); |
); |
44 |
|
|
45 |
my $nos = new Nos( |
my $nos = new Nos( |
111 |
|
|
112 |
foreach my $list (@lists) { |
foreach my $list (@lists) { |
113 |
print $list->name," <",$list->email,">\n"; |
print $list->name," <",$list->email,">\n"; |
114 |
foreach my $user_on_list ($user_list->search(list_id => $list->id)) { |
foreach my $u ($nos->list_members( list => $list->name )) { |
115 |
my $user = $users->retrieve( id => $user_on_list->user_id ); |
print "\t",$u->{'name'}, " <", $u->{'email'}, ">\n"; |
|
print "\t",$user->full_name," <", $user->email, ">\n"; |
|
116 |
} |
} |
117 |
} |
} |
118 |
|
|
125 |
email@example.com Optional full name of person |
email@example.com Optional full name of person |
126 |
dpavlin@rot13.org Dobrica Pavlinusic |
dpavlin@rot13.org Dobrica Pavlinusic |
127 |
|
|
|
You may use C<--email> parametar at any time to set From: e-mail address for list. |
|
|
B<This seems somewhat cludgy, and it will probably change in future>. |
|
|
|
|
128 |
=cut |
=cut |
129 |
|
|
130 |
} elsif ($list_name = $opt->{'add'}) { |
} elsif ($list_name = $opt->{'add'}) { |
245 |
|
|
246 |
Dump more info on screen. |
Dump more info on screen. |
247 |
|
|
|
=item --email |
|
|
|
|
|
Used to specify e-mail address where needed. |
|
|
|
|
248 |
=back |
=back |
249 |
|
|
250 |
|
|