From 788d829823202b41d586b300763af87ea7d7b69f Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 19 Dec 2018 12:33:46 +0100
Subject: [PATCH] Fix PIEFXIS export of user when password is scrammed (#2721)

---
 src/ejabberd_piefxis.erl | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/src/ejabberd_piefxis.erl b/src/ejabberd_piefxis.erl
index 541fcad8b..b4e412d3e 100644
--- a/src/ejabberd_piefxis.erl
+++ b/src/ejabberd_piefxis.erl
@@ -166,15 +166,10 @@ export_users([], _Server, _Fd) ->
 export_user(User, Server, Fd) ->
     Password = ejabberd_auth:get_password_s(User, Server),
     LServer = jid:nameprep(Server),
-    PasswordFormat = ejabberd_auth:password_format(LServer),
-    Pass = case Password of
-      {_,_,_,_} ->
-        case PasswordFormat of
-          scram -> format_scram_password(Password);          
-          _ -> <<"">>
-        end;
-      _ -> Password
-    end,
+    Pass = case ejabberd_auth:password_format(LServer) of
+	       scram -> format_scram_password(Password);
+	       _ -> Password
+	   end,
     Els = get_offline(User, Server) ++
         get_vcard(User, Server) ++
         get_privacy(User, Server) ++
@@ -186,7 +181,8 @@ export_user(User, Server, Fd) ->
                                 {<<"password">>, Pass}],
                        children = Els})).
 
-format_scram_password({StoredKey, ServerKey, Salt, IterationCount}) ->
+format_scram_password(#scram{storedkey = StoredKey, serverkey = ServerKey,
+			     salt = Salt, iterationcount = IterationCount}) ->
   StoredKeyB64 = base64:encode(StoredKey),
   ServerKeyB64 = base64:encode(ServerKey),
   SaltB64 = base64:encode(Salt),