From 19862b5586343205dc381339bfea46915dd498d3 Mon Sep 17 00:00:00 2001
From: alecpl <alec@alec.pl>
Date: Tue, 14 Jul 2009 16:34:34 +0000
Subject: - added 'smtp_debug' option

---
 program/include/rcube_smtp.inc | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'program/include')

diff --git a/program/include/rcube_smtp.inc b/program/include/rcube_smtp.inc
index db681af05..9e1e66426 100644
--- a/program/include/rcube_smtp.inc
+++ b/program/include/rcube_smtp.inc
@@ -92,6 +92,9 @@ function smtp_mail($from, $recipients, &$headers, &$body, &$response, &$error)
 
     $SMTP_CONN = new Net_SMTP($smtp_host, $smtp_port, $helo_host);
 
+    if($RCMAIL->config->get('smtp_debug'))
+      $SMTP_CONN->setDebug(true, 'smtp_debug_handler');
+
     // try to connect to server and exit on failure
     $result = $SMTP_CONN->connect($smtp_timeout);
     if (PEAR::isError($result))
@@ -247,6 +250,12 @@ function smtp_disconnect()
     }
   }
 
+/* this is our own debug handler for the SMTP connection */
+function smtp_debug_handler(&$smtp, $message)
+  {
+  write_log('smtp', preg_replace('/\r\n$/', '', $message));
+  }
+
 
 /**
  * Take an array of mail headers and return a string containing
-- 
cgit v1.2.3