Chapril
/
xmpp.chapril.org-ejabberd
mirror of https://github.com/processone/ejabberd.git
24
1
Fork 0
Code Releases Activity

Fix mod_offline:remove_old_messages/1.

This commit is contained in:
Andreas Köhler 2010-08-16 17:16:18 +02:00 committed by Badlop
parent b2d96d0753
commit d6722e353f
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/mod_offline.erl
View File

@ -431,22 +431,21 @@ pop_offline_messages(Ls, User, Server)
remove_expired_messages() ->
TimeStamp = make_timestamp(),
lists:foreach(
fun(Host) ->
fun(HostB) ->
F = fun() ->
gen_storage:delete_where(
Host, offline_msg,
HostB, offline_msg,
[{'andalso',
{'=/=', expire, 0},
{'<', expire, TimeStamp}}])
end,
gen_storage:transaction(Host, offline_msg, F)
gen_storage:transaction(HostB, offline_msg, F)
end, gen_storage:all_table_hosts(offline_msg)).
remove_old_messages(Days) ->
Timestamp = make_timestamp() - 60 * 60 * 24 * Days,
lists:foreach(
fun(Host) ->
HostB = list_to_binary(Host),
fun(HostB) ->
F = fun() ->
gen_storage:delete_where(HostB, offline_msg,
[{'<', timestamp, Timestamp}])