use SL::MIME;
use SL::Template;
+use strict;
+
my $num_sent = 0;
sub new {
$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)) {
my $application = ($attachment =~ /(^\w+$)|\.(html|text|txt|sql)$/) ? "text" : "application";
my $content_type = SL::MIME->mime_type_from_ext($filename);
- $content_type = "${application}/${self->{format}}" if (!$content_type && $self->{format});
+ $content_type = "${application}/$self->{format}" if (!$content_type && $self->{format});
$content_type ||= 'application/octet-stream';
open(IN, $attachment);