mirror of
https://github.com/processone/ejabberd.git
synced 2024-11-22 16:20:52 +01:00
* 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. SVN Revision: 565
This commit is contained in:
parent
640e1579f5
commit
177b367cbe
@ -10,6 +10,11 @@
|
||||
* src/ejabberd_ctl.erl: Now prints a user-friendly when trying to
|
||||
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>
|
||||
|
||||
* src/ejabberd_ctl.erl: Unknown tables or tables from now unused
|
||||
|
@ -175,6 +175,21 @@ process(["delete-expired-messages"]) ->
|
||||
mod_offline:remove_expired_messages(),
|
||||
?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]) ->
|
||||
case jlib:nameprep(H) of
|
||||
false ->
|
||||
@ -217,6 +232,7 @@ print_usage() ->
|
||||
{"import-file file", "import user data from jabberd 1.4 spool file"},
|
||||
{"import-dir dir", "import user data from jabberd 1.4 spool directory"},
|
||||
{"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"}] ++
|
||||
ets:tab2list(ejabberd_ctl_cmds),
|
||||
MaxCmdLen =
|
||||
|
Loading…
Reference in New Issue
Block a user