jacob.eva
/
ejabberd-contrib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mod_mam_mnesia: Check for <store/> hint 

Respect the <store/> and <pretty-please-store/> hints.  Both tell the
server to store a message even if it would otherwise not be stored
(e.g., because it doesn't have a body).  These hints are not (yet) part
of XEP-0334, though.
This commit is contained in:
Holger Weiss 2015-09-01 00:01:25 +02:00
parent 9eb68b4ef3
commit 96adf84c6f
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mod_mam_mnesia/src/mod_mam_mnesia.erl
View File

@ -319,12 +319,17 @@ send_stanza(Stanza, _C2SState, _From, _To) -> Stanza.
-spec is_desired(route(), jid(), jid(), xmlel()) -> boolean().
is_desired(Route, JID, To, Message) ->
is_chat_or_normal_message(Message) andalso
has_non_empty_body(Message) andalso
looks_interesting(Message) andalso
not has_no_store_hint(Message) andalso
not is_bare_copy(Route, JID, To) andalso
not is_resent(Message).
-spec looks_interesting(xmlel()) -> boolean().
looks_interesting(Message) ->
(is_chat_or_normal_message(Message) andalso has_non_empty_body(Message))
orelse has_store_hint(Message).
-spec is_chat_or_normal_message(xmlel()) -> boolean().
is_chat_or_normal_message(#xmlel{name = <<"message">>} = Message) ->
@ -354,6 +359,14 @@ has_non_empty_body(Message) ->
xml:get_subtag_cdata(Message, <<"body">>) =/= <<"">> orelse
xml:get_subtag(Message, <<"encrypted">>) =/= false.
-spec has_store_hint(xmlel()) -> boolean().
has_store_hint(Message) ->
xml:get_subtag_with_xmlns(Message, <<"store">>, ?NS_HINTS)
=/= false orelse
xml:get_subtag_with_xmlns(Message, <<"pretty-please-store">>, ?NS_HINTS)
=/= false.
-spec has_no_store_hint(xmlel()) -> boolean().
has_no_store_hint(Message) ->