$::lxdebug->message(LXDebug->DEBUG2(), "mail5 att=" . $attachment . " email_journal=" . $email_journal . " id=" . $attachment->{id});
if (ref($attachment) eq "HASH") {
- $attributes{Path} = $attachment->{path} || $attachment->{filename};
$attributes{filename} = $attachment->{name};
$file_id = $attachment->{id} || '0';
$attributes{content_type} = $attachment->{type} || 'application/pdf';
$attachment_content = eval { read_file($attachment->{path}) } if !$attachment_content;
} else {
- # strip path
- $attributes{Path} = $attachment;
$attributes{filename} = $attachment;
$attributes{filename} =~ s:.*\Q$self->{fileid}\E:: if $self->{fileid};
$attributes{filename} =~ s:.*/::g;
return undef if $email_journal > 1 && !defined $attachment_content;
$attachment_content ||= ' ';
- $attributes{charset} = $self->{charset} if $self->{charset};
+ $attributes{charset} = $self->{charset} if $self->{charset} && ($attributes{content_type} =~ m{^text/});
- $::lxdebug->message(LXDebug->DEBUG2(), "mail6 mtype=" . $attributes{Type} . " path=" . $attributes{Path} . " filename=" . $attributes{Filename});
+ $::lxdebug->message(LXDebug->DEBUG2(), "mail6 mtype=" . $attributes{content_type} . " filename=" . $attributes{filename});
my $ent;
if ( $attributes{content_type} eq 'message/rfc822' ) {
# Create driver for delivery method (sendmail/SMTP)
$self->{driver} = eval { $self->_create_driver };
if (!$self->{driver}) {
- $self->_store_in_journal('failed', 'driver could not be created; check your configuration');
- return "send email : $@";
+ my $error = $@;
+ $self->_store_in_journal('failed', 'driver could not be created; check your configuration & log files');
+ $::lxdebug->message(LXDebug::WARN(), "Mailer error during 'send': $error");
+
+ return "send email : $error";
}
# Set defaults & headers
#$::lxdebug->message(0, "message: " . $email->as_string);
# return "boom";
+ $::lxdebug->message(LXDebug->DEBUG2(), "mail1 from=".$self->{from}." to=".$self->{to});
my $from_obj = (Email::Address->parse($self->{from}))[0];
$self->{driver}->start_mail(from => $from_obj->address, to => [ $self->_all_recipients ]);