Add 'kerl active' command to query the active installation

2 files changed, 14 insertions, 0 deletions

diff --git a/README.md b/README.md
index 83c8e45..260b61c 100644
--- a/README.md
+++ b/README.md
@@ -78,6 +78,11 @@ You're now ready to work with R14B02:
 When your done just type:
     $ kerl_deactivate
 
+Anytime you can check which installation, if any, is currently active with:
+
+    $ kerl active
+    No Erlang/OTP kerl installation is currently active
+
 Tuning
 ======
 
diff --git a/kerl b/kerl
index 48b96ad..0defcc6 100755
--- a/kerl
+++ b/kerl
@@ -45,6 +45,7 @@ usage() {
     echo "  install  Install the specified release at the given location"
     echo "  update   Update the list of available releases from erlang.org"
     echo "  list     List releases, builds and installations"
+    echo "  active   Print the path of the active installation"
     exit 1
 }
 
@@ -296,6 +297,14 @@ case "$1" in
                 ;;
         esac
         ;;
+    active)
+        if [ -n "$_KERL_SAVED_PATH" ]; then
+            echo "The current active installation is:"
+            echo `echo $PATH | cut -d ":" -f 1 | head -c -4`
+        else
+            echo "No Erlang/OTP kerl installation is currently active"
+        fi
+        ;;
     *)
         echo "unkwnown command: $1"; usage; exit 1
         ;;