From 407d3b77b78e6866092758127553b78f9340a076 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 8 Jul 2008 11:07:45 +0000
Subject: [PATCH] * tools/ejabberdctl: Work also when 'which' is unavailable

SVN Revision: 1419
---
 ChangeLog         | 4 ++++
 tools/ejabberdctl | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 83ba3cd33..04452857e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-08  Badlop  <badlop@process-one.net>
+
+	* tools/ejabberdctl: Work also when 'which' is unavailable
+
 2008-07-08  Christophe Romain  <christophe.romain@process-one.net>
 
 	* src/web/ejabberd_http_poll.erl: improve ip fetching patch
diff --git a/tools/ejabberdctl b/tools/ejabberdctl
index 9d3f7bd5a..c821e8081 100755
--- a/tools/ejabberdctl
+++ b/tools/ejabberdctl
@@ -4,7 +4,8 @@ NODE=ejabberd
 HOST=localhost
 
 # Define ejabberd environment
-base="`dirname $(which "$0")`/.."
+here=`which "$0" 2>/dev/null || echo .`
+base="`dirname $here`/.."
 ROOTDIR=`(cd "$base"; echo $PWD)`
 SASL_LOG_PATH=$ROOTDIR/sasl.log
 EJABBERD_DB=$ROOTDIR/database/$NODE