From f537ea9e9e5f09172f36ff333520e3cce12e87ff Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 4 Nov 2015 13:52:48 +0100 Subject: wip --- src/escape.erl | 25 ++++++++++++++----------- src/rose.erl | 2 +- 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 -- cgit v1.2.3