From 1b7502acbc6687e925995238b7540f18bd44c091 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 17 Dec 2020 17:52:25 +0100
Subject: [PATCH] Old passwd scram tuples do not conform to current records
 definitions

---
 src/ejabberd_auth_mnesia.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ejabberd_auth_mnesia.erl b/src/ejabberd_auth_mnesia.erl
index baf0a49a9..63240b5c3 100644
--- a/src/ejabberd_auth_mnesia.erl
+++ b/src/ejabberd_auth_mnesia.erl
@@ -180,7 +180,7 @@ count_users(Server, _) ->
 
 get_password(User, Server) ->
     case mnesia:dirty_read(passwd, {User, Server}) of
-	[#passwd{password = {scram, SK, SEK, Salt, IC}}] ->
+	[{passwd, _, {scram, SK, SEK, Salt, IC}}] ->
 	    {cache, {ok, #scram{storedkey = SK, serverkey = SEK,
 				salt = Salt, hash = sha, iterationcount = IC}}};
 	[#passwd{password = Password}] ->
@@ -277,7 +277,7 @@ transform(#passwd{us = {U, S}, password = Password} = P)
 	plain ->
 	    P
     end;
-transform(#passwd{password = {scram, _, _, _, _}} = P) ->
+transform({passwd, _, {scram, _, _, _, _}} = P) ->
     P;
 transform(#passwd{password = #scram{}} = P) ->
     P.