mirror of
https://github.com/processone/ejabberd.git
synced 2024-11-24 16:23:40 +01:00
Do not overwrite the stanza namespace (thanks to Anastasia Gornostaeva)
SVN Revision: 2229
This commit is contained in:
parent
4a83538cf6
commit
b42dd00a53
@ -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,9 +777,7 @@ send_outpacket(#http_bind{pid = FsmRef}, OutPacket) ->
|
||||
StreamAttribs, StreamEls} |
|
||||
StreamTail] ->
|
||||
TypedTail =
|
||||
[xml:replace_tag_attr(
|
||||
"xmlns",
|
||||
?NS_CLIENT,OEl) ||
|
||||
[check_default_xmlns(OEl) ||
|
||||
OEl <- StreamTail],
|
||||
[{xmlelement,
|
||||
"stream:features",
|
||||
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user