aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/src
diff options
context:
space:
mode:
authorRaimo Niskanen <[email protected]>2018-06-08 15:49:06 +0200
committerRaimo Niskanen <[email protected]>2018-06-08 16:24:40 +0200
commit794df8cbba8d7942dcb3bf2cbdfa526b04d41dd3 (patch)
tree3289c1016bb354e22f6d0f1ce94b7401197ec33f /lib/kernel/src
parent9ae2044073e6433030ce30756658b103ce67c3c1 (diff)
downloadotp-794df8cbba8d7942dcb3bf2cbdfa526b04d41dd3.tar.gz
otp-794df8cbba8d7942dcb3bf2cbdfa526b04d41dd3.tar.bz2
otp-794df8cbba8d7942dcb3bf2cbdfa526b04d41dd3.zip
Use public_key to verify client hostname
Diffstat (limited to 'lib/kernel/src')
-rw-r--r--lib/kernel/src/net_kernel.erl7
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/kernel/src/net_kernel.erl b/lib/kernel/src/net_kernel.erl
index 669adefdf8..c4e1a0ce1e 100644
--- a/lib/kernel/src/net_kernel.erl
+++ b/lib/kernel/src/net_kernel.erl
@@ -53,7 +53,7 @@
%% Documented API functions.
--export([allow/1,
+-export([allow/1, allowed/0,
connect_node/1,
monitor_nodes/1,
monitor_nodes/2,
@@ -171,6 +171,8 @@ kernel_apply(M,F,A) -> request({apply,M,F,A}).
Nodes :: [node()].
allow(Nodes) -> request({allow, Nodes}).
+allowed() -> request(allowed).
+
longnames() -> request(longnames).
-spec stop() -> ok | {error, Reason} when
@@ -528,6 +530,9 @@ handle_call({allow, Nodes}, From, State) ->
async_reply({reply,error,State}, From)
end;
+handle_call(allowed, From, #state{allowed = Allowed} = State) ->
+ async_reply({reply,{ok,Allowed},State}, From);
+
%%
%% authentication, used by auth. Simply works as this:
%% if the message comes through, the other node IS authorized.