erlang集群IP及端口管理

erlang集群是依靠epmd维护的，epmd是erlang集群节点间端口映射的守护进程，负责维护集群内的节点连接，提供节点名称到IP地址及端口的解析服务。

epmd 自定义端口号

epmd端口配置

默认情况下，epmd绑定在4369端口。但是，端口固定的话，容易遭受攻击，可能导致新节点的认证失败而无法启动，或无法加入集群。或者要在一台机器上部署不同的erlang集群，希望不会互相干扰。

epmd -daemon -port 5000

如果想用调试模式启动 epmd，使用 epmd -d -port 5000

另外，epmd通常伴随着erlang节点启动时自动启动，无须手动处理，所以，这里也可以通过修改erl启动参数以达到自动调整epmd端口。

erl -name [email protected] -epmd "epmd -port 5000 -daemon"

节点启动配置

当epmd端口改变时，erlang节点需要显式指定epmd端口信息。

windwos下启动方式：

1、设置环境变量ERL_EPMD_PORT

C:\>set ERL_EPMD_PORT=5000 C:\>erl -name [email protected]

注意了， 以上命令端口号（这里是5000）前后不能留有空格。

2、设置erlang启动参数

erl -name [email protected] -epmd_port 5000

linux下启动方式：

1、设置环境变量ERL_EPMD_PORT

ERL_EPMD_PORT=5000 erl -name [email protected]

2、设置erlang启动参数

erl -name [email protected] -epmd_port 5000

这两种方式是等价的，erlang启动时会做以下处理：

// erlexec.c
static void add_epmd_port(void)
{
    char* port = get_env("ERL_EPMD_PORT");
    if (port != NULL) {
	add_args("-epmd_port", port, NULL);	
    }
}

其中，epmd_port在erl_epmd模块被用到，完成epmd连接。

%% erl_epmd.erl
get_epmd_port() ->
    case init:get_argument(epmd_port) of
	{ok, [[PortStr|_]|_]} when is_list(PortStr) ->
	    list_to_integer(PortStr);
	error ->
	    ?erlang_daemon_port
    end.
	    
%%
%% Epmd socket
%%
open() -> open({127,0,0,1}).  % The localhost IP address.

open({A,B,C,D}=EpmdAddr) when ?ip(A,B,C,D) ->
    gen_tcp:connect(EpmdAddr, get_epmd_port(), [inet]);
	
%% 注册节点名称和端口
do_register_node(NodeName, TcpPort) ->
    case open() of
	{ok, Socket} ->
	    Name = to_string(NodeName),
	    Extra = "",
	    Elen = length(Extra),
	    Len = 1+2+1+1+2+2+2+length(Name)+2+Elen,
	    gen_tcp:send(Socket, [?int16(Len), ?EPMD_ALIVE2_REQ,
				   ?int16(TcpPort),
				   $M,
				   0,
				   ?int16(epmd_dist_high()),
				   ?int16(epmd_dist_low()),
				   ?int16(length(Name)),
				   Name,
				   ?int16(Elen),
				   Extra]),
	    wait_for_reg_reply(Socket, []);
	Error ->
	    Error
    end.

epmd相关问题

限制指定IP的节点加入集群

epmd -port 5000 -address 127.0.0.1 -daemon

这样，如果节点名字不是 [email protected]，将无法启动，或加入集群。

如何杀掉epmd进程

epmd独立于erlang节点，在所有节点关闭后还会继续存在，有时候可能需要杀掉epmd进程。

epmd  -kill

设定节点连接监听端口

节点启动时，会启动一个tcp socket，用于监听并处理其他节点的连接请求，但是，这个端口号是随机的，有时候我们需要定义防火墙规则，就要对端口范围做一些限定。

通过修改erlang启动参数即可设定，方法如下：

erl -name [email protected] -kernel inet_dist_listen_min 9100 -kernel inet_dist_listen_max 9200

看下这两个参数是怎么被使用的？

%% inet_tcp_dist.erl 

listen(Name) ->
	%% 启动本地节点监听socket
    case do_listen([{active, false}, {packet,2}, {reuseaddr, true}]) of
	{ok, Socket} ->
	    TcpAddress = get_tcp_address(Socket),
	    {_,Port} = TcpAddress#net_address.address,
	    %% 注册节点名称和端口
	    case erl_epmd:register_node(Name, Port) of
		{ok, Creation} ->
		    {ok, {Socket, TcpAddress, Creation}};
		Error ->
		    Error
	    end;
	Error ->
	    Error
    end.

do_listen(Options0) ->
    %% 获取端口范围
    {First,Last} = case application:get_env(kernel,inet_dist_listen_min) of
		       {ok,N} when is_integer(N) ->
			   case application:get_env(kernel,
						    inet_dist_listen_max) of
			       {ok,M} when is_integer(M) ->
				   {N,M};
			       _ ->
				   {N,N}
			   end;
		       _ ->
			   {0,0}
		   end,
    %% 获取绑定IP地址
    Options = case application:get_env(kernel, inet_dist_use_interface) of
		   {ok, Ip} ->
		       [{ip, Ip} | Options0];
		   _ ->
		       Options0
	       end,
    do_listen(First, Last, [{backlog,128}|Options]).

do_listen(First,Last,_) when First > Last ->
    {error,eaddrinuse};
do_listen(First,Last,Options) ->
    %% 尝试监听socket
    case inet_tcp:listen(First, Options) of
	{error, eaddrinuse} ->
	    do_listen(First+1,Last,Options);
	Other ->
	    Other
    end.

2015/9/29 标题“erlang epmd 自定义端口号”改成“erlang集群IP及端口管理”

2015/6/25 补充节点连接监听端口设定方法

参考：http://blog.csdn.net/mycwq/article/details/46630743