Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00
Code Releases Activity

Support XEP-0424 in mod_mam_mnesia

Browse Source
This commit is contained in:
Alexey Shchepin 2023-12-27 09:42:22 +03:00
parent 4f6730621a
commit 8d2d3a6540
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/mod_mam_mnesia.erl
View File

@ -190,7 +190,27 @@ extended_fields() ->
[].
store(Pkt, _, {LUser, LServer}, Type, Peer, Nick, _Dir, TS,
OriginID, _Retract) ->
OriginID, Retract) ->
case Retract of
{true, RID} ->
mnesia:transaction(
fun () ->
{PUser, PServer, _} = jid:tolower(Peer),
Msgs = mnesia:select(
archive_msg,
ets:fun2ms(
fun(#archive_msg{
us = US1,
bare_peer = Peer1,
origin_id = OriginID1} = Msg)
when US1 == {LUser, LServer},
Peer1 == {PUser, PServer, <<>>},
OriginID1 == RID -> Msg
end)),
lists:foreach(fun mnesia:delete_object/1, Msgs)
end);
false -> ok
end,
case {mnesia:table_info(archive_msg, disc_only_copies),
mnesia:table_info(archive_msg, memory)} of
{[_|_], TableSize} when TableSize > ?TABLE_SIZE_LIMIT ->