summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-11-03 20:06:43 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-11-03 20:06:43 +0100
commit6217411a6bbebfe9b012f629022f3770e1dc8279 (patch)
tree004b4eae8c05cfa938c2028a2c8e0639512d566f
parent412f61cf1780d531ee231131475d72b733e4de4d (diff)
Fco
-rw-r--r--src/escape.erl10
-rw-r--r--src/tapi.erl7
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}))).