From 815ad55d3a263f91f3a75741eef128e25ddf3230 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 24 Oct 2015 15:27:19 +0200 Subject: Minor cleanup --- tda.erl | 7 ++++--- 1 file 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. -- cgit v1.2.3