From 53e988b8907baa17f684ee66c6b7aa90fe7c27fb Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= <bernd@kivitendo-premium.de>
Date: Sat, 16 Nov 2019 19:01:09 +0100
Subject: [PATCH] =?utf8?q?SL::Mailer:=20Debug-Meldungen=20rausgeworfen.=20?=
=?utf8?q?mail5=20f=C3=BChrte=20zu=20einem=20Fehler?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit
Die Debug-Meldung mit "mail5" griff auf $attachment->{id} zu, aber
attatchment kann auch ein Scalar sein. Dann ergab sich hier ein Laufzeitfehler,
der zwar durch ein eval abgefangen wurde, aber das Verschicken der Mail
verhinderte. Als E-Mail-Status bekam man dann "no send attempt made".
Wer den Mailer debuggen möchte, möge dann nochmal eigene Statements
einfügen.
---
SL/Mailer.pm | 8 --------
1 file changed, 8 deletions(-)
diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index eb9f7a2c5..b066499c4 100644
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -151,8 +151,6 @@ sub _create_attachment_part {
my $file_id = 0;
my $email_journal = $::instance_conf->get_email_journal;
- $::lxdebug->message(LXDebug->DEBUG2(), "mail5 att=" . $attachment . " email_journal=" . $email_journal . " id=" . $attachment->{id});
-
if (ref($attachment) eq "HASH") {
$attributes{filename} = $attachment->{name};
$file_id = $attachment->{id} || '0';
@@ -177,8 +175,6 @@ sub _create_attachment_part {
$attachment_content ||= ' ';
$attributes{charset} = $self->{charset} if $self->{charset} && ($attributes{content_type} =~ m{^text/});
- $::lxdebug->message(LXDebug->DEBUG2(), "mail6 mtype=" . $attributes{content_type} . " filename=" . $attributes{filename});
-
my $ent;
if ( $attributes{content_type} eq 'message/rfc822' ) {
$ent = Email::MIME->new($attachment_content);
@@ -268,10 +264,6 @@ sub send {
my $email = $self->_create_message;
- #$::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 ]);
--
2.20.1