Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-12-22 17:28:25 +01:00
Code Releases Activity

mod_mam: Always strip stanza IDs

Browse Source 
XEP-0359 v0.5.0 says: "Stanza ID generating entities, which encounter a
<stanza-id/> element where the 'by' attribute matches the 'by' attribute
they would otherwise set, MUST delete that element even if they are not
adding their own stanza ID."
This commit is contained in:
Holger Weiss 2017-11-09 01:10:24 +01:00
parent 9c174e30b2
commit 28661d20bd
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/mod_mam.erl
View File

@ -265,9 +265,9 @@ set_room_option(Acc, _Property, _Lang) ->
sm_receive_packet(#message{from = Peer, to = JID} = Pkt) ->
LUser = JID#jid.luser,
LServer = JID#jid.lserver,
case should_archive(Pkt, LServer) of
true ->
Pkt1 = strip_my_archived_tag(Pkt, LServer),
case should_archive(Pkt1, LServer) of
true ->
case store_msg(Pkt1, LUser, LServer, Peer, recv) of
{ok, ID} ->
set_stanza_id(Pkt1, JID, ID);
@ -275,7 +275,7 @@ sm_receive_packet(#message{from = Peer, to = JID} = Pkt) ->
Pkt1
end;
_ ->
Pkt
Pkt1
end;
sm_receive_packet(Acc) ->
Acc.
@ -285,9 +285,9 @@ sm_receive_packet(Acc) ->
user_send_packet({#message{to = Peer} = Pkt, #{jid := JID} = C2SState}) ->
LUser = JID#jid.luser,
LServer = JID#jid.lserver,
Pkt2 = case should_archive(Pkt, LServer) of
true ->
Pkt1 = strip_my_archived_tag(Pkt, LServer),
Pkt2 = case should_archive(Pkt1, LServer) of
true ->
case store_msg(xmpp:set_from_to(Pkt1, JID, Peer),
LUser, LServer, Peer, send) of
{ok, ID} ->
@ -296,7 +296,7 @@ user_send_packet({#message{to = Peer} = Pkt, #{jid := JID} = C2SState}) ->
Pkt1
end;
false ->
Pkt
Pkt1
end,
{Pkt2, C2SState};
user_send_packet(Acc) ->
@ -315,9 +315,9 @@ user_send_packet_strip_tag(Acc) ->
muc_filter_message(#message{from = From} = Pkt,
#state{config = Config, jid = RoomJID} = MUCState,
FromNick) ->
if Config#config.mam ->
LServer = RoomJID#jid.lserver,
NewPkt = strip_my_archived_tag(Pkt, LServer),
if Config#config.mam ->
StorePkt = strip_x_jid_tags(NewPkt),
case store_muc(MUCState, StorePkt, RoomJID, From, FromNick) of
{ok, ID} ->
@ -326,7 +326,7 @@ muc_filter_message(#message{from = From} = Pkt,
NewPkt
end;
true ->
Pkt
NewPkt
end;
muc_filter_message(Acc, _MUCState, _FromNick) ->
Acc.