From 646a71d389ddf7ff2370a3deb32905b88363c306 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tim=20D=C3=BCsterhus?= <duesterhus@woltlab.com>
Date: Sat, 1 Jul 2017 19:37:04 +0200
Subject: [PATCH] Add Email::debugDump()

---
 .../files/lib/system/email/Email.class.php    | 61 +++++++++++++++++++
 1 file changed, 61 insertions(+)

diff --git a/wcfsetup/install/files/lib/system/email/Email.class.php b/wcfsetup/install/files/lib/system/email/Email.class.php
index 0027e417ad..a2fdf41396 100644
--- a/wcfsetup/install/files/lib/system/email/Email.class.php
+++ b/wcfsetup/install/files/lib/system/email/Email.class.php
@@ -531,4 +531,65 @@ class Email {
 	public function getEmail() {
 		return $this->getHeaderString()."\r\n\r\n".$this->getBodyString();
 	}
+
+	/**
+	 * Dumps this email to STDOUT and stops the script.
+	 * 
+	 * @return	string
+	 */
+	public function debugDump() {
+		if (ob_get_level()) {
+			// discard any output generated before the exception occurred, prevents exception
+			// being hidden inside HTML elements and therefore not visible in browser output
+			ob_end_clean();
+			
+			// `identity` is the default "encoding" and basically means that the client
+			// must treat the content as if the header did not appear in first place, this
+			// also overrules the gzip header if present
+			@header('Content-Encoding: identity');
+			HeaderUtil::exceptionDisableGzip();
+		}
+		
+		$dumpBody = function ($body, $depth) use (&$dumpBody) {
+			$result = '';
+			if ($body instanceof mime\MimePartFacade) {
+				return $dumpBody($body->getMimePart(), $depth);
+			}
+			if ($body instanceof mime\AbstractMultipartMimePart) {
+				$result .= "<fieldset><legend><h".$depth.">".get_class($body)."</h".$depth."></legend>";
+				foreach ($body->getMimeparts() as $part) {
+					$result .= $dumpBody($part, $depth + 1);
+				}
+				$result .= '</fieldset>';
+			}
+			else if ($body instanceof mime\RecipientAwareTextMimePart) {
+				$result .= "<fieldset><legend><h".$depth.">".get_class($body)."</h".$depth."></legend>";
+				if ($body instanceof mime\HtmlTextMimePart) {
+					$result .= '<iframe src="data:text/html;base64,'.base64_encode($body->getContent()).'" style="width: 100%; height: 500px; border: 0"></iframe>';
+				}
+				else {
+					$result .= "<pre>".StringUtil::encodeHTML($body->getContent())."</pre>";
+				}
+				$result .= '</fieldset>';
+			}
+			else if ($body instanceof mime\AttachmentMimePart) {
+				$result .= "<fieldset><legend><h".$depth.">".get_class($body)."</h".$depth."></legend>";
+				$result .= "<dl>".implode('', array_map(function ($item) {
+					return "<dt>".$item[0]."</dt><dd>".$item[1]."</dd>";
+				}, $body->getAdditionalHeaders()))."</dl>";
+				$result .= "<".strlen($body->getContent())." Bytes>";
+				$result .= '</fieldset>';
+			}
+			else {
+				throw new \LogicException('Bug');
+			}
+
+			return $result;
+		};
+		echo "<h1>Message Headers</h1>
+<pre>".StringUtil::encodeHTML($this->getHeaderString())."</pre>
+<h1>Message Body</h1>".$dumpBody($this->body, 2);
+
+		exit;
+	}
 }
-- 
2.20.1