From 08860891263382a339129c6d0946a9e3f3902a90 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Mon, 9 Nov 2015 13:01:40 +0100 Subject: Split into simple functions --- src/pbx_acse.erl | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/src/pbx_acse.erl b/src/pbx_acse.erl index d7d1114..25755ad 100644 --- a/src/pbx_acse.erl +++ b/src/pbx_acse.erl @@ -5,18 +5,22 @@ -export([encode/1, decode/1, dispatch/1]). -encode(associate) -> - {ok, UI} = 'CSTA-application-context-information-csta3':encode( +encode(userinformation) -> + 'CSTA-application-context-information-csta3':encode( 'ACSEUserInformationForCSTA', {newDefinition, - #'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]}}), - 'ACSE-1':encode('ACSE-apdu', {aarq, #'AARQ-apdu'{ + #'NewACSEUserInformationForCSTA'{cSTAVersion = [versionFive]}}); +encode(associate) -> + {ok, UI} = encode(userinformation), + AARQ = {aarq, #'AARQ-apdu'{ 'protocol-version' = [version1], % required 'application-context-name' = {1, 3, 12, 0, 218}, 'user-information' = [#'EXTERNAL'{ 'direct-reference' = {1, 3, 12, 0, 285, 200}, - encoding = {'single-ASN1-type', UI}}]}}); + encoding = {'single-ASN1-type', UI}}]}}, + encode(AARQ); encode(release) -> - 'ACSE-1':encode('ACSE-apdu', {rlrq, #'RLRQ-apdu'{}}); + RLRQ = {rlrq, #'RLRQ-apdu'{}}, + encode(RLRQ); encode(Data) -> 'ACSE-1':encode('ACSE-apdu', Data). -- cgit v1.2.3