From 6942d0bcc3c26a858657310cba3d9a8674b1d059 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 18 Jun 2010 14:05:47 +0200
Subject: [PATCH] Remove in mod_caps handle of unused md5 hash

---
 src/mod_caps.erl | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/mod_caps.erl b/src/mod_caps.erl
index 90b51396b..b338243a7 100644
--- a/src/mod_caps.erl
+++ b/src/mod_caps.erl
@@ -318,16 +318,11 @@ make_my_disco_hash(Host) ->
 	    ""
     end.
 
-make_disco_hash(DiscoEls, Algo) when Algo == sha1; Algo == md5 ->
+make_disco_hash(DiscoEls, Algo) when Algo == sha1 ->
     Concat = [concat_identities(DiscoEls),
 	      concat_features(DiscoEls),
 	      concat_info(DiscoEls)],
-    base64:encode_to_string(
-      if Algo == sha1 ->
-	      crypto:sha(Concat);
-	 Algo == md5 ->
-	      crypto:md5(Concat)
-      end).
+    base64:encode_to_string(crypto:sha(Concat)).
 
 concat_features(Els) ->
     lists:usort(