erlang
/
osmo_sccp
mirror of https://gerrit.osmocom.org/erlang/osmo_sccp
6
0
Fork 0
Code Issues Projects Releases Wiki Activity

osmo_sccp_tcap fixes 

* Ignore + Print N-NOTICE.ind from SCCP
* protocol_class is not always present from SCCP
* use {debug, trace} when starting the gen_server
This commit is contained in:
Harald Welte 2013-06-10 13:39:51 +02:00
parent afcc0cf52f
commit f6259f4ff4
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/osmo_sccp_tcap.erl
View File

@ -23,7 +23,7 @@
start_link(SSN) ->
Ourname = list_to_atom("sccp_ssn" ++ integer_to_list(SSN)),
gen_server:start_link({local, Ourname}, ?MODULE, [SSN],[]).
gen_server:start_link({local, Ourname}, ?MODULE, [SSN],[{debug,trace}]).
init([SSN]) when is_integer(SSN) ->
init(SSN);
@ -47,7 +47,8 @@ osmo_prim2signerl(#primitive{subsystem='N', gen_name='UNITDATA',
CalledAddr = proplists:get_value(called_party_addr, Params),
CallingAddr = proplists:get_value(calling_party_addr, Params),
UserData = proplists:get_value(user_data, Params),
{PC, Opt} = proplists:get_value(protocol_class, Params),
% FIXME: doesn't always exist!
%{PC, Opt} = proplists:get_value(protocol_class, Params),
Rec = #'N-UNITDATA'{calledAddress = CalledAddr,
callingAddress = CallingAddr,
sequenceControl = undefined,
@ -63,6 +64,15 @@ handle_info({sccp, P= #primitive{subsystem='N',
% this is really ugly, we need to make TCO understand #primitives
gen_server:cast(self(), osmo_prim2signerl(P)),
{noreply, State};
handle_info({sccp, P= #primitive{subsystem='N',
gen_name='NOTICE',
spec_name=indication}}, State) ->
% this is really ugly, we need to make TCO understand #primitives
%gen_server:cast(self(), osmo_prim2signerl(P)),
error_logger:error_report(["unimplemented N-NOTICE.ind",
{module, ?MODULE},
{sccp, P}, {state, State}]),
{noreply, State};
handle_info(Info, State) ->
error_logger:error_report(["unknown handle_info",
{module, ?MODULE},