summaryrefslogtreecommitdiff
path: root/tda.erl
diff options
context:
space:
mode:
Diffstat (limited to 'tda.erl')
-rw-r--r--tda.erl11
1 files changed, 5 insertions, 6 deletions
diff --git a/tda.erl b/tda.erl
index bd93a20..2ee6f71 100644
--- a/tda.erl
+++ b/tda.erl
@@ -1,6 +1,6 @@
-module(tda).
--export([client/0, start_client/0]).
+-export([start_client/0, client/1]).
-include("acse.hrl").
-include("rose.hrl").
@@ -48,10 +48,9 @@ associate_request() ->
% <<162,11,2,1,1,48,6,2,2,0,211,5,0>>
start_client() ->
- register(cl, spawn(?MODULE, client, [])).
+ register(cl, spawn(?MODULE, client, ["192.168.240.20"])).
-client() ->
- Host = "192.168.240.20",
+client(Host) ->
case gen_tcp:connect(Host, 33333, [binary, {active, true}, {packet, 2}],
3000) of
{ok, Sock} ->
@@ -62,13 +61,13 @@ client() ->
end.
loop(Sock) ->
- %inet:setopts(Sock, [{active, once}]),
io:format("loop~n", []),
receive
{tcp, Sock, Msg} ->
case decode(Sock, Msg) of
ok -> loop(Sock);
- error -> gen_tcp:close(Sock)
+ error -> gen_tcp:close(Sock),
+ error
end;
{tcp_closed, _} ->
closed