[siesta-commit] siesta/lib/Siesta/Send Sendmail.pm,1.1,1.2

[prev] [thread] [next] [lurker] [Date index for 2002/09/13]

Update of /cvsroot/siesta/siesta/lib/Siesta/Send
In directory usw-pr-cvs1:/tmp/cvs-serv3418/lib/Siesta/Send

Modified Files:
	Sendmail.pm 
Log Message:
Fix stuff. Add methods.


Index: Sendmail.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Send/Sendmail.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- Sendmail.pm	12 Sep 2002 15:21:55 -0000	1.1
+++ Sendmail.pm	13 Sep 2002 20:50:26 -0000	1.2
@@ -14,14 +14,17 @@
 =cut
 
 sub process {
-    my ( $self, $message ) = @_;
+    my $self    = shift;
+    my $message = shift;
+    my %args    = @_;
 
     my $list    = $message->list();
-    my $address = $message->user->id();
+    my $from    = $args{'from'} || $list->return_path;
+    my $to      = $args{'to'}   || $message->user->id();
 
     local *SENDMAIL;
     open SENDMAIL,
-      "|/usr/sbin/sendmail -oi -f " . $list->return_path . " $address"
+      "|/usr/sbin/sendmail -oi -f $from  $to"
       or die "couldn't fork sendmail $!";
     $message->print( \*SENDMAIL );
     close SENDMAIL

• [siesta-commit] siesta/lib/Siesta/Send Sendmail.pm,1.1,1.2 muttley 21:50 on 13 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52