* src/ejabberd_ctl.erl: The status now only returns "started" if

ejabberd is started and ready to accept requests.

SVN Revision: 554

diff --git a/ChangeLog b/ChangeLog
index bd075567b9c3e97329531dd70a82e80e66d0b7ba..c72ab58cfd55136498a0caf2bd7184c266b75045 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-27  Mickael Remond  <mickael.remond@process-one.net>
+
+       * src/ejabberd_ctl.erl: The status now only returns "started" if
+       ejabberd is started and ready to accept requests.
+
 2006-04-24  Alexey Shchepin  <alexey@sevcom.net>
 
        * doc/guide.tex: Added a documentation for max_stanza_size option

diff --git a/src/ejabberd_ctl.erl b/src/ejabberd_ctl.erl
index 63825e916d6e2b046b03cf2f7f03c47c3916c224..d8905c2e703c5b61be864afbc541d1069a4270ce 100644 (file)
--- a/src/ejabberd_ctl.erl
+++ b/src/ejabberd_ctl.erl
@@ -45,8 +45,15 @@ init() ->
 process(["status"]) ->
     {InternalStatus, ProvidedStatus} = init:get_status(),
     io:format("Node ~p is ~p. Status: ~p~n",
-             [node(), InternalStatus, ProvidedStatus]),
-    ?STATUS_SUCCESS;
+              [node(), InternalStatus, ProvidedStatus]),
+    case lists:keysearch(ejabberd, 1, application:which_applications()) of
+        false ->
+            io:format("ejabberd is not running~n", []),
+            ?STATUS_ERROR;
+        {value,_Version} ->
+            io:format("ejabberd is running~n", []),
+            ?STATUS_SUCCESS
+    end;
 
 process(["stop"]) ->
     init:stop(),