From 57bfc5207fb273b5c501d2803263497ec322e14b Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 24 Oct 2015 01:11:29 +0200 Subject: Remove debug --- tda.erl | 11 +++++------ 1 file 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). -- cgit v1.2.3