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

Use lists:keysearch() instead of lists:keyfind() for R12A compat 

Also, print a message if we actually rewrite any phase
This commit is contained in:
Harald Welte 2011-03-31 09:40:44 +02:00
parent e95bfe9a97
commit eea20e1e82
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mgw_nat_act_vfuk_onw.erl
View File

@ -52,15 +52,16 @@ mangle_map_camel_phase(from_stp, _Path, MapDec) ->
MapDec;
mangle_map_camel_phase(from_msc, Path, MapDec) ->
% Resolve the Global Title of the SCCP Called Addr
#sccp_msg{parameters = SccpPars} = lists:keyfind(sccp_msg, 1, Path),
{value, #sccp_msg{parameters = SccpPars}} = lists:keysearch(sccp_msg, 1, Path),
CalledAddr = proplists:get_value(called_party_addr, SccpPars),
#global_title{phone_number = PhoneNum} = CalledAddr#sccp_addr.global_title,
PhoneNumInt = osmo_util:digit_list2int(PhoneNum),
{ok, CamelPatchTbl} = application:get_env(mgw_nat, camel_phase_patch_table),
case lists:keyfind(PhoneNumInt, 1, CamelPatchTbl) of
case lists:keysearch(PhoneNumInt, 1, CamelPatchTbl) of
false ->
MapDec;
{ _Num, PhaseL } ->
{value, { _Num, PhaseL }} ->
io:format("Rewriting Camel Phase List to ~p, GT ~p~n", [PhaseL, PhoneNumInt]),
osmo_util:tuple_walk(MapDec, fun camelph_twalk_cb/3, [PhaseL])
end.