Remove unused acceptor field from tcp_server state

server/src/proto_sup.erl

@@ -11,9 +11,9 @@ start_link(Port, CertDir) ->
 	supervisor:start_link({local, ?MODULE}, ?MODULE, [Port, CertDir]).
 
 init([Port, CertDir]) ->
-	SupFlags = #{stragegy => one_for_one,
-				 intensity => 1,
-				 period => 5},
+	SupFlags = #{strategy => one_for_one,
+				 intensity => 5,
+				 period => 10},
 	ChildSpecs = [#{id => session_sup,
 					start => {session_sup, start_link, []},
 					restart => permanent,

server/src/tcp_server.erl

@@ -8,7 +8,7 @@
 -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
 		 terminate/2, code_change/3]).
 
--record(state, {socket, acceptor}).
+-record(state, {socket}).
 
 start_link(Port, CertDir) ->
 	gen_server:start_link({local, ?MODULE}, ?MODULE, [Port, CertDir], []).
@@ -30,7 +30,7 @@ handle_cast(_Msg, State) ->
 	{noreply, State}.
 
 handle_info(accept, State = #state{socket = Socket}) ->
-	case ssl:transport_accept(Socket) of
+	case ssl:transport_accept(Socket, 5000) of
 		{ok, TlsSocket} ->
 			self() ! {handshake, TlsSocket},
 			self() ! accept;
@@ -39,7 +39,7 @@ handle_info(accept, State = #state{socket = Socket}) ->
 	end,
 	{noreply, State};
 handle_info({handshake, TlsSocket}, State) ->
-	case ssl:handshake(TlsSocket) of
+	case ssl:handshake(TlsSocket, 5000) of
 		{ok, ClientSocket} ->
 			{ok, Pid} = session_sup:start_session(ClientSocket),
 			ok = ssl:controlling_process(ClientSocket, Pid);