[prev] [thread] [next] [lurker] [Date index for 2002/09/15]
Update of /cvsroot/siesta/siesta/lib/Siesta/Send In directory usw-pr-cvs1:/tmp/cvs-serv15851/lib/Siesta/Send Modified Files: Sendmail.pm Log Message: fix layout/docs Index: Sendmail.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/Send/Sendmail.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- Sendmail.pm 15 Sep 2002 10:50:23 -0000 1.4 +++ Sendmail.pm 15 Sep 2002 11:19:11 -0000 1.5 @@ -7,7 +7,7 @@ $DESCRIPTION = "Sends a mail using sendmail"; -=head1 NAME +=head1 NAME Siesta::Send::Sendmail - send a Siesta::Message using sendmail @@ -18,19 +18,17 @@ my $message = shift; my %args = @_; - - 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 or die "problem closing sendmail $! $?"; + return 1; } 1;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52