From 63e3fb92d1da6cd823449f80479f0aaa559a1358 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pchmielowski@process-one.net>
Date: Mon, 23 Mar 2020 12:59:30 +0100
Subject: [PATCH] Better handling of xml parse errors in send_stanza

---
 src/mod_admin_extra.erl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
index f33784a70..db1f37296 100644
--- a/src/mod_admin_extra.erl
+++ b/src/mod_admin_extra.erl
@@ -1513,6 +1513,9 @@ send_stanza(FromString, ToString, Stanza) ->
     catch _:{xmpp_codec, Why} ->
 	    io:format("incorrect stanza: ~ts~n", [xmpp:format_error(Why)]),
 	    {error, Why};
+	  _:{badmatch, {error, {Code, Why}}} when is_integer(Code) ->
+	    io:format("invalid xml: ~p~n", [Why]),
+	    {error, Why};
 	  _:{badmatch, {error, Why}} ->
 	    io:format("invalid xml: ~p~n", [Why]),
 	    {error, Why};