X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a0a29e6d425938bdeaaaf7787ad3aee970b59a46..0fba3edda47fca21bedb14eb88e0f5f8d983bb38:/SL/Mailer.pm diff --git a/SL/Mailer.pm b/SL/Mailer.pm index 2e2a60cec..9ef0b085b 100644 --- a/SL/Mailer.pm +++ b/SL/Mailer.pm @@ -36,6 +36,8 @@ use SL::Common; use SL::MIME; use SL::Template; +use strict; + my $num_sent = 0; sub new { @@ -112,7 +114,7 @@ sub send { $email =~ s/[^\w\.\-\+=@]//ig; my %temp_form = ( %{ $form }, 'myconfig_email' => $email ); - my $template = PlainTextTemplate->new(undef, \%temp_form, $myconfig); + my $template = SL::Template::create(type => 'PlainText', form => \%temp_form); my $sendmail = $template->parse_block($main::sendmail); if (!open(OUT, $sendmail)) {