From abf07966bea8246ad207e44987f4c4e4ad8c702e Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 8 Jan 2024 16:39:46 +0100
Subject: [PATCH] ejabberdctl: Detect problem running etop and show some help

---
 ejabberdctl.template | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/ejabberdctl.template b/ejabberdctl.template
index 470b4b263..6924a8703 100755
--- a/ejabberdctl.template
+++ b/ejabberdctl.template
@@ -187,6 +187,21 @@ livewarning()
     fi
 }
 
+check_etop_result()
+{
+    result=$?
+    if [ $result -eq 1 ] ; then
+        echo ""
+        echo "It seems there was some problem running 'ejabberdctl etop'."
+        echo "Is the error message something like this?"
+        echo "  Failed to load module 'etop' because it cannot be found..."
+        echo "Then probably ejabberd was compiled with development tools disabled."
+        echo "To use 'etop', recompile ejabberd with: ./configure --enable-tools"
+        echo ""
+        exit $result
+    fi
+}
+
 help()
 {
     echo ""
@@ -310,6 +325,7 @@ case $1 in
         set_dist_client
         exec_erl "$(uid top)" -hidden -remsh "$ERLANG_NODE" -s etop \
                  -output text
+        check_etop_result
         ;;
     iexdebug)
         debugwarning