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 $user_on_list ($user_list->search(list_id => $list->id)) { |
115 |
my $user = $users->retrieve( id => $user_on_list->user_id ); |
print "\t",$user_on_list->user_id->full_name," <", $user_on_list->user_id->email, ">\n"; |
|
print "\t",$user->full_name," <", $user->email, ">\n"; |
|
116 |
} |
} |
117 |
} |
} |
118 |
|
|