X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0421095640741a61180e2df732d3a387b9c05ec9..19f96ce52f5145d8bf54060f18ab854d3e9034ca:/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)) {