aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ssl/src/inet6_tls_dist.erl
diff options
context:
space:
mode:
authorMagnus Henoch <[email protected]>2015-11-13 18:26:47 +0000
committerMagnus Henoch <[email protected]>2016-02-02 14:03:12 +0000
commitfac6b24525a1e5f3e50ee9cbdb4daae2ea457f51 (patch)
tree149b54aa16fdbc4ebc4efa37d7d697cb7ac4f0bf /lib/ssl/src/inet6_tls_dist.erl
parent7cb403e4aa044fd2cc7702dbe8e2d0eea68e81f3 (diff)
downloadotp-fac6b24525a1e5f3e50ee9cbdb4daae2ea457f51.tar.gz
otp-fac6b24525a1e5f3e50ee9cbdb4daae2ea457f51.tar.bz2
otp-fac6b24525a1e5f3e50ee9cbdb4daae2ea457f51.zip
Add inet6_tls_dist, for TLS distribution over IPv6
Generalise much of inet_tls_dist, so that inet6_tls_dist can reuse it.
Diffstat (limited to 'lib/ssl/src/inet6_tls_dist.erl')
-rw-r--r--lib/ssl/src/inet6_tls_dist.erl46
1 files changed, 46 insertions, 0 deletions
diff --git a/lib/ssl/src/inet6_tls_dist.erl b/lib/ssl/src/inet6_tls_dist.erl
new file mode 100644
index 0000000000..ffd7296f93
--- /dev/null
+++ b/lib/ssl/src/inet6_tls_dist.erl
@@ -0,0 +1,46 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2015. All Rights Reserved.
+%%
+%% 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.
+%%
+%% %CopyrightEnd%
+%%
+
+%%
+-module(inet6_tls_dist).
+
+-export([childspecs/0, listen/1, accept/1, accept_connection/5,
+ setup/5, close/1, select/1]).
+
+childspecs() ->
+ inet_tls_dist:childspecs().
+
+select(Node) ->
+ inet_tls_dist:gen_select(inet6_tcp, Node).
+
+listen(Name) ->
+ inet_tls_dist:gen_listen(inet6_tcp, Name).
+
+accept(Listen) ->
+ inet_tls_dist:gen_accept(inet6_tcp, Listen).
+
+accept_connection(AcceptPid, Socket, MyNode, Allowed, SetupTime) ->
+ inet_tls_dist:gen_accept_connection(inet6_tcp, AcceptPid, Socket, MyNode, Allowed, SetupTime).
+
+setup(Node, Type, MyNode, LongOrShortNames,SetupTime) ->
+ inet_tls_dist:gen_setup(inet6_tcp, Node, Type, MyNode, LongOrShortNames,SetupTime).
+
+close(Socket) ->
+ inet_tls_dist:close(Socket).