summaryrefslogtreecommitdiff
path: root/src/escape.erl
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-11-08 17:42:26 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-11-08 17:42:26 +0100
commitd6be188a3d57aa511be8456d9fd3dde2c3c137f6 (patch)
treeca8b2cebfc58acb774b134079605c9fdd7255970 /src/escape.erl
parentc9f4a22ccb3c2e39de80f15dd811ce198e35d4d4 (diff)
Rename files
Diffstat (limited to 'src/escape.erl')
-rw-r--r--src/escape.erl63
1 files changed, 0 insertions, 63 deletions
diff --git a/src/escape.erl b/src/escape.erl
deleted file mode 100644
index 72755c9..0000000
--- a/src/escape.erl
+++ /dev/null
@@ -1,63 +0,0 @@
--module(escape).
-
--export([decode/1, lines/1]).
--export([privateData/1, deviceData/1, deviceBasic/1,
- pbxType/0, pbxType/1]).
-
--include("CSTA-escape-service.hrl").
--include("CSTA-device-identifiers.hrl").
--include("KME-specific-types.hrl").
-
-decode(Data) ->
- 'CSTA-escape-service':decode('EscapeArgument', Data).
-
-lines(Device) ->
- 'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{
- privateData = {private, {kmeSystemData, {getSystemData, {request,
- {deviceList, {category, {standardDevice, Device}}}}}}}}).
-
-privateData({ok, #'EscapeArgument'{privateData = Data}}) ->
- private(Data).
-
-private({private, {kmeSystemData, Data}}) ->
- List = linked(Data),
- %Dev = lists:map(fun device/1, List),
- io:format("kmeSystemData ~p~n", [List]).
-
-linked({systemDataLinkedReply, #'KmeSystemDataLinkedReply'{lastSegment = false, sysData = Data}}) ->
- stateEntry(Data);
-linked({systemDataLinkedReply, #'KmeSystemDataLinkedReply'{lastSegment = true, sysData = Data}}) ->
- stateEntry(Data).
-
-stateEntry(#'KmeGetSystemDataRsp'{deviceList = List}) when List =/= asn1_NOVALUE ->
- lists:filter(fun stateEntryFilter/1, List);
-stateEntry(#'KmeGetSystemDataRsp'{pbxType = Type}) when Type =/= asn1_NOVALUE ->
- pbxType(Type).
-
-stateEntryFilter(#'KmeDeviceStateEntry'{status = ins}) -> true;
-stateEntryFilter(#'KmeDeviceStateEntry'{status = ous}) -> false.
-
-device(#'KmeDeviceStateEntry'{device = #'DeviceID'{deviceIdentifier = Device}}) -> Device.
-
-deviceData(Device) ->
- 'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{
- privateData = {private, {kmeSystemData, {getSystemData, {request,
- {deviceData, #'KmeGetSystemDataReq_deviceData'{
- device = #'DeviceID'{deviceIdentifier = Device},
- sysData = {fcoKey, []}}}}}}}}).
-
-deviceBasic(Device) ->
- 'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{
- privateData = {private, {kmeSystemData, {systemDataChanged,
- {deviceBasicInfo, #'DeviceID'{deviceIdentifier = Device}}}}}}).
-
-pbxType() ->
- 'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{
- privateData = {private, {kmeSystemData, {getSystemData, {request,
- {systemData, pbxType}}}}}}).
-
-pbxType(Type) ->
- proplists:get_value(Type, [{0, tda100}, {1, tda200}, {2, tda30},
- {3, tda50}, {5, tda15}, {6, tda600},
- {7, tde100}, {8, tde200}, {9, tde600},
- {10, ncp500}, {11, ncp1000}, {12, ncp3000}]).