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

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

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

Added Files:
	Sendmail.pm 
Log Message:
New Sending handler to cope with sending via sendmail


--- NEW FILE: Sendmail.pm ---
package Siesta::Send::Sendmail;

use strict;
use Siesta::Send;
use base 'Siesta::Send';
use vars qw/$DESCRIPTION/;

$DESCRIPTION = "Sends a mail using sendmail";

=head1 NAME 

Siesta::Send::Sendmail - send a Siesta::Message using sendmail

=cut

sub process {
    my ( $self, $message ) = @_;

    my $list    = $message->list();
    my $address = $message->user->id();

    local *SENDMAIL;
    open SENDMAIL,
      "|/usr/sbin/sendmail -oi -f " . $list->return_path . " $address"
      or die "couldn't fork sendmail $!";
    $message->print( \*SENDMAIL );
    close SENDMAIL
      or die "problem closing sendmail $! $?";
}

1;

• [siesta-commit] siesta/lib/Siesta/Send Sendmail.pm,NONE,1.1 muttley 16:21 on 12 Sep 2002

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