[prev] [thread] [next] [lurker] [Date index for 2002/09/12]
Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin In directory usw-pr-cvs1:/tmp/cvs-serv8608/lib/Siesta/Plugin Modified Files: Send.pm Log Message: Refactor to use the new Sender api Index: Send.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/Send.pm,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- Send.pm 10 Sep 2002 18:24:12 -0000 1.23 +++ Send.pm 12 Sep 2002 15:23:42 -0000 1.24 @@ -13,16 +13,8 @@ my $list = $mail->list; for my $user ( $list->members ) { - my $address = $user->id; - print "spamming $address up their stupid ass\n" if debug; - - local *SENDMAIL; - open SENDMAIL, - "|/usr/sbin/sendmail -oi -f " . $list->return_path . " $address" - or die "couldn't fork sendmail $!"; - $mail->print( \*SENDMAIL ); - close SENDMAIL - or die "problem closing sendmail $! $?"; + $mail->user($user); + Siesta->sender->process($mail); } return; }
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52