From 5a8f1ca528e0272fb4911062d718ef7a975d8325 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pchmielowski@process-one.net>
Date: Thu, 22 Apr 2021 11:56:58 +0200
Subject: [PATCH] Display extender error message in ejabberdctl

This for example makes error from register explain what account
can't be registered

For reference https://github.com/processone/ejabberd/discussions/3584
---
 src/ejabberd_ctl.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl
index 0f6793a56..f0a1fd748 100644
--- a/src/ejabberd_ctl.erl
+++ b/src/ejabberd_ctl.erl
@@ -394,8 +394,8 @@ format_result({error, ErrorAtom}, _) ->
 %% An error should always be allowed to return extended error to help with API.
 %% Extended error is of the form:
 %%  {error, type :: atom(), code :: int(), Desc :: string()}
-format_result({error, ErrorAtom, Code, _Msg}, _) ->
-    {io_lib:format("Error: ~p", [ErrorAtom]), make_status(Code)};
+format_result({error, ErrorAtom, Code, Msg}, _) ->
+    {io_lib:format("Error: ~p: ~s", [ErrorAtom, Msg]), make_status(Code)};
 
 format_result(Atom, {_Name, atom}) ->
     io_lib:format("~p", [Atom]);