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

Fix deletion of multiple offline messages using WebAdmin (#1962)

Browse Source
This commit is contained in:
Badlop 2017-08-25 12:44:53 +02:00
parent f7e8d287d5
commit 68dee8cbb3
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/mod_offline.erl
View File

@ -706,22 +706,25 @@ user_queue_parse_query(LUser, LServer, Query) ->
Mod = gen_mod:db_mod(LServer, ?MODULE), Mod = gen_mod:db_mod(LServer, ?MODULE),
case lists:keysearch(<<"delete">>, 1, Query) of case lists:keysearch(<<"delete">>, 1, Query) of
{value, _} -> {value, _} ->
case lists:keyfind(<<"selected">>, 1, Query) of user_queue_parse_query(LUser, LServer, Query, Mod);
{_, Seq} ->
case catch binary_to_integer(Seq) of
I when is_integer(I), I>=0 ->
Mod:remove_message(LUser, LServer, I),
ok;
_ ->
nothing
end;
false ->
nothing
end;
_ -> _ ->
nothing nothing
end. end.
user_queue_parse_query(LUser, LServer, Query, Mod) ->
case lists:keytake(<<"selected">>, 1, Query) of
{value, {_, Seq}, Query2} ->
case catch binary_to_integer(Seq) of
I when is_integer(I), I>=0 ->
Mod:remove_message(LUser, LServer, I);
_ ->
nothing
end,
user_queue_parse_query(LUser, LServer, Query2, Mod);
false ->
nothing
end.
us_to_list({User, Server}) -> us_to_list({User, Server}) ->
jid:encode({User, Server, <<"">>}). jid:encode({User, Server, <<"">>}).