Merge pull request #459 from djnym/erlang_hostname

get nodename from erlang, not hostname
erlware · Mar 31, 2016 · 1e15397 · 1e15397
2 parents 175a55b + dc3dbf8
commit 1e15397
Showing 1 changed file with 3 additions and 11 deletions.
diff --git a/priv/templates/extended_bin b/priv/templates/extended_bin
@@ -42,9 +42,9 @@ relx_get_pid() {
     fi
 }
 
-relx_get_longname() {
+relx_get_nodename() {
     id="longname$(relx_gen_id)-${NAME}"
-    "$BINDIR/erl" -boot start_clean -eval 'io:format("~s~n", [node()]), halt()' -noshell -name $id | sed -e 's/.*@//g'
+    "$BINDIR/erl" -boot start_clean -eval '[Host] = tl(string:tokens(atom_to_list(node()),"@")), io:format("~s~n", [Host]), halt()' -noshell ${NAME_TYPE} $id
 }
 
 # Connect to a remote node
@@ -189,15 +189,7 @@ case $NAME in
         # Nothing to do
         ;;
     *)
-        # Add @hostname
-        case $NAME_TYPE in
-             -sname)
-                 NAME=$NAME@`hostname -s`
-                 ;;
-             -name)
-                 NAME=$NAME@$(relx_get_longname)
-                 ;;
-        esac
+        NAME=$NAME@$(relx_get_nodename)
         ;;
 esac