236 |
|
|
237 |
foreach my $u ($user_list->search(list_id => $m->list_id)) { |
foreach my $u ($user_list->search(list_id => $m->list_id)) { |
238 |
|
|
|
my $hdr = "To: ".$u->user_id->full_name." <". $u->user_id->email. ">\n"; |
|
|
|
|
239 |
if ($sent->search( message_id => $m->message_id, user_id => $u->user_id )) { |
if ($sent->search( message_id => $m->message_id, user_id => $u->user_id )) { |
240 |
print "SKIP ",$u->user_id->email," message allready sent\n"; |
print "SKIP ",$u->user_id->email," message allready sent\n"; |
241 |
} else { |
} else { |
242 |
print "\t",$u->user_id->email,"\n"; |
print "\t",$u->user_id->email,"\n"; |
243 |
|
|
244 |
|
my $hdr = "From: " . $u->list_id->name . " <" . $u->list_id->email . ">\n" . |
245 |
|
"To: " . $u->user_id->full_name . " <". $u->user_id->email. ">\n"; |
246 |
|
|
247 |
# FIXME do real sending :-) |
# FIXME do real sending :-) |
248 |
send IO => "$hdr\n$msg"; |
send IO => "$hdr\n$msg"; |
249 |
|
|