allow/1

     Limits access to the specified set of nodes. Any access attempts made from (or to) nodes not in Nodes will be rejected.

    Returns error if any element in Nodes is not an atom.

    我们假设集群有节点x,y,z, foo：

     1. 有个节点叫foo, 它只允许来自x,y节点的请求，其他的节点访问被拒;

     2. z只能访问x,其他拒

    我们来试验下：

$ erl -name foo@127.0.0.1
Erlang R14B04 (erts-5.8.5) 1 [smp:2:2] [rq:2] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.8.5  (abort with ^G)
(foo@127.0.0.1)1> net_kernel:allow([\'x@127.0.0.1\', \'y@127.0.0.1\']).
ok
(foo@127.0.0.1)2>

    在其他终端运行：

$ erl -name x@127.0.0.1
Erlang R14B04 (erts-5.8.5) 1 [smp:2:2] [rq:2] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.8.5  (abort with ^G)
(x@127.0.0.1)1> net_adm:ping(\'foo@127.0.0.1\').
pong
(x@127.0.0.1)2> 

$ erl -name y@127.0.0.1
Erlang R14B04 (erts-5.8.5) 1 [smp:2:2] [rq:2] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.8.5  (abort with ^G)
(y@127.0.0.1)1> net_adm:ping(\'foo@127.0.0.1\').
pong
(y@127.0.0.1)2> 

$ erl -name z@127.0.0.1
Erlang R14B04 (erts-5.8.5) 1 [smp:2:2] [rq:2] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.8.5  (abort with ^G)
(z@127.0.0.1)1> net_adm:ping(\'foo@127.0.0.1\').
pang
(z@127.0.0.1)2> net_adm:ping(\'y@127.0.0.1\').
pong
(z@127.0.0.1)3> net_kernel:disconnect(\'y@127.0.0.1\').
true
(z@127.0.0.1)4> net_kernel:allow([\'x@127.0.0.1\']).
ok
(z@127.0.0.1)5> net_adm:ping(\'y@127.0.0.1\').         

=ERROR REPORT==== 24-Oct-2011::01:23:34 ===
** Connection attempt with disallowed node \'y@127.0.0.1\' **
pang

    同时我们会在foo的终端上看到：

=ERROR REPORT==== 24-Oct-2011::01:08:20 ===
** Connection attempt from disallowed node \'z@127.0.0.1\' **
(foo@127.0.0.1)2>

    看代码：

...
%% dist_util.erl
%%
%% check if connecting node is allowed to connect
%% with allow-node-scheme
%%
is_allowed(#hs_data{other_node = Node,
                    allowed = Allowed} = HSData) ->
    case lists:member(Node, Allowed) of
        false when Allowed =/= [] ->
            send_status(HSData, not_allowed),
            error_msg("** Connection attempt from "
                      "disallowed node ~w ** ~n", [Node]),
            ?shutdown(Node);
        _ -> true
    end.
...

    可以知道如果Allowed空的话，代表不做任何限制，否则net_kernel:allow限制主动和被动连接的节点。

建议继续学习：

1. Erlang match_spec引擎介绍和应用    (阅读：4526)
2. whatsapp深度使用Erlang有感    (阅读：4568)
3. php-erlang    (阅读：4305)
4. gen_tcp调用进程收到{empty_out_q, Port}消息奇怪行为分析    (阅读：3539)
5. 分析MySQL的授权许可    (阅读：3291)
6. hibernate使用注意事项    (阅读：3217)
7. Erlang linkin driver用port_control方式时的一些经验分享    (阅读：2964)
8. ERLANG OTP源码分析 – gen_server    (阅读：2853)
9. erlang学习手记    (阅读：2696)
10. gen_tcp容易误用的一点解释    (阅读：2633)