summaryrefslogtreecommitdiff
path: root/tda.erl
diff options
context:
space:
mode:
Diffstat (limited to 'tda.erl')
-rw-r--r--tda.erl7
1 files changed, 4 insertions, 3 deletions
diff --git a/tda.erl b/tda.erl
index 51606c7..3cc89e8 100644
--- a/tda.erl
+++ b/tda.erl
@@ -111,14 +111,13 @@ loop(Sock) ->
decode(Sock, Msg),
loop(Sock);
{tcp_closed, _} ->
- io:format(">>> closed", [])
+ closed
after ?TIMEOUT ->
io:format("timeout~n"),
stop(Sock)
end.
decode(Sock, Msg) ->
- io:format(">>> ~p~n", [Msg]),
case rose:decode('ROS', Msg) of
{ok, Rose} ->
rose_handler(Sock, Rose),
@@ -126,7 +125,9 @@ decode(Sock, Msg) ->
{error, _} ->
case acse:decode('ACSE-apdu', Msg) of
{ok, Acse} ->
- io:format("ACSE> ~p~n", [Acse])
+ io:format("ACSE> ~p~n", [Acse]);
+ {error, _} ->
+ io:format(">>> ~p~n", [Msg])
end
end.