-module(acse). -include("ACSE-1.hrl"). -include("CSTA-application-context-information-csta3.hrl"). -export([associate_request/0, release_request/0]). -export([decode/1, accepted/1]). user_information() -> {ok, UI} = 'CSTA-application-context-information-csta3':encode( 'ACSEUserInformationForCSTA', {newDefinition, #'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]}}), {'single-ASN1-type', UI}. associate_request() -> 'ACSE-1':encode('ACSE-apdu', {aarq, #'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 = user_information()}]}}). release_request() -> '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({abrt, _}) -> error.