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

mangle_tt_sri_sm: don't throw excaption if mangle_tt_sri_sm_pfx environment is not set

This commit is contained in:
Harald Welte 2012-05-30 13:09:58 +02:00
parent 51c4b5c279
commit 54274d40c4
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/mangle_tt_sri_sm.erl
View File

@ -166,21 +166,25 @@ check_for_tcap_op(Comp, Op, MapDec) ->
mangle_tt_sri_sm(from_msc, _Path, ?SCCP_MSGT_UDT, SccpDec = #sccp_msg{parameters=Opts}) ->
CalledParty = proplists:get_value(called_party_addr, Opts),
CalledGT = CalledParty#sccp_addr.global_title,
{ok, PrefixList} = application:get_env(mgw_nat, mangle_tt_sri_sm_pfx),
case gt_match_pfx_list(CalledGT, PrefixList) of
true ->
case application:get_env(mgw_nat, mangle_tt_sri_sm_pfx) of
{ok, PrefixList} ->
case gt_match_pfx_list(CalledGT, PrefixList) of
true ->
case check_for_invoke_sri_sm(SccpDec) of
true ->
CalledGTNew = CalledGT#global_title{trans_type = 3},
CalledPartyNew = CalledParty#sccp_addr{global_title = CalledGTNew},
ParamsOut = lists:keyreplace(called_party_addr, 1, Opts,
{called_party_addr, CalledPartyNew}),
SccpDec#sccp_msg{parameters=ParamsOut};
_ ->
SccpDec
true ->
CalledGTNew = CalledGT#global_title{trans_type = 3},
CalledPartyNew = CalledParty#sccp_addr{global_title = CalledGTNew},
ParamsOut = lists:keyreplace(called_party_addr, 1, Opts,
{called_party_addr, CalledPartyNew}),
SccpDec#sccp_msg{parameters=ParamsOut};
_ ->
SccpDec
end;
_ ->
_ ->
SccpDec
end;
_ ->
SccpDec
end;
mangle_tt_sri_sm(_, _, _, SccpIn) ->
SccpIn.