summaryrefslogtreecommitdiff
path: root/tda.erl
blob: 978899d0c6fd7ce227ae53fee2b5d8a6ae780e8e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
-module(tda).
-export([login/0]).
-include("ACSE-1.hrl").
-include("CSTA-application-context-information-csta3.hrl").

login() ->
	Pdu = #'AARQ-apdu'{'application-context-name' = {1, 3, 12, 0, 218},
		'user-information' = #'EXTERNAL'{
			'direct-reference' = {1, 3, 12, 0, 285, 200},
			encoding = #'NewACSEUserInformationForCSTA'{
				cSTAVersion = [versionFive]
			}
		}
	},

	{ok, Bits} = asn1rt:encode('ACSE-1', 'AARQ-apdu', Pdu),

	list_to_binary(Bits).