From d1f902768c918908ee0df6d42dcaea34bd870152 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 21 Dec 2007 21:50:22 +0000
Subject: [PATCH] * src/ejabberd_ctl.erl: Added new command: mnesia (thanks to
 Tsukasa Hamano)

SVN Revision: 1094
---
 ChangeLog            |  5 +++++
 src/ejabberd_ctl.erl | 16 ++++++++++++++++
 2 files changed, 21 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 41f139f19..c725e5394 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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>
 
 	* src/msgs/fr.msg: Updated French translation (EJAB-295)
diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl
index dfec4bf07..612daab4c 100644
--- a/src/ejabberd_ctl.erl
+++ b/src/ejabberd_ctl.erl
@@ -188,6 +188,21 @@ process(["delete-expired-messages"]) ->
     mod_offline:remove_expired_messages(),
     ?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]) ->
     case catch list_to_integer(Days) of
 	{'EXIT',{Reason, _Stack}} ->
@@ -246,6 +261,7 @@ print_usage() ->
 	 {"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"},
+	 {"mnesia [info]", "show information of Mnesia system"},
 	 {"vhost host ...", "execute host-specific commands"}] ++
 	ets:tab2list(ejabberd_ctl_cmds),
     MaxCmdLen =