From 02e6bf875967e6ea5ba6ca8f02e57172d5ad1b60 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jean-S=C3=A9bastien=20P=C3=A9dron?=
 <js.pedron@meetic-corp.com>
Date: Wed, 27 Aug 2008 09:46:25 +0000
Subject: [PATCH] handle_cast({disco_response, ...}, ...) now receives an #iq
 record: update the code to handle this.

SVN Revision: 1552
---
 ChangeLog        |  3 +++
 src/mod_caps.erl | 13 ++++++-------
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1242e3a29..5400cdd0c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@
 
 	* src/mod_roster.erl: Remove a debugging io:format/2.
 
+	* src/mod_caps.erl: handle_cast({disco_response, ...}, ...) now
+	receives an #iq record: update the code to handle this.
+
 2008-08-26  Jean-Sébastien Pédron  <js.pedron@meetic-corp.com>
 
 	* src/jlib.erl: short_jid/1 and short_bare_jid/1 now produce a short
diff --git a/src/mod_caps.erl b/src/mod_caps.erl
index a04a27f0a..852ae7e48 100644
--- a/src/mod_caps.erl
+++ b/src/mod_caps.erl
@@ -217,10 +217,9 @@ handle_cast({note_caps, From,
 	    ?ERROR_MSG("Transaction failed: ~p", [Error]),
 	    {noreply, State}
     end;
-handle_cast({disco_response, From, _To, IQ},
+handle_cast({disco_response, From, _To, #iq{id = ID, type = Type, payload = Payload}},
 	    #state{disco_requests = Requests} = State) ->
-    ID = exmpp_stanza:get_id(IQ),
-    case {exmpp_iq:get_type(IQ), exmpp_iq:get_payload(IQ)} of
+    case {Type, Payload} of
 	{result, #xmlel{name = 'query', children = Els}} ->
 	    case ?DICT:find(ID, Requests) of
 		{ok, {Node, SubNode}} ->
@@ -255,8 +254,8 @@ handle_cast({disco_response, From, _To, IQ},
 	    end;
 	    %gen_server:cast(self(), visit_feature_queries),
 	    %?DEBUG("Error IQ reponse from ~s:~n~p", [exmpp_jid:jid_to_list(From), SubEls]);
-	{result, _} ->
-	    ?DEBUG("Invalid IQ contents from ~s:~n~p", [exmpp_jid:jid_to_list(From), IQ#xmlel.children]);
+	{result, Payload} ->
+	    ?DEBUG("Invalid IQ contents from ~s:~n~p", [exmpp_jid:jid_to_list(From), Payload]);
 	_ ->
 	    %% Can't do anything about errors
 	    ok
@@ -287,10 +286,10 @@ handle_cast(visit_feature_queries, #state{feature_queries = FeatureQueries} = St
 		    end, [], FeatureQueries),
     {noreply, State#state{feature_queries = NewFeatureQueries}}.
 
-handle_disco_response(From, To, IQ) ->
+handle_disco_response(From, To, IQ_Rec) ->
     #jid{ldomain = Host} = To,
     Proc = gen_mod:get_module_proc(Host, ?PROCNAME),
-    gen_server:cast(Proc, {disco_response, From, To, IQ}).
+    gen_server:cast(Proc, {disco_response, From, To, IQ_Rec}).
 
 handle_info(_Info, State) ->
     {noreply, State}.