*** empty log message ***

SVN Revision: 20

1 files changed, 26 insertions, 0 deletions

diff --git a/src/ejabberd_auth.erl b/src/ejabberd_auth.erl
index 4463932c..86b6d3b4 100644
--- a/src/ejabberd_auth.erl
+++ b/src/ejabberd_auth.erl
@@ -19,6 +19,7 @@
 -export([start/0, start_link/0,
 	 set_password/2,
 	 check_password/2,
+	 check_password/4,
 	 try_register/2]).
 
 %% gen_server callbacks
@@ -110,6 +111,31 @@ check_password(User, Password) ->
 	    false
     end.
 
+check_password(User, Password, StreamID, Digest) ->
+    LUser = jlib:tolower(User),
+    F = fun() ->
+		case mnesia:read({passwd, LUser}) of
+		    [E] ->
+			E#passwd.password
+		end
+        end,
+    case mnesia:transaction(F) of
+	{atomic, Passwd} ->
+	    DigRes = if
+			 Digest /= "" ->
+			     Digest == sha:sha(StreamID ++ Passwd);
+			 true ->
+			     false
+		     end,
+	    if DigRes ->
+		    true;
+	       true ->
+		    Passwd == Password
+	    end;
+	_ ->
+	    false
+    end.
+
 
 set_password(User, Password) ->
     LUser = jlib:tolower(User),