From: Badlop <badlop@process-one.net>
Date: Fri, 11 Dec 2009 20:04:36 +0000 (+0000)
Subject: Print command's reply and newline only when there's something to print.
X-Git-Tag: v2.1.1~2
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=d24449488cbe4893a88f1c35a290595766303521;p=ejabberd

Print command's reply and newline only when there's something to print.

SVN Revision: 2806
---

diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl
index 7919986ae..13d03be3a 100644
--- a/src/ejabberd_ctl.erl
+++ b/src/ejabberd_ctl.erl
@@ -197,8 +197,12 @@ process(["help" | Mode]) ->
 process(Args) ->
     AccessCommands = get_accesscommands(),
     {String, Code} = process2(Args, AccessCommands),
-    io:format(String),
-    io:format("\n"),
+    case String of
+	[] -> ok;
+	_ ->
+	    io:format(String),
+	    io:format("\n")
+    end,
     Code.
 
 %% @spec (Args::[string()], AccessCommands) -> {String::string(), Code::integer()}