From fc61c9a83913bbb8ce80a3f0f45198b210ecbec9 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sun, 25 Oct 2015 02:30:52 +0100 Subject: Less magic numbers --- tda.erl | 6 ++++-- 1 file 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), -- cgit v1.2.3