From 46dde63ac0d391cc8dc54933fac99275837f171d Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 23 Oct 2015 21:18:02 +0200 Subject: Still broken --- tda.erl | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/tda.erl b/tda.erl index 5d5ec44..06bbc62 100644 --- a/tda.erl +++ b/tda.erl @@ -67,20 +67,22 @@ system_status() -> client() -> Host = "192.168.240.20", - case gen_tcp:connect(Host, 33333, [{packet, 2}]) of - {ok, Sock} -> loop(Sock); + case gen_tcp:connect(Host, 33333, [{active, true}, {packet, 2}]) of + {ok, Sock} -> + {ok, Hello} = associate_request(), + gen_tcp:send(Sock, [Hello]), + spawn(?MODULE, loop, [Sock]); {error, Reason} -> {error, Reason} end. stop(Sock) -> gen_tcp:close(Sock). loop(Sock) -> - Hello = associate_request(), - %{tcp, Sock} ! Hello, - gen_tcp:send(Sock, Hello), + io:format("loop~n"), receive {tcp, S, Whatever} -> io:format(">>> ~p ~p ~n", [S, Whatever]), loop(Sock); {tcp_closed, S} -> S - end. + end, + io:format("loop end~n"). -- cgit v1.2.3