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 new command: mnesia (thanks to

Browse Source 
Tsukasa Hamano)

SVN Revision: 1094
This commit is contained in:
Badlop 2007-12-21 21:50:22 +00:00
parent 5ee03c1514
commit d1f902768c
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

@ -1,3 +1,8 @@
2007-12-21 Badlop <badlop@process-one.net>
* src/ejabberd_ctl.erl: Added new command: mnesia (thanks to
Tsukasa Hamano)
2007-12-21 Mickael Remond <mremond@process-one.net> 2007-12-21 Mickael Remond <mremond@process-one.net>
* src/msgs/fr.msg: Updated French translation (EJAB-295) * src/msgs/fr.msg: Updated French translation (EJAB-295)

16
src/ejabberd_ctl.erl
View File

@ -188,6 +188,21 @@ process(["delete-expired-messages"]) ->
mod_offline:remove_expired_messages(), mod_offline:remove_expired_messages(),
?STATUS_SUCCESS; ?STATUS_SUCCESS;
process(["mnesia"]) ->
io:format("~p~n", [mnesia:system_info(all)]),
?STATUS_SUCCESS;
process(["mnesia", "info"]) ->
mnesia:info(),
?STATUS_SUCCESS;
process(["mnesia", Arg]) when is_list(Arg) ->
case catch mnesia:system_info(list_to_atom(Arg)) of
{'EXIT', Error} -> io:format("Error: ~p~n", [Error]);
Return -> io:format("~p~n", [Return])
end,
?STATUS_SUCCESS;
process(["delete-old-messages", Days]) -> process(["delete-old-messages", Days]) ->
case catch list_to_integer(Days) of case catch list_to_integer(Days) of
{'EXIT',{Reason, _Stack}} -> {'EXIT',{Reason, _Stack}} ->
@ -246,6 +261,7 @@ print_usage() ->
{"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"}, {"delete-old-messages n", "delete offline messages older than n days from database"},
{"mnesia [info]", "show information of Mnesia system"},
{"vhost host ...", "execute host-specific commands"}] ++ {"vhost host ...", "execute host-specific commands"}] ++
ets:tab2list(ejabberd_ctl_cmds), ets:tab2list(ejabberd_ctl_cmds),
MaxCmdLen = MaxCmdLen =