Change in ...osmo_ss7[master]: ipa_proto: Hook ipa_proto_ccm into the handling of CCM messages

[laforge]

laforge has uploaded this change for review. ( https://gerrit.osmocom.org/c/erlang/osmo_ss7/+/19808 )


Change subject: ipa_proto: Hook ipa_proto_ccm into the handling of CCM messages
......................................................................

ipa_proto: Hook ipa_proto_ccm into the handling of CCM messages

Change-Id: I03c2b12ffbedd38ca0c308a120f2435c2b773b65
---
M src/ipa_proto.erl
1 file changed, 9 insertions(+), 4 deletions(-)



  git pull ssh://gerrit.osmocom.org:29418/erlang/osmo_ss7 refs/changes/08/19808/1

diff --git a/src/ipa_proto.erl b/src/ipa_proto.erl
index 9a3f3d0..7d8b964 100644
--- a/src/ipa_proto.erl
+++ b/src/ipa_proto.erl
@@ -261,17 +261,22 @@
 	end.
 
 % Respond with PONG to PING
-process_ccm_msg(Socket, StreamID, ?IPAC_MSGT_PING, _) ->
+process_ccm_msg(Socket, StreamID, ping, _) ->
 	io:format("Socket ~p Stream ~p: PING -> PONG~n", [Socket, StreamID]),
 	send(Socket, StreamID, <<?IPAC_MSGT_PONG>>);
 % Simply respond to ID_ACK with ID_ACK
-process_ccm_msg(Socket, StreamID, ?IPAC_MSGT_ID_ACK, _) ->
+process_ccm_msg(Socket, StreamID, id_ack, _) ->
 	io:format("Socket ~p Stream ~p: ID_ACK -> ID_ACK~n", [Socket, StreamID]),
 	send(Socket, StreamID, <<?IPAC_MSGT_ID_ACK>>);
 % Simply respond to ID_RESP with ID_ACK
-process_ccm_msg(Socket, StreamID, ?IPAC_MSGT_ID_RESP, _) ->
+process_ccm_msg(Socket, StreamID, id_resp, _) ->
 	io:format("Socket ~p Stream ~p: ID_RESP -> ID_ACK~n", [Socket, StreamID]),
 	send(Socket, StreamID, <<?IPAC_MSGT_ID_ACK>>);
+% Simply respond to ID_GET with ID_RESP
+process_ccm_msg(Socket, StreamID, id_req, _) ->
+	io:format("Socket ~p Stream ~p: ID_GET -> ID_RESP~n", [Socket, StreamID]),
+	CcmBin = ipa_proto_ccm:encode({id_resp, [{string,serial_nr,"MME-00-00-00-00-00-00"}]}),
+	send(Socket, StreamID, CcmBin);
 % Default message handler for unknown messages
 process_ccm_msg(Socket, StreamID, MsgType, Opts) ->
 	io:format("Socket ~p Stream ~p: Unknown CCM message type ~p Opts ~p~n",
@@ -279,7 +284,7 @@
 
 % process an incoming CCM message (Stream ID 254)
 process_rx_ccm_msg(Socket, StreamID, PayloadBin) ->
-	[MsgType|Opts] = binary:bin_to_list(PayloadBin),
+	{MsgType, Opts} = ipa_proto_ccm:decode(PayloadBin),
 	process_ccm_msg(Socket, StreamID, MsgType, Opts).
 
 send_ccm_id_get(Socket) ->

-- 
To view, visit https://gerrit.osmocom.org/c/erlang/osmo_ss7/+/19808
To unsubscribe, or for help writing mail filters, visit https://gerrit.osmocom.org/settings

Gerrit-Project: erlang/osmo_ss7
Gerrit-Branch: master
Gerrit-Change-Id: I03c2b12ffbedd38ca0c308a120f2435c2b773b65
Gerrit-Change-Number: 19808
Gerrit-PatchSet: 1
Gerrit-Owner: laforge <laforge at osmocom.org>
Gerrit-MessageType: newchange
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.osmocom.org/pipermail/gerrit-log/attachments/20200825/acec54a7/attachment.htm>