summaryrefslogtreecommitdiff
path: root/tda.erl
blob: 073da6e40b858eb9b36ba975621180effc278cbf (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} = 'ACSE-1':encode('AARQ-apdu', Pdu),

	list_to_binary(Bits).