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'}, ">\n"; |
123 |
} |
} |
136 |
|
|
137 |
} elsif ($list_name = $opt->{'add'}) { |
} elsif ($list_name = $opt->{'add'}) { |
138 |
|
|
139 |
my $list = $lists->find_or_create({ |
my $list = $nos->_get_list($list_name) || die "can't find list $list_name\n"; |
|
name => $list_name, |
|
|
}) || die "can't add list $list_name\n"; |
|
140 |
|
|
141 |
my $added = 0; |
my $added = 0; |
142 |
|
|