summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-23 21:18:02 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-10-23 21:18:02 +0200
commit46dde63ac0d391cc8dc54933fac99275837f171d (patch)
tree022ed29c04691f97c080244e37cbf6f36fa0ab1a
parentb29ccc68d63f204e93365626f9207ed14db2187f (diff)
Still broken
-rw-r--r--tda.erl14
1 files 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").