summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-11-04 13:52:48 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-11-04 13:52:48 +0100
commitf537ea9e9e5f09172f36ff333520e3cce12e87ff (patch)
tree7e7e09d7a708b4a487e5add31cb084754ebbfc70
parent46584464f600ebfcaf5e4e68095cbe0a7feb5f00 (diff)
wip
-rw-r--r--src/escape.erl25
-rw-r--r--src/rose.erl2
2 files changed, 15 insertions, 12 deletions
diff --git a/src/escape.erl b/src/escape.erl
index 63acdb1..30db37c 100644
--- a/src/escape.erl
+++ b/src/escape.erl
@@ -17,17 +17,20 @@ lines(Device) ->
{deviceList, {category, {standardDevice, Device}}}}}}}}).
privateData({ok, #'EscapeArgument'{privateData = Data}}) ->
- Private = private(Data),
- io:format("Private Data ~p~n", [Private]).
-
-private({private, Private}) ->
- private(Private);
-private({kmeSystemData, Data}) ->
- private(Data);
-private({systemDataLinkedReply, #'KmeSystemDataLinkedReply'{lastSegment = false, sysData = Data}}) ->
- Data;
-private({systemDataLinkedReply, #'KmeSystemDataLinkedReply'{lastSegment = true, sysData = Data}}) ->
- Data.
+ private(Data).
+
+private({private, {kmeSystemData, Data}}) ->
+ io:format("kmeSystemData ~p~n", [linked(Data)]).
+
+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 ->
+ List;
+stateEntry(#'KmeGetSystemDataRsp'{pbxType = Type}) when Type =/= asn1_NOVALUE ->
+ pbxType(Type).
deviceData(Device) ->
'CSTA-escape-service':encode('EscapeArgument', #'EscapeArgument'{
diff --git a/src/rose.erl b/src/rose.erl
index 9df46a7..68f2ad6 100644
--- a/src/rose.erl
+++ b/src/rose.erl
@@ -36,7 +36,7 @@ dispatch({invoke, #'Invoke'{invokeId = Id, opcode = Op, argument = Data}}) ->
?SNAPSHOT ->
ok;
?STATUS ->
- io:format("Status: ~p~n", [status:value(Data)]),
+ %io:format("Status: ~p~n", [status:value(Data)]),
tapi:send(return(Id, Op, status:encode()));
_ ->
error