kivitendo/SL/Mailer/Sendmail.pm @ 59243943
| 5896d8bf | Moritz Bunkus | package SL::Mailer::Sendmail;
|
|
use strict;
|
|||
use IO::File;
|
|||
use SL::Template;
|
|||
use parent qw(Rose::Object);
|
|||
use Rose::Object::MakeMethods::Generic
|
|||
(
|
|||
scalar => [ qw(myconfig mailer form) ]
|
|||
);
|
|||
sub init {
|
|||
my ($self) = @_;
|
|||
Rose::Object::init(@_);
|
|||
my $email = $self->mailer->recode($self->myconfig->{email});
|
|||
$email =~ s/[^\w\.\-\+=@]//ig;
|
|||
my %temp_form = ( %{ $self->form }, myconfig_email => $email );
|
|||
my $template = SL::Template::create(type => 'ShellCommand', form => \%temp_form);
|
|||
my $sendmail = $::lx_office_conf{applications}->{sendmail} || $::lx_office_conf{mail_delivery}->{sendmail} || "sendmail -t";
|
|||
$sendmail = $template->parse_block($sendmail);
|
|||
$self->{sendmail} = IO::File->new("|$sendmail") || die "sendmail($sendmail): $!";
|
|||
}
|
|||
sub start_mail {
|
|||
}
|
|||
sub print {
|
|||
my $self = shift;
|
|||
$self->{sendmail}->print(@_);
|
|||
}
|
|||
sub send {
|
|||
my ($self) = @_;
|
|||
$self->{sendmail}->close;
|
|||
delete $self->{sendmail};
|
|||
}
|
|||
sub keep_from_header {
|
|||
0;
|
|||
}
|
|||
1;
|