exmpp fixes in c2s, piefxis and mod_vcard_ldap (thanks to Karim Gemayel)

SVN Revision: 2930

src/ejabberd_c2s.erl

@@ -142,8 +142,9 @@
 -define(INVALID_FROM, exmpp_stream:error('invalid-from')).
 
 -define(STANZA_ERROR(NS, Condition),
-  exmpp_xml:xmlel_to_xmlelement(exmpp_stanza:error(NS, Condition),
+%  exmpp_xml:xmlel_to_xmlelement(exmpp_stanza:error(NS, Condition),
-    [?NS_JABBER_CLIENT], [{?NS_XMPP, "stream"}])).
+%    [?NS_JABBER_CLIENT], [{?NS_XMPP, "stream"}])).
+  exmpp_stanza:error(NS, Condition)).
 -define(ERR_FEATURE_NOT_IMPLEMENTED(NS),
   ?STANZA_ERROR(NS, 'feature-not-implemented')).
 

src/ejabberd_piefxis.erl

@@ -496,7 +496,9 @@ extract_user_info(offline, Username, Host) ->
 	    case Els of
 		[] -> "";
 		Els ->
-		    OfEl = {xmlelement, "offline-messages", [], Els},
+                    OfEl = #xmlel{name = 'offline-messages',
+                                  children = Els},
+		    %OfEl = {xmlelement, "offline-messages", [], Els},
 		    exmpp_xml:document_to_list(OfEl)
 	    end;
 	{ok, mod_offline_odbc} ->

src/mod_vcard_ldap.erl

@@ -634,7 +634,8 @@ process_pattern(Str, {User, Domain}, AttrValues) ->
       [{"%u", User},{"%d", Domain}] ++
       [{"%s", V, 1} || V <- AttrValues]).
 
-find_xdata_el({xmlelement, _Name, _Attrs, SubEls}) ->
+find_xdata_el(#xmlel{children = SubEls}) ->
+%find_xdata_el({xmlelement, _Name, _Attrs, SubEls}) ->
     find_xdata_el1(SubEls).
 
 find_xdata_el1([]) ->