summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-25 02:30:52 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-10-25 02:30:52 +0100
commitfc61c9a83913bbb8ce80a3f0f45198b210ecbec9 (patch)
tree497ea881151f00a7b24842ace76d2d9e4bc23b0e
parentc9aac83278bf762c2b798d7e3a870db9e3ff2ea6 (diff)
Less magic numbers
-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),