/[notice-sender]/trunk/sender.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/sender.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by dpavlin, Sun May 15 17:01:19 2005 UTC revision 19 by dpavlin, Sun May 15 17:04:18 2005 UTC
# Line 236  for single list. Line 236  for single list.
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    
Legend:
Removed from v.18  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26