Compare commits
3 Commits
6b53dd1526
...
b5c8bf757d
| Author | SHA1 | Date | |
|---|---|---|---|
| b5c8bf757d | |||
| b394f7eb7f | |||
| 15828b697d |
@@ -12,7 +12,7 @@ start_link(Socket) ->
|
||||
gen_server:start_link(?MODULE, Socket, []).
|
||||
|
||||
init(Socket) ->
|
||||
ok = ssl:setopts(Socket, [{active, true}]),
|
||||
ssl:setopts(Socket, [{active, true}]),
|
||||
{ok, #{socket => Socket}}.
|
||||
|
||||
handle_call(_Request, _From, State) ->
|
||||
@@ -26,7 +26,7 @@ handle_info({ssl, Socket, Data}, State) ->
|
||||
{ok, {foo, _}} ->
|
||||
{ok, Encoded}
|
||||
= 'StudySystemProtocol':encode('Response', {msg, "Foo"}),
|
||||
ok = ssl:send(Socket, Encoded);
|
||||
ssl:send(Socket, Encoded);
|
||||
Result ->
|
||||
io:format("Invalid message: ~p~n", [Result]),
|
||||
ok
|
||||
|
||||
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user