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

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

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

Modified Files:
	Sendmail.pm 
Log Message:
Sort out some madness.


Index: Sendmail.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Send/Sendmail.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Sendmail.pm	13 Sep 2002 20:50:26 -0000	1.2
+++ Sendmail.pm	14 Sep 2002 15:21:52 -0000	1.3
@@ -18,13 +18,15 @@
     my $message = shift;
     my %args    = @_;
 
-    my $list    = $message->list();
-    my $from    = $args{'from'} || $list->return_path;
-    my $to      = $args{'to'}   || $message->user->id();
+
+
+    my $list = $message->list();
+    my $from = $args{'from'} || $message->from();
+    my $to   = $args{'to'} || $message->to();
+
 
     local *SENDMAIL;
-    open SENDMAIL,
-      "|/usr/sbin/sendmail -oi -f $from  $to"
+    open SENDMAIL, "|/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.2,1.3 muttley 16:21 on 14 Sep 2002

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