Bug Fix

The dictionary returned after the directory call contains a meta key
whose value is a JSON dictionary. This is now taken care so that only
bitstring values are kept as resource URIs

diff --git a/src/ejabberd_acme_comm.erl b/src/ejabberd_acme_comm.erl
index 99eaff87b850c07aac21bbf4bc286727f7b3bdcf..acd552f7e0561481617a6fda05117f20021f7723 100644 (file)
--- a/src/ejabberd_acme_comm.erl
+++ b/src/ejabberd_acme_comm.erl
@@ -151,7 +151,7 @@ revoke_cert(Dirs, PrivateKey, Req, Nonce) ->
 get_dirs({ok, Head, Return}) ->
     NewNonce = get_nonce(Head),
     StrDirectories = [{bitstring_to_list(X), bitstring_to_list(Y)} ||
-                        {X, Y} <- Return],
+                        {X, Y} <- Return, is_bitstring(X) andalso is_bitstring(Y)],
     NewDirs = maps:from_list(StrDirectories),
     {ok, NewDirs, NewNonce}.