From cf4f0dbe6d1905e42573cf6b462b66427bf1411b Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 22 Jul 2010 16:32:55 +0200
Subject: [PATCH] The command Update now returns meaningful message and
 exit-status (EJAB-1237)

---
 src/ejabberd_admin.erl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/ejabberd_admin.erl b/src/ejabberd_admin.erl
index a833fff34..f3db0ca38 100644
--- a/src/ejabberd_admin.erl
+++ b/src/ejabberd_admin.erl
@@ -106,7 +106,7 @@ commands() ->
 			desc = "Update the given module, or use the keyword: all",
 			module = ?MODULE, function = update,
 			args = [{module, string}],
-			result = {res, rescode}},
+			result = {res, restuple}},
 
      #ejabberd_commands{name = register, tags = [accounts],
 			desc = "Register a user",
@@ -305,7 +305,10 @@ update(ModStr) ->
 
 update_module(ModuleNameString) ->
     ModuleName = list_to_atom(ModuleNameString),
-    ejabberd_update:update([ModuleName]).
+    case ejabberd_update:update([ModuleName]) of
+          {ok, Res} -> {ok, io_lib:format("Updated: ~p", [Res])};
+          {error, Reason} -> {error, Reason}
+    end.
 
 %%%
 %%% Account management