24
1
mirror of https://github.com/processone/ejabberd.git synced 2024-07-02 23:06:21 +02:00

Send announce Message stanzas as Headline type instead of Normal

This commit is contained in:
Badlop 2012-07-24 18:35:41 +02:00 committed by Christophe Romain
parent 9442a583bc
commit 674ab27700

View File

@ -35,7 +35,7 @@
-export([start/2, -export([start/2,
init/0, init/0,
stop/1, stop/1,
export/1, export/1,
announce/3, announce/3,
send_motd/1, send_motd/1,
disco_identity/5, disco_identity/5,
@ -598,7 +598,7 @@ handle_adhoc_form(From, #jid{lserver = LServer} = To,
status = completed}, status = completed},
Packet = #xmlel{ Packet = #xmlel{
name = <<"message">>, name = <<"message">>,
attrs = [{<<"type">>, <<"normal">>}], attrs = [{<<"type">>, <<"headline">>}],
children = if Subject /= <<>> -> children = if Subject /= <<>> ->
[#xmlel{name = <<"subject">>, children = [{xmlcdata, Subject}]}]; [#xmlel{name = <<"subject">>, children = [{xmlcdata, Subject}]}];
true -> true ->
@ -991,7 +991,7 @@ send_announcement_to_all(Host, SubjectS, BodyS) ->
end, end,
Packet = #xmlel{ Packet = #xmlel{
name = <<"message">>, name = <<"message">>,
attrs = [{<<"type">>, <<"normal">>}], attrs = [{<<"type">>, <<"headline">>}],
children = SubjectEls ++ BodyEls children = SubjectEls ++ BodyEls
}, },
Sessions = ejabberd_sm:dirty_get_sessions_list(), Sessions = ejabberd_sm:dirty_get_sessions_list(),