From c9aac83278bf762c2b798d7e3a870db9e3ff2ea6 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sun, 25 Oct 2015 02:26:16 +0100 Subject: Cleanup --- tda.erl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'tda.erl') 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 -- cgit v1.2.3