summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-10-24 01:11:29 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-10-24 01:11:29 +0200
commit57bfc5207fb273b5c501d2803263497ec322e14b (patch)
tree981e7168e307b15a9732a21d773d70a9dc29e403
parent6c8fc1b7c2b5d01542893bfb37c892d365f30722 (diff)
Remove debug
-rw-r--r--tda.erl11
1 files changed, 5 insertions, 6 deletions
diff --git a/tda.erl b/tda.erl
index 5e4e46d..b88dd32 100644
--- a/tda.erl
+++ b/tda.erl
@@ -23,16 +23,15 @@
% 03 03 00 08 00 cSTAVersion { versionFive }
associate_request() ->
- Ver = #'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]},
- {ok, Enc} = acse:encode('ACSEUserInformationForCSTA', {newDefinition, Ver}),
+ {ok, UI} = acse:encode('ACSEUserInformationForCSTA', {newDefinition,
+ #'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]}}),
Pdu = #'AARQ-apdu'{
'protocol-version' = [version1],
'application-context-name' = {1, 3, 12, 0, 218},
'user-information' = [#'EXTERNAL'{
'direct-reference' = {1, 3, 12, 0, 285, 200},
- encoding = {'single-ASN1-type', Enc}}]},
- io:format("~p~n", [Pdu]),
- acse:encode('AARQ-apdu', Pdu).
+ encoding = {'single-ASN1-type', UI}}]},
+ acse:encode('ACSE-apdu', {aarq, Pdu}).
% Request
% 60,23,80,02,07,80,a1,07,06,05,2b,0c,00,81,5a,be,14,28,12,06,07,2b,0c,00,82,1d,81,48,a0,07,a0,05,03,03,00,08,00
@@ -49,7 +48,7 @@ associate_result(Bin) ->
end.
release_request() ->
- acse:encode('RLRQ-apdu', #'RLRQ-apdu'{}).
+ acse:encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}).
release_result(Bin) ->
acse:decode('RLRE-apdu', Bin).