E-Mails auch per SMTP verschicken können

[mfinanz.git] / SL / Mailer / Sendmail.pm

diff --git a/SL/Mailer/Sendmail.pm b/SL/Mailer/Sendmail.pm
new file mode 100644 (file)
index 0000000..6b24ecd
--- /dev/null
+++ b/SL/Mailer/Sendmail.pm
@@ -0,0 +1,50 @@
+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;