summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-11-09 13:01:40 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-11-09 13:01:40 +0100
commit08860891263382a339129c6d0946a9e3f3902a90 (patch)
tree4ee681711578cdfdfe1234a4f0e735d10f735f9f
parent55bedf3292656dccfea59bde7cc9af9ba2a616cc (diff)
Split into simple functions
-rw-r--r--src/pbx_acse.erl16
1 files 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).