yuanbiao
/
emqx
1
0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

concat

This commit is contained in:
Feng 2015-10-13 21:04:15 +08:00
parent 5daeac083c
commit 6a66ca90b1
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/emqttd_dist.erl
View File

@ -27,6 +27,8 @@
-module(emqttd_dist).
-import(lists, [concat/1]).
-export([parse_node/1]).
parse_node(Name) when is_list(Name) ->
@ -40,10 +42,10 @@ parse_node(Name) when is_list(Name) ->
with_domain(Name) ->
case net_kernel:longnames() of
true ->
Name ++ "@" ++ inet_db:gethostname() ++
"." ++ inet_db:res_option(domain);
concat([Name, "@", inet_db:gethostname(),
".", inet_db:res_option(domain)]);
false ->
Name ++ "@" ++ inet_db:gethostname();
concat([Name, "@", inet_db:gethostname()]);
_ ->
Name
end.