From 5490d7efe85ba0eb3ebaf913575995d40d148ebf Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 7 Aug 2009 14:51:55 +0000
Subject: [PATCH] Add ejabberd command to get the current loglevel (EJAB-1004)

SVN Revision: 2447
---
 src/ejabberd_admin.erl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/ejabberd_admin.erl b/src/ejabberd_admin.erl
index 5e81a2b37..e2c95da91 100644
--- a/src/ejabberd_admin.erl
+++ b/src/ejabberd_admin.erl
@@ -79,6 +79,14 @@ commands() ->
 			desc = "Reopen the log files",
 			module = ?MODULE, function = reopen_log,
 			args = [], result = {res, rescode}},
+     #ejabberd_commands{name = get_loglevel, tags = [logs, server],
+			desc = "Get the current loglevel",
+			module = ejabberd_loglevel, function = get,
+			args = [],
+                        result = {leveltuple, {tuple, [{levelnumber, integer},
+                                                       {levelatom, atom},
+                                                       {leveldesc, string}
+                                                      ]}}},
 
      #ejabberd_commands{name = register, tags = [accounts],
 			desc = "Register a user",