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

* src/ejabberd_ctl.erl: Added a way to delete the older message

Browse Source 
from the offline message table. This function is only available if
offline message queue is stored in Mnesia internal database. The
function delete_old_messages is not available in mod_offline_odbc.

SVN Revision: 565
This commit is contained in:
Mickaël Rémond 2006-05-07 21:26:06 +00:00
parent 640e1579f5
commit 177b367cbe
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -9,6 +9,11 @@
* src/ejabberd_ctl.erl: Now prints a user-friendly when trying to * src/ejabberd_ctl.erl: Now prints a user-friendly when trying to
restore a backup from a non-existent file. restore a backup from a non-existent file.
* src/ejabberd_ctl.erl: Added a way to delete the older message
from the offline message table. This function is only available if
offline message queue is stored in Mnesia internal database. The
function delete_old_messages is not available in mod_offline_odbc.
2006-05-01 Mickael Remond <mickael.remond@process-one.net> 2006-05-01 Mickael Remond <mickael.remond@process-one.net>

16
src/ejabberd_ctl.erl
View File

@ -175,6 +175,21 @@ process(["delete-expired-messages"]) ->
mod_offline:remove_expired_messages(), mod_offline:remove_expired_messages(),
?STATUS_SUCCESS; ?STATUS_SUCCESS;
process(["delete-old-messages", Days]) ->
case catch list_to_integer(Days) of
{'EXIT',{Reason, _Stack}} ->
io:format("Can't delete old messages (~p). Please pass an integer as parameter.~n",
[Reason]),
?STATUS_ERROR;
Integer when Integer >= 0 ->
{atomic, _} = mod_offline:remove_old_messages(Integer),
io:format("Removed messages older than ~s days~n", [Days]),
?STATUS_SUCCESS;
Integer ->
io:format("Can't delete old messages. Please pass a positive integer as parameter.~n", []),
?STATUS_ERROR
end;
process(["vhost", H | Args]) -> process(["vhost", H | Args]) ->
case jlib:nameprep(H) of case jlib:nameprep(H) of
false -> false ->
@ -217,6 +232,7 @@ print_usage() ->
{"import-file file", "import user data from jabberd 1.4 spool file"}, {"import-file file", "import user data from jabberd 1.4 spool file"},
{"import-dir dir", "import user data from jabberd 1.4 spool directory"}, {"import-dir dir", "import user data from jabberd 1.4 spool directory"},
{"delete-expired-messages", "delete expired offline messages from database"}, {"delete-expired-messages", "delete expired offline messages from database"},
{"delete-old-messages n", "delete offline messages older than n days from database"},
{"vhost host ...", "execute host-specific commands"}] ++ {"vhost host ...", "execute host-specific commands"}] ++
ets:tab2list(ejabberd_ctl_cmds), ets:tab2list(ejabberd_ctl_cmds),
MaxCmdLen = MaxCmdLen =