summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--acse.erl4
-rw-r--r--tda.erl1
2 files changed, 1 insertions, 4 deletions
diff --git a/acse.erl b/acse.erl
index 84b923c..99173ba 100644
--- a/acse.erl
+++ b/acse.erl
@@ -24,12 +24,10 @@ release() -> 'ACSE-1':encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}).
decode(Msg) -> 'ACSE-1':decode('ACSE-apdu', Msg).
-accepted({aarq, _}) -> error;
accepted({aare, #'AARE-apdu'{result = Result}}) ->
case Result of
accepted -> ok;
_ -> error
end;
-accepted({rlrq, _}) -> error;
-accepted({rlre, _}) -> error;
+accepted({rlre, _}) -> ok;
accepted({abrt, _}) -> error.
diff --git a/tda.erl b/tda.erl
index e8d863f..1741be4 100644
--- a/tda.erl
+++ b/tda.erl
@@ -37,7 +37,6 @@ client({error, Reason}) ->
loop(Sock) ->
inet:setopts(Sock, [{active, once}]),
- io:format("Loop~n", []),
receive
{ok, Reply} ->
io:format("Send ~p~n", [Reply]),