Mailer: Exception in »send« via LXDebug ausgeben

Das Debugging ist schwierig, wenn die einzige Fehlermeldung etwas wie
»something went wrong« ist.

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index 0a2715cb204e7cd1fd20cebe2c355ab5436e9eff..52a7d74695aae42024607eb1177baff8d773e1cb 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -221,8 +221,11 @@ sub send {
   # Create driver for delivery method (sendmail/SMTP)
   $self->{driver} = eval { $self->_create_driver };
   if (!$self->{driver}) {
   # 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
   }
 
   # Set defaults & headers