Added the 'escript' command to the extended release script to permit

escripts to run in the release's environment without having to break
release encapsulation.

Example use:

$ _rel/myrelease/bin/myrelease escript priv/test.escript arg1 arg2 arg3

The argument to 'escript' is relative to the release's root.

The script is started with the 'escript' binary in the release's erts
release; has a current working directory of the release's root directory;
and additionally is started with visibility of an environment variable
called 'RELEASE_ROOT_DIR' which contains the absolute path of the
release's root directory.

1 files changed, 15 insertions, 1 deletions

diff --git a/priv/templates/extended_bin.dtl b/priv/templates/extended_bin.dtl
index f38e51a..bca90f3 100644
--- a/priv/templates/extended_bin.dtl
+++ b/priv/templates/extended_bin.dtl
@@ -53,6 +53,13 @@ relx_nodetool() {
                                 -setcookie "$COOKIE" "$command" $@
 }
 
+# Run an escript in the node's environment
+relx_escript() {
+    command="$1"; shift
+    export RELEASE_ROOT_DIR
+
+    "$ERTS_DIR/bin/escript" "$ROOTDIR/$command" $@
+}
 # Output a start command for the last argument of run_erl
 relx_start_command() {
     printf "exec \"%s\" \"%s\"" "$RELEASE_ROOT_DIR/bin/$REL_NAME" \
@@ -222,6 +229,13 @@ case "$1" in
         fi
         ;;
 
+    escript)
+        ## Run an escript under the node's environment
+        if ! relx_escript $@; then
+            exit $?
+        fi
+        ;;
+
     attach)
         # Make sure a node IS running
         if ! relx_nodetool "ping" > /dev/null; then
@@ -345,7 +359,7 @@ case "$1" in
         exec "$@" -- "${1+$ARGS}"
         ;;
     *)
-        echo "Usage: $REL_NAME {start|start_boot <file>|foreground|stop|restart|reboot|ping|console|console_clean|console_boot <file>|attach|remote_console|upgrade}"
+        echo "Usage: $REL_NAME {start|start_boot <file>|foreground|stop|restart|reboot|ping|console|console_clean|console_boot <file>|attach|remote_console|upgrade|escript}"
         exit 1
         ;;
 esac