From 53e988b8907baa17f684ee66c6b7aa90fe7c27fb Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= 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