43 lines
1.3 KiB
Erlang
43 lines
1.3 KiB
Erlang
%%--------------------------------------------------------------------
|
|
%% Copyright (c) 2012-2016 Feng Lee <feng@emqtt.io>.
|
|
%%
|
|
%% Licensed under the Apache License, Version 2.0 (the "License");
|
|
%% you may not use this file except in compliance with the License.
|
|
%% You may obtain a copy of the License at
|
|
%%
|
|
%% http://www.apache.org/licenses/LICENSE-2.0
|
|
%%
|
|
%% Unless required by applicable law or agreed to in writing, software
|
|
%% distributed under the License is distributed on an "AS IS" BASIS,
|
|
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
%% See the License for the specific language governing permissions and
|
|
%% limitations under the License.
|
|
%%--------------------------------------------------------------------
|
|
|
|
-module(emqttd_node).
|
|
|
|
-import(lists, [concat/1]).
|
|
|
|
-export([is_aliving/1, parse_name/1]).
|
|
|
|
%% @doc Is node aliving
|
|
-spec(is_aliving(node()) -> boolean()).
|
|
is_aliving(Node) ->
|
|
case net_adm:ping(Node) of
|
|
pong -> true;
|
|
pang -> false
|
|
end.
|
|
|
|
%% @doc Parse node name
|
|
-spec(parse_name(string()) -> atom()).
|
|
parse_name(Name) when is_list(Name) ->
|
|
case string:tokens(Name, "@") of
|
|
[_Node, _Host] -> list_to_atom(Name);
|
|
_ -> with_host(Name)
|
|
end.
|
|
|
|
with_host(Name) ->
|
|
[_, Host] = string:tokens(atom_to_list(node()), "@"),
|
|
list_to_atom(concat([Name, "@", Host])).
|
|
|