diff options
| author | Mickaël Rémond <mickael.remond@process-one.net> | 2006-04-26 22:28:05 +0000 |
|---|---|---|
| committer | Mickaël Rémond <mickael.remond@process-one.net> | 2006-04-26 22:28:05 +0000 |
| commit | bd4c18516cddc4a5d3a5723b76e7927cd347e9b4 (patch) | |
| tree | 2abcb88808cade4830761812a93e99507181b66f | |
| parent | * Fixed notes for version 1.1.0 release. (diff) | |
* src/ejabberd_ctl.erl: The status now only returns "started" if
ejabberd is started and ready to accept requests.
SVN Revision: 554
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | src/ejabberd_ctl.erl | 11 |
2 files changed, 14 insertions, 2 deletions
@@ -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 63825e916..d8905c2e7 100644 --- 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(), |