summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tda.erl6
1 files changed, 4 insertions, 2 deletions
diff --git a/tda.erl b/tda.erl
index 2ee6f71..fac4cbc 100644
--- a/tda.erl
+++ b/tda.erl
@@ -6,6 +6,8 @@
-include("rose.hrl").
-define(TIMEOUT, 300000).
+-define(CONNECT_TIMEOUT, 3000).
+-define(HOST, "192.168.240.20").
% A-ASSOCIATE Request
% 60 23 AARQ-apdu
@@ -48,11 +50,11 @@ associate_request() ->
% <<162,11,2,1,1,48,6,2,2,0,211,5,0>>
start_client() ->
- register(cl, spawn(?MODULE, client, ["192.168.240.20"])).
+ register(cl, spawn(?MODULE, client, [?HOST])).
client(Host) ->
case gen_tcp:connect(Host, 33333, [binary, {active, true}, {packet, 2}],
- 3000) of
+ ?CONNECT_TIMEOUT) of
{ok, Sock} ->
{ok, Hello} = associate_request(),
gen_tcp:send(Sock, Hello),