From b42dd00a53409c0d9b2a75b54ae51e93ae9cd777 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 16 Jun 2009 17:46:03 +0000
Subject: [PATCH] Do not overwrite the stanza namespace (thanks to Anastasia
 Gornostaeva)

SVN Revision: 2229
---
 src/web/ejabberd_http_bind.erl | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/src/web/ejabberd_http_bind.erl b/src/web/ejabberd_http_bind.erl
index 7d16e7451..e68ef8a8e 100644
--- a/src/web/ejabberd_http_bind.erl
+++ b/src/web/ejabberd_http_bind.erl
@@ -4,12 +4,12 @@
 %%% Purpose : Implements XMPP over BOSH (XEP-0205) (formerly known as 
 %%%           HTTP Binding)
 %%% Created : 21 Sep 2005 by Stefan Strigler <steve@zeank.in-berlin.de>
-%%% Id      : $Id: ejabberd_http_bind.erl 405 2007-11-02 14:58:36Z mremond $
+%%% Id      : $Id: ejabberd_http_bind.erl 408 2007-11-08 15:48:24Z badlop $
 %%%----------------------------------------------------------------------
 
 -module(ejabberd_http_bind).
 -author('steve@zeank.in-berlin.de').
--vsn('$Rev: 405 $').
+-vsn('$Rev: 408 $').
 
 -behaviour(gen_fsm).
 
@@ -748,8 +748,7 @@ send_outpacket(#http_bind{pid = FsmRef}, OutPacket) ->
 		of
 		El when element(1, El) == xmlelement ->
 		    {xmlelement, _, _, OEls} = El,
-		    TypedEls = [xml:replace_tag_attr("xmlns",
-						     ?NS_CLIENT,OEl) ||
+		    TypedEls = [check_default_xmlns(OEl) ||
 				   OEl <- OEls],
 		    ?DEBUG(" --- outgoing data --- ~n~s~n --- END --- ~n",
 			   [xml:element_to_string(
@@ -778,10 +777,8 @@ send_outpacket(#http_bind{pid = FsmRef}, OutPacket) ->
                                            StreamAttribs, StreamEls} | 
                                           StreamTail] ->
                                              TypedTail = 
-                                                 [xml:replace_tag_attr(
-                                                    "xmlns",
-                                                    ?NS_CLIENT,OEl) ||
-                                                            OEl <- StreamTail],
+                                                 [check_default_xmlns(OEl) ||
+						     OEl <- StreamTail],
                                              [{xmlelement, 
                                                "stream:features", 
                                                [{"xmlns:stream",
@@ -917,3 +914,12 @@ remove_tag_attr(Attr, El) ->
         _ ->
             El
     end.
+
+check_default_xmlns({xmlelement, Name, Attrs, Els} = El) ->
+    EXmlns = xml:get_tag_attr_s("xmlns", El),
+    if 
+	EXmlns == "" ->
+	    {xmlelement, Name, [{"xmlns", ?NS_CLIENT} | Attrs], Els};
+	true ->
+	    El
+    end.