From d4b3c570e2f10208912e16209a7759d860af178c Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Tue, 27 Oct 2015 20:51:51 +0100 Subject: Status module --- tda.erl | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) (limited to 'tda.erl') 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]), -- cgit v1.2.3