summaryrefslogtreecommitdiff
path: root/tda.erl
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-27 20:51:51 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-10-27 20:51:51 +0100
commitd4b3c570e2f10208912e16209a7759d860af178c (patch)
treec80fdd7d53978ceaa6ade8e17c9154e279ca2767 /tda.erl
parenta41822aa0165da09108674c9de894fff5d69b121 (diff)
Status module
Diffstat (limited to 'tda.erl')
-rw-r--r--tda.erl21
1 files changed, 14 insertions, 7 deletions
diff --git a/tda.erl b/tda.erl
index 293fb32..7578bb8 100644
--- a/tda.erl
+++ b/tda.erl
@@ -8,10 +8,10 @@
-define(HOST, "192.168.240.20").
-define(PORT, 33333).
-start() -> register(tda_client, spawn(?MODULE, client, [{dial, ?HOST, ?PORT}])).
+start() -> register(tdaPid, spawn(?MODULE, client, [{dial, ?HOST, ?PORT}])).
-stop() -> tda_client ! {logout}.
-ext() -> tda_client ! {ext}.
+stop() -> tdaPid ! {logout}.
+ext() -> tdaPid ! {ext}.
client({dial, Host, Port}) ->
io:format("Dial ~p:~p~n", [Host, Port]),
@@ -21,7 +21,7 @@ client({dial, Host, Port}) ->
client(Conn);
client({ok, Sock}) ->
io:format("Connected~n", []),
- tda_client ! {login},
+ tdaPid ! {login},
loop(Sock);
client({error, Reason}) ->
io:format("Error: ~p~n", [Reason]),
@@ -44,7 +44,8 @@ loop(Sock) ->
{ext} ->
io:format("Request Ext lines~n", []),
{ok, Ext} = csta:ext_lines(),
- {ok, Rq} = rose:encode({present, 10}, {local, 51}, Ext),
+ {ok, Rq} = rose:invoke({present, 2}, {local, 51}, Ext),
+ io:format("Send: ~p~n", [Rq]),
gen_tcp:send(Sock, Rq),
loop(Sock);
{tcp, Sock, Msg} ->
@@ -67,8 +68,14 @@ decode(Sock, Msg) ->
rose ->
{ok, Rose} = rose:decode(Msg),
io:format("ROSE> ~p~n", [Rose]),
- {ok, Result} = rose:dispatch(Rose),
- gen_tcp:send(Sock, Result);
+ case rose:dispatch(Rose) of
+ {ok, Result} ->
+ gen_tcp:send(Sock, Result);
+ {result, Msg} ->
+ io:format("Result: ~p~n", [Msg]),
+ ok;
+ {ok} -> ok
+ end;
acse ->
{ok, Acse} = acse:decode(Msg),
io:format("ACSE> ~p~n", [Acse]),