From 6217411a6bbebfe9b012f629022f3770e1dc8279 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Tue, 3 Nov 2015 20:06:43 +0100 Subject: Fco --- src/escape.erl | 10 +++++++++- src/tapi.erl | 7 ++++++- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/src/escape.erl b/src/escape.erl index f1104a8..11f2a6c 100644 --- a/src/escape.erl +++ b/src/escape.erl @@ -1,9 +1,10 @@ -module(escape). -export([decode/1, lines/1]). --export([privateData/1]). +-export([privateData/1, deviceData/1]). -include("CSTA-escape-service.hrl"). +-include("CSTA-device-identifiers.hrl"). -include("KME-specific-types.hrl"). decode(Data) -> @@ -27,3 +28,10 @@ private({systemDataLinkedReply, #'KmeSystemDataLinkedReply'{lastSegment = false, Data; private({systemDataLinkedReply, #'KmeSystemDataLinkedReply'{lastSegment = true, sysData = Data}}) -> Data. + +deviceData(Device) -> + 'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{ + privateData = {private, {kmeSystemData, {getSystemData, + {request, {deviceData, #'KmeGetSystemDataReq_deviceData'{ + device = #'DeviceID'{deviceIdentifier = Device}, + sysData = {fcoKey, 'NULL'} }}}}}}}). diff --git a/src/tapi.erl b/src/tapi.erl index 1d5cc4f..570368f 100644 --- a/src/tapi.erl +++ b/src/tapi.erl @@ -6,7 +6,8 @@ -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). --export([send/1, ext/0, co/0, snapshot/1, monitor/1, button/1, dial/2]). +-export([send/1, ext/0, co/0, snapshot/1, monitor/1, button/1, + dial/2, fco/1]). -include("config.hrl"). -include("opcodes.hrl"). @@ -74,3 +75,7 @@ monitor(Device) -> dial(From, To) -> gen_server:cast(?SERVER, rose:invoke(?MAKECALL, dial:encode({dialingNumber, From}, {dialingNumber, To}))). + +fco(Device) -> + gen_server:cast(?SERVER, rose:invoke(?ESCAPE, + escape:deviceData({dialingNumber, Device}))). -- cgit v1.2.3