From 3aaebe98f4a38236ad2cee4d75e0e4e95307c65c Mon Sep 17 00:00:00 2001
From: Christophe Romain <christophe.romain@process-one.net>
Date: Tue, 20 Jul 2010 14:06:48 +0200
Subject: [PATCH] add ejabberdctl ability to check epmd names (TECH-1121)

---
 src/ejabberdctl.template | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/src/ejabberdctl.template b/src/ejabberdctl.template
index 9b292da20..a1e7902c7 100644
--- a/src/ejabberdctl.template
+++ b/src/ejabberdctl.template
@@ -136,6 +136,7 @@ export EXEC_CMD
 # start server
 start ()
 {
+    check_start
     $EXEC_CMD "$ERL \
       $NAME $ERLANG_NODE \
       -noinput -detached \
@@ -182,6 +183,7 @@ debug ()
 # start interactive server
 live ()
 {
+    check_start
     echo "--------------------------------------------------------------------"
     echo ""
     echo "IMPORTANT: ejabberd is going to start in LIVE (interactive) mode."
@@ -337,6 +339,26 @@ stop_epmd()
     epmd -names | grep -q name || epmd -kill
 }
 
+# make sure node not already running and node name unregistered
+check_start()
+{
+    epmd -names | grep -q $NODE && {
+        ps ux | grep -q $ERLANG_NODE && {
+            echo "ejabberd is already running."
+            exit 4
+        } || {
+            ps ux | grep beam | grep -v "grep beam" && {
+                echo "ejabberd node is registered, but no ejabberd process has been found."
+                echo "can not kill epmd as other erlang nodes are running."
+                echo "please stop all erlang nodes, and call 'epmd -kill'."
+                exit 5
+            } || {
+                epmd -kill
+            }
+        }
+    }
+}
+
 # allow sync calls
 wait_for_status()
 {