Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 1 | % MAP masquerading application |
| 2 | |
Harald Welte | 7bd1d4a | 2013-02-06 09:02:46 +0100 | [diff] [blame] | 3 | % (C) 2010-2013 by Harald Welte <laforge@gnumonks.org> |
| 4 | % (C) 2010-2013 by On-Waves |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 5 | % |
| 6 | % All Rights Reserved |
| 7 | % |
| 8 | % This program is free software; you can redistribute it and/or modify |
Harald Welte | fb222d9 | 2012-04-16 13:19:15 +0200 | [diff] [blame] | 9 | % it under the terms of the GNU Affero General Public License as |
| 10 | % published by the Free Software Foundation; either version 3 of the |
| 11 | % License, or (at your option) any later version. |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 12 | % |
| 13 | % This program is distributed in the hope that it will be useful, |
| 14 | % but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 15 | % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 16 | % GNU General Public License for more details. |
| 17 | % |
Harald Welte | fb222d9 | 2012-04-16 13:19:15 +0200 | [diff] [blame] | 18 | % You should have received a copy of the GNU Affero General Public License |
| 19 | % along with this program. If not, see <http://www.gnu.org/licenses/>. |
| 20 | % |
| 21 | % Additional Permission under GNU AGPL version 3 section 7: |
| 22 | % |
| 23 | % If you modify this Program, or any covered work, by linking or |
| 24 | % combining it with runtime libraries of Erlang/OTP as released by |
| 25 | % Ericsson on http://www.erlang.org (or a modified version of these |
| 26 | % libraries), containing parts covered by the terms of the Erlang Public |
| 27 | % License (http://www.erlang.org/EPLICENSE), the licensors of this |
| 28 | % Program grant you additional permission to convey the resulting work |
| 29 | % without the need to license the runtime libraries of Erlang/OTP under |
| 30 | % the GNU Affero General Public License. Corresponding Source for a |
| 31 | % non-source form of such a combination shall include the source code |
| 32 | % for the parts of the runtime libraries of Erlang/OTP used as well as |
| 33 | % that of the covered work. |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 34 | |
| 35 | -module(map_masq). |
| 36 | -author('Harald Welte <laforge@gnumonks.org>'). |
| 37 | %-compile(export_all). |
| 38 | |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 39 | -export([mangle_map/2, config_update/0]). |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 40 | |
| 41 | -include_lib("osmo_map/include/map.hrl"). |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 42 | -include_lib("osmo_ss7/include/isup.hrl"). |
| 43 | |
| 44 | % Use the MAP address translation table to alter an ISDN-Address-String |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 45 | patch_map_isdn_addr(_From, asn1_NOVALUE, _Type) -> |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 46 | asn1_NOVALUE; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 47 | patch_map_isdn_addr(From, AddrIn, Type) when is_binary(AddrIn) -> |
| 48 | patch_map_isdn_addr(From, binary_to_list(AddrIn), Type); |
| 49 | patch_map_isdn_addr(From, AddrIn, Type) when is_list(AddrIn) -> |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 50 | % obtain some configuration data |
Harald Welte | a53a63a | 2012-02-13 22:10:33 +0100 | [diff] [blame] | 51 | {ok, Tbl} = application:get_env(mgw_nat, map_rewrite_table), |
| 52 | {ok, IntPfx} = application:get_env(mgw_nat, intern_pfx), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 53 | % Decode the list of octets into an party_number |
| 54 | AddrInDec = map_codec:parse_addr_string(AddrIn), |
| 55 | % First we always internationalize the address |
Harald Welte | 6a33c1e | 2011-02-10 21:40:40 +0100 | [diff] [blame] | 56 | AddrInIntl = mgw_nat:isup_party_internationalize(AddrInDec, IntPfx), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 57 | % And then patch/replace the address digits |
| 58 | DigitsIn = AddrInIntl#party_number.phone_number, |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 59 | DigitsOut = patch_map_isdn_digits(From, DigitsIn, Type, Tbl), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 60 | AddrOutIntl = AddrInIntl#party_number{phone_number = DigitsOut}, |
| 61 | if AddrOutIntl == AddrInDec -> |
| 62 | ok; |
| 63 | true -> |
| 64 | io:format("Translating MAP-ISDN-Addess ~p ~p -> ~p~n", |
| 65 | [Type, AddrInDec, AddrOutIntl]) |
| 66 | end, |
Harald Welte | 62aa7c6 | 2011-02-10 22:52:01 +0100 | [diff] [blame] | 67 | map_codec:encode_addr_string(AddrOutIntl). |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 68 | |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 69 | patch_map_isdn_digits(_From, AddrIn, _Type, []) -> |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 70 | AddrIn; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 71 | patch_map_isdn_digits(From, AddrIn, TypeIn, [Head|Tail]) -> |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 72 | case Head of |
| 73 | {TypeIn, _,_, MscSide, StpSide} -> |
| 74 | if AddrIn == MscSide -> |
| 75 | StpSide; |
| 76 | AddrIn == StpSide -> |
| 77 | MscSide; |
| 78 | true -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 79 | patch_map_isdn_digits(From, AddrIn, TypeIn, Tail) |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 80 | end; |
| 81 | _ -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 82 | patch_map_isdn_digits(From, AddrIn, TypeIn, Tail) |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 83 | end. |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 84 | |
| 85 | mangle_msisdn(from_stp, _Opcode, AddrIn) -> |
Harald Welte | a53a63a | 2012-02-13 22:10:33 +0100 | [diff] [blame] | 86 | {ok, IntPfx} = application:get_env(mgw_nat, intern_pfx), |
Harald Welte | 6a33c1e | 2011-02-10 21:40:40 +0100 | [diff] [blame] | 87 | mgw_nat:isup_party_internationalize(AddrIn, IntPfx). |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 88 | |
Harald Welte | 449a317 | 2011-02-10 15:06:27 +0100 | [diff] [blame] | 89 | % Someobdy inquires on Routing Info for a MS (from HLR) |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 90 | patch(From = from_stp, #'SendRoutingInfoArg'{msisdn = Msisdn,'gmsc-OrGsmSCF-Address'=GmscAddr} = P) -> |
Harald Welte | e78474e | 2011-02-10 21:04:52 +0100 | [diff] [blame] | 91 | % First Translate the MSISDN into international |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 92 | AddrInDec = map_codec:parse_addr_string(Msisdn), |
| 93 | io:format("MSISDN IN = ~p~n", [AddrInDec]), |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 94 | AddrOutDec = mangle_msisdn(From, 22, AddrInDec), |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 95 | io:format("MSISDN OUT = ~p~n", [AddrOutDec]), |
| 96 | AddrOutBin = map_codec:encode_addr_string(AddrOutDec), |
Harald Welte | e78474e | 2011-02-10 21:04:52 +0100 | [diff] [blame] | 97 | % Second, try to masquerade the G-MSC |
| 98 | GmscInDec = map_codec:parse_addr_string(GmscAddr), |
| 99 | case sccp_masq:lookup_masq_addr(orig, GmscInDec#party_number.phone_number) of |
| 100 | undef -> |
| 101 | GmscOut = GmscAddr; |
| 102 | GmscOutDigits -> |
| 103 | GmscOutDec = GmscInDec#party_number{phone_number = GmscOutDigits}, |
| 104 | GmscOut = map_codec:encode_addr_string(GmscOutDec) |
| 105 | end, |
| 106 | P#'SendRoutingInfoArg'{msisdn = AddrOutBin, 'gmsc-OrGsmSCF-Address' = GmscOut}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 107 | |
Harald Welte | 22a2b03 | 2011-02-25 17:04:57 +0100 | [diff] [blame] | 108 | % Someobdy inquires on Routing Info for a MS (from our HLR -> STP) |
| 109 | patch(from_msc, #'SendRoutingInfoArg'{'gmsc-OrGsmSCF-Address'=GmscAddr} = P) -> |
| 110 | % try to translate the G-MSC |
| 111 | GmscInDec = map_codec:parse_addr_string(GmscAddr), |
| 112 | case sccp_masq:lookup_masq_addr(rev, GmscInDec#party_number.phone_number) of |
| 113 | undef -> |
| 114 | GmscOut = GmscAddr; |
| 115 | GmscOutDigits -> |
| 116 | GmscOutDec = GmscInDec#party_number{phone_number = GmscOutDigits}, |
| 117 | GmscOut = map_codec:encode_addr_string(GmscOutDec) |
| 118 | end, |
| 119 | P#'SendRoutingInfoArg'{'gmsc-OrGsmSCF-Address' = GmscOut}; |
| 120 | |
| 121 | |
Harald Welte | 449a317 | 2011-02-10 15:06:27 +0100 | [diff] [blame] | 122 | % HLR responds with Routing Info for a MS |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 123 | patch(From, #'SendRoutingInfoRes'{extendedRoutingInfo = ExtRoutInfo, |
Holger Hans Peter Freyther | 016e306 | 2011-02-21 22:04:38 +0100 | [diff] [blame] | 124 | subscriberInfo = SubscriberInfo, |
Harald Welte | 449a317 | 2011-02-10 15:06:27 +0100 | [diff] [blame] | 125 | 'vmsc-Address' = VmscAddress} = P) -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 126 | VmscAddrOut = patch_map_isdn_addr(From, VmscAddress, msc), |
| 127 | P#'SendRoutingInfoRes'{extendedRoutingInfo = patch(From, ExtRoutInfo), |
| 128 | 'subscriberInfo' = patch(From, SubscriberInfo), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 129 | 'vmsc-Address' = VmscAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 130 | patch(From, #'CamelRoutingInfo'{gmscCamelSubscriptionInfo = GmscCamelSI} = P) -> |
| 131 | P#'CamelRoutingInfo'{gmscCamelSubscriptionInfo = patch(From, GmscCamelSI)}; |
| 132 | patch(From, {camelRoutingInfo, CRI}) -> |
| 133 | {camelRoutingInfo, patch(From, CRI)}; |
| 134 | patch(From, {routingInfo, RI}) -> |
| 135 | {routingInfo, patch(From, RI)}; |
Harald Welte | 449a317 | 2011-02-10 15:06:27 +0100 | [diff] [blame] | 136 | |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 137 | % HLR responds to inquiring MSC indicating the current serving MSC number |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 138 | patch(From, #'RoutingInfoForSM-Res'{locationInfoWithLMSI = LocInf, |
| 139 | imsi = Imsi} = P) -> |
| 140 | P#'RoutingInfoForSM-Res'{locationInfoWithLMSI = patch(From, LocInf), |
| 141 | imsi = patch_imsi(sri_sm_res, From, Imsi)}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 142 | patch(From, #'LocationInfoWithLMSI'{'networkNode-Number' = NetNodeNr} = P) -> |
| 143 | NetNodeNrOut = patch_map_isdn_addr(From, NetNodeNr, msc), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 144 | P#'LocationInfoWithLMSI'{'networkNode-Number' = NetNodeNrOut}; |
| 145 | |
Harald Welte | 7bd1d4a | 2013-02-06 09:02:46 +0100 | [diff] [blame] | 146 | % MO-ForwardSM-Arg with optional IMSI |
| 147 | patch(From, #'MO-ForwardSM-Arg'{imsi = ImsiIn} = P) -> |
Harald Welte | 04bc9f8 | 2013-02-06 09:37:00 +0100 | [diff] [blame^] | 148 | P#'MO-ForwardSM-Arg'{imsi = patch_imsi(mo_fw_sm_arg, From, ImsiIn)}; |
Harald Welte | 7bd1d4a | 2013-02-06 09:02:46 +0100 | [diff] [blame] | 149 | |
Harald Welte | df81bdd | 2011-02-10 17:21:26 +0100 | [diff] [blame] | 150 | % patch the roaming number as it is sent from HLR to G-MSC (SRI Resp) |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 151 | patch(_From, {roamingNumber, RoamNumTBCD}) -> |
Harald Welte | df81bdd | 2011-02-10 17:21:26 +0100 | [diff] [blame] | 152 | RoamNumIn = map_codec:parse_addr_string(RoamNumTBCD), |
| 153 | io:format("Roaming Number IN = ~p~n", [RoamNumIn]), |
Harald Welte | a53a63a | 2012-02-13 22:10:33 +0100 | [diff] [blame] | 154 | {ok, MsrnPfxStp} = application:get_env(mgw_nat, msrn_pfx_stp), |
| 155 | {ok, MsrnPfxMsc} = application:get_env(mgw_nat, msrn_pfx_msc), |
Harald Welte | 6a33c1e | 2011-02-10 21:40:40 +0100 | [diff] [blame] | 156 | RoamNumOut = mgw_nat:isup_party_replace_prefix(RoamNumIn, MsrnPfxMsc, MsrnPfxStp), |
Harald Welte | df81bdd | 2011-02-10 17:21:26 +0100 | [diff] [blame] | 157 | io:format("Roaming Number OUT = ~p~n", [RoamNumOut]), |
| 158 | RoamNumOutTBCD = map_codec:encode_addr_string(RoamNumOut), |
| 159 | {roamingNumber, RoamNumOutTBCD}; |
| 160 | |
Harald Welte | 449a317 | 2011-02-10 15:06:27 +0100 | [diff] [blame] | 161 | |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 162 | % patch a UpdateGprsLocationArg and replace SGSN number and SGSN address |
| 163 | % !!! TESTING ONLY !!! |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 164 | patch(From, #'UpdateGprsLocationArg'{'sgsn-Number' = SgsnNum, |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 165 | 'sgsn-Address' = SgsnAddr} = P) -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 166 | SgsnNumOut = patch_map_isdn_addr(From, SgsnNum, sgsn), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 167 | P#'UpdateGprsLocationArg'{'sgsn-Number'= SgsnNumOut, |
| 168 | 'sgsn-Address' = SgsnAddr}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 169 | |
| 170 | % Some other SGSN is sendingu us a GPRS location update. In the response, |
| 171 | % we indicate teh HLR number, which we need to masquerade |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 172 | patch(From, #'UpdateGprsLocationRes'{'hlr-Number' = HlrNum} = P) -> |
| 173 | HlrNumOut = patch_map_isdn_addr(From, HlrNum, hlr), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 174 | P#'UpdateGprsLocationRes'{'hlr-Number' = HlrNumOut}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 175 | |
| 176 | % Some other MSC/VLR is sendingu us a GSM location update. In the response, |
| 177 | % we indicate teh HLR number, which we need to masquerade |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 178 | patch(From, #'UpdateLocationRes'{'hlr-Number' = HlrNum} = P) -> |
| 179 | HlrNumOut = patch_map_isdn_addr(From, HlrNum, hlr), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 180 | P#'UpdateLocationRes'{'hlr-Number' = HlrNumOut}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 181 | |
| 182 | % HLR responds to VLR's MAP_RESTORE_REQ (i.e. it has lost information) |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 183 | patch(From, #'RestoreDataRes'{'hlr-Number' = HlrNum} = P) -> |
| 184 | HlrNumOut = patch_map_isdn_addr(From, HlrNum, hlr), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 185 | P#'RestoreDataRes'{'hlr-Number' = HlrNumOut}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 186 | |
| 187 | % HLR sends subscriber data to VLR/SGSN, including CAMEL info |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 188 | patch(From, #'InsertSubscriberDataArg'{'vlrCamelSubscriptionInfo'=VlrCamel, |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 189 | 'sgsn-CAMEL-SubscriptionInfo'=SgsnCamel} = Arg) -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 190 | Arg#'InsertSubscriberDataArg'{'vlrCamelSubscriptionInfo'=patch(From, VlrCamel), |
| 191 | 'sgsn-CAMEL-SubscriptionInfo'=patch(From, SgsnCamel)}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 192 | |
| 193 | % HLR sends subscriber data to gsmSCF |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 194 | patch(From, #'AnyTimeSubscriptionInterrogationRes'{'camel-SubscriptionInfo'=Csi} = P) -> |
| 195 | P#'AnyTimeSubscriptionInterrogationRes'{'camel-SubscriptionInfo'=patch(From, Csi)}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 196 | |
Harald Welte | e77cb26 | 2011-02-25 17:06:30 +0100 | [diff] [blame] | 197 | patch(_From, asn1_NOVALUE) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 198 | asn1_NOVALUE; |
| 199 | |
| 200 | % CAMEL related parsing |
| 201 | |
Harald Welte | 449a317 | 2011-02-10 15:06:27 +0100 | [diff] [blame] | 202 | % this is part of the SRI Response (HLR->GMSC) |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 203 | patch(From, #'GmscCamelSubscriptionInfo'{'o-CSI'=Ocsi, 't-CSI'=Tcsi, |
Harald Welte | 449a317 | 2011-02-10 15:06:27 +0100 | [diff] [blame] | 204 | 'd-csi'=Dcsi} = P) -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 205 | P#'GmscCamelSubscriptionInfo'{'o-CSI'=patch(From, Ocsi), |
| 206 | 't-CSI'=patch(From, Tcsi), |
| 207 | 'd-csi'=patch(From, Dcsi)}; |
Harald Welte | 449a317 | 2011-02-10 15:06:27 +0100 | [diff] [blame] | 208 | |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 209 | % this is part of the InsertSubscriberData HLR -> VLR |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 210 | patch(From, #'VlrCamelSubscriptionInfo'{'o-CSI'=Ocsi, 'mo-sms-CSI'=MoSmsCsi, |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 211 | 'mt-sms-CSI'=MtSmsCsi, 'ss-CSI'=SsCsi} = P) -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 212 | P#'VlrCamelSubscriptionInfo'{'o-CSI'=patch(From, Ocsi), |
| 213 | 'mo-sms-CSI'=patch(From, MoSmsCsi), |
| 214 | 'mt-sms-CSI'=patch(From, MtSmsCsi), |
| 215 | 'ss-CSI'=patch(From, SsCsi)}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 216 | |
| 217 | % this is part of the InsertSubscriberData HLR -> SGSN |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 218 | patch(From, #'SGSN-CAMEL-SubscriptionInfo'{'gprs-CSI'=GprsCsi, |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 219 | 'mo-sms-CSI'=MoSmsCsi, |
| 220 | 'mt-sms-CSI'=MtSmsCsi} = P) -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 221 | P#'SGSN-CAMEL-SubscriptionInfo'{'gprs-CSI'=patch(From, GprsCsi), |
| 222 | 'mo-sms-CSI'=patch(From, MoSmsCsi), |
| 223 | 'mt-sms-CSI'=patch(From, MtSmsCsi)}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 224 | |
| 225 | % this is part of the Anytime Subscription Interrogation Result HLR->gsmSCF |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 226 | patch(From, #'CAMEL-SubscriptionInfo'{'o-CSI'=Ocsi, |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 227 | 'd-CSI'=Dcsi, |
| 228 | 't-CSI'=Tcsi, |
| 229 | 'vt-CSI'=Vtcsi, |
| 230 | %'tif-CSI'=Tifcsi, |
| 231 | 'gprs-CSI'=GprsCsi, |
| 232 | 'mo-sms-CSI'=MoSmsCsi, |
| 233 | 'ss-CSI'=SsCsi, |
| 234 | 'm-CSI'=Mcsi, |
| 235 | 'mt-sms-CSI'=MtSmsCsi, |
| 236 | 'mg-csi'=MgCsi, |
| 237 | 'o-IM-CSI'=OimCsi, |
| 238 | 'd-IM-CSI'=DimCsi, |
| 239 | 'vt-IM-CSI'=VtImCsi} = P) -> |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 240 | P#'CAMEL-SubscriptionInfo'{'o-CSI'=patch(From, Ocsi), |
| 241 | 'd-CSI'=patch(From, Dcsi), |
| 242 | 't-CSI'=patch(From, Tcsi), |
| 243 | 'vt-CSI'=patch(From, Vtcsi), |
| 244 | 'gprs-CSI'=patch(From, GprsCsi), |
| 245 | 'mo-sms-CSI'=patch(From, MoSmsCsi), |
| 246 | 'ss-CSI'=patch(From, SsCsi), |
| 247 | 'm-CSI'=patch(From, Mcsi), |
| 248 | 'mt-sms-CSI'=patch(From, MtSmsCsi), |
| 249 | 'mg-csi'=patch(From, MgCsi), |
| 250 | 'o-IM-CSI'=patch(From, OimCsi), |
| 251 | 'd-IM-CSI'=patch(From, DimCsi), |
| 252 | 'vt-IM-CSI'=patch(From, VtImCsi)}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 253 | |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 254 | patch(From, #'T-CSI'{'t-BcsmCamelTDPDataList'=TdpList} = P) -> |
| 255 | P#'T-CSI'{'t-BcsmCamelTDPDataList'=patch_tBcsmCamelTDPDataList(From, TdpList)}; |
| 256 | patch(From, #'M-CSI'{'gsmSCF-Address'=GsmScfAddr} = P) -> |
| 257 | GsmScfAddrOut = patch_map_isdn_addr(From, GsmScfAddr, scf), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 258 | P#'M-CSI'{'gsmSCF-Address'=GsmScfAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 259 | patch(From, #'MG-CSI'{'gsmSCF-Address'=GsmScfAddr} = P) -> |
| 260 | GsmScfAddrOut = patch_map_isdn_addr(From, GsmScfAddr, scf), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 261 | P#'MG-CSI'{'gsmSCF-Address'=GsmScfAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 262 | patch(From, #'O-CSI'{'o-BcsmCamelTDPDataList'=TdpList} = P) -> |
| 263 | P#'O-CSI'{'o-BcsmCamelTDPDataList'=patch_oBcsmCamelTDPDataList(From, TdpList)}; |
| 264 | patch(From, #'D-CSI'{'dp-AnalysedInfoCriteriaList'=List} = P) -> |
| 265 | P#'D-CSI'{'dp-AnalysedInfoCriteriaList'=patch_AnInfoCritList(From, List)}; |
| 266 | patch(From, #'SMS-CSI'{'sms-CAMEL-TDP-DataList'=TdpList} = P) -> |
| 267 | P#'SMS-CSI'{'sms-CAMEL-TDP-DataList'=patch_SmsCamelTDPDataList(From, TdpList)}; |
| 268 | patch(From, #'SS-CSI'{'ss-CamelData'=Sscd} = P) -> |
| 269 | P#'SS-CSI'{'ss-CamelData'=patch(From, Sscd)}; |
| 270 | patch(From, #'GPRS-CSI'{'gprs-CamelTDPDataList'=TdpList} = P) -> |
| 271 | P#'GPRS-CSI'{'gprs-CamelTDPDataList'=patch_GprsCamelTDPDataList(From, TdpList)}; |
| 272 | patch(From, #'SS-CamelData'{'gsmSCF-Address'=GsmScfAddr} = P) -> |
| 273 | GsmScfAddrOut = patch_map_isdn_addr(From, GsmScfAddr, scf), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 274 | P#'SS-CamelData'{'gsmSCF-Address'=GsmScfAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 275 | patch(From, #'O-BcsmCamelTDPData'{'gsmSCF-Address'=GsmScfAddr} = P) -> |
| 276 | GsmScfAddrOut = patch_map_isdn_addr(From, GsmScfAddr, scf), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 277 | P#'O-BcsmCamelTDPData'{'gsmSCF-Address'=GsmScfAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 278 | patch(From, #'T-BcsmCamelTDPData'{'gsmSCF-Address'=GsmScfAddr} = P) -> |
| 279 | GsmScfAddrOut = patch_map_isdn_addr(From, GsmScfAddr, scf), |
Holger Hans Peter Freyther | 60e0fb2 | 2011-02-21 21:02:08 +0100 | [diff] [blame] | 280 | P#'T-BcsmCamelTDPData'{'gsmSCF-Address'=GsmScfAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 281 | patch(From, #'SMS-CAMEL-TDP-Data'{'gsmSCF-Address'=GsmScfAddr} = P) -> |
| 282 | GsmScfAddrOut = patch_map_isdn_addr(From, GsmScfAddr, scf), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 283 | P#'SMS-CAMEL-TDP-Data'{'gsmSCF-Address'=GsmScfAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 284 | patch(From, #'GPRS-CamelTDPData'{'gsmSCF-Address'=GsmScfAddr} = P) -> |
| 285 | GsmScfAddrOut = patch_map_isdn_addr(From, GsmScfAddr, scf), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 286 | P#'GPRS-CamelTDPData'{'gsmSCF-Address'=GsmScfAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 287 | patch(From, #'DP-AnalysedInfoCriterium'{'gsmSCF-Address'=GsmScfAddr} = P) -> |
| 288 | GsmScfAddrOut = patch_map_isdn_addr(From, GsmScfAddr, scf), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 289 | P#'DP-AnalysedInfoCriterium'{'gsmSCF-Address'=GsmScfAddrOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 290 | patch(From, #'SubscriberInfo'{'locationInformation'=LocInformation} = P) -> |
| 291 | P#'SubscriberInfo'{'locationInformation'=patch(From, LocInformation)}; |
| 292 | patch(From, #'LocationInformation'{'vlr-number'=VlrNumber} = P) -> |
| 293 | VlrNumberOut = patch_map_isdn_addr(From, VlrNumber, vlr), |
Holger Hans Peter Freyther | 016e306 | 2011-02-21 22:04:38 +0100 | [diff] [blame] | 294 | P#'LocationInformation'{'vlr-number'=VlrNumberOut}; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 295 | patch(From, #'MO-ForwardSM-Arg'{'sm-RP-DA'=SC} = P) -> |
| 296 | NewSC = patch_scaddr(From, SC), |
Holger Hans Peter Freyther | e86edbd | 2011-02-22 23:24:55 +0100 | [diff] [blame] | 297 | P#'MO-ForwardSM-Arg'{'sm-RP-DA'=NewSC}; |
Holger Hans Peter Freyther | 016e306 | 2011-02-21 22:04:38 +0100 | [diff] [blame] | 298 | |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 299 | patch(_From, Default) -> |
Harald Welte | c752362 | 2011-02-10 14:42:31 +0100 | [diff] [blame] | 300 | Default. |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 301 | |
Holger Hans Peter Freyther | e86edbd | 2011-02-22 23:24:55 +0100 | [diff] [blame] | 302 | %rewrite the serviceCentreAddressDA |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 303 | patch_scaddr(From, {serviceCentreAddressDA,Ar}) -> |
| 304 | NewAddr = patch_map_isdn_addr(From, Ar, smsCDA), |
Holger Hans Peter Freyther | e86edbd | 2011-02-22 23:24:55 +0100 | [diff] [blame] | 305 | {serviceCentreAddressDA,NewAddr}; |
Harald Welte | e77cb26 | 2011-02-25 17:06:30 +0100 | [diff] [blame] | 306 | patch_scaddr(_From, Default) -> |
Holger Hans Peter Freyther | e86edbd | 2011-02-22 23:24:55 +0100 | [diff] [blame] | 307 | Default. |
| 308 | |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 309 | patch_oBcsmCamelTDPDataList(From, List) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 310 | % we reverse the origianl list, as the tail recursive _acc function |
| 311 | % will invert the order of components again |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 312 | patch_oBcsmCamelTDPDataList_acc(From, lists:reverse(List), []). |
Harald Welte | e77cb26 | 2011-02-25 17:06:30 +0100 | [diff] [blame] | 313 | patch_oBcsmCamelTDPDataList_acc(_From, [], NewList) -> NewList; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 314 | patch_oBcsmCamelTDPDataList_acc(From, [TdpData|Tail], NewList) -> |
| 315 | NewTdpData = patch(From, TdpData#'O-BcsmCamelTDPData'{}), |
| 316 | patch_oBcsmCamelTDPDataList_acc(From, Tail, [NewTdpData|NewList]). |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 317 | |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 318 | patch_tBcsmCamelTDPDataList(From, List) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 319 | % we reverse the origianl list, as the tail recursive _acc function |
| 320 | % will invert the order of components again |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 321 | patch_tBcsmCamelTDPDataList_acc(From, lists:reverse(List), []). |
Harald Welte | e77cb26 | 2011-02-25 17:06:30 +0100 | [diff] [blame] | 322 | patch_tBcsmCamelTDPDataList_acc(_From, [], NewList) -> NewList; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 323 | patch_tBcsmCamelTDPDataList_acc(From, [TdpData|Tail], NewList) -> |
| 324 | NewTdpData = patch(From, TdpData#'T-BcsmCamelTDPData'{}), |
| 325 | patch_tBcsmCamelTDPDataList_acc(From, Tail, [NewTdpData|NewList]). |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 326 | |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 327 | patch_AnInfoCritList(From, List) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 328 | % we reverse the origianl list, as the tail recursive _acc function |
| 329 | % will invert the order of components again |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 330 | patch_AnInfoCritList_acc(From, lists:reverse(List), []). |
Harald Welte | e77cb26 | 2011-02-25 17:06:30 +0100 | [diff] [blame] | 331 | patch_AnInfoCritList_acc(_From, [], NewList) -> NewList; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 332 | patch_AnInfoCritList_acc(From, [Crit|Tail], NewList) -> |
| 333 | NewCrit = patch(From, Crit#'DP-AnalysedInfoCriterium'{}), |
| 334 | patch_AnInfoCritList_acc(From, Tail, [NewCrit|NewList]). |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 335 | |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 336 | patch_GprsCamelTDPDataList(From, List) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 337 | % we reverse the origianl list, as the tail recursive _acc function |
| 338 | % will invert the order of components again |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 339 | patch_GprsCamelTDPDataList_acc(From, lists:reverse(List), []). |
| 340 | patch_GprsCamelTDPDataList_acc(_From, [], NewList) -> NewList; |
| 341 | patch_GprsCamelTDPDataList_acc(From, [TdpData|Tail], NewList) -> |
| 342 | NewTdpData = patch(From, TdpData#'GPRS-CamelTDPData'{}), |
| 343 | patch_GprsCamelTDPDataList_acc(From, Tail, [NewTdpData|NewList]). |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 344 | |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 345 | patch_SmsCamelTDPDataList(From, List) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 346 | % we reverse the origianl list, as the tail recursive _acc function |
| 347 | % will invert the order of components again |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 348 | patch_SmsCamelTDPDataList_acc(From, lists:reverse(List), []). |
Harald Welte | e77cb26 | 2011-02-25 17:06:30 +0100 | [diff] [blame] | 349 | patch_SmsCamelTDPDataList_acc(_From, [], NewList) -> NewList; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 350 | patch_SmsCamelTDPDataList_acc(From, [TdpData|Tail], NewList) -> |
| 351 | NewTdpData = patch(From, TdpData#'SMS-CAMEL-TDP-Data'{}), |
| 352 | patch_GprsCamelTDPDataList_acc(From, Tail, [NewTdpData|NewList]). |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 353 | |
| 354 | |
| 355 | |
| 356 | % process the Argument of a particular MAP invocation |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 357 | process_component_arg(From, OpCode, Arg) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 358 | case Arg of |
| 359 | asn1_NOVALUE -> Arg; |
Harald Welte | 29e589f | 2011-02-25 15:17:57 +0100 | [diff] [blame] | 360 | _ -> patch(From,Arg) |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 361 | end. |
| 362 | |
| 363 | % recurse over all components |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 364 | handle_tcap_components(_From, asn1_NOVALUE) -> |
Harald Welte | 17f6474 | 2011-02-10 18:29:59 +0100 | [diff] [blame] | 365 | asn1_NOVALUE; |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 366 | handle_tcap_components(From, List) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 367 | % we reverse the origianl list, as the tail recursive _acc function |
| 368 | % will invert the order of components again |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 369 | handle_tcap_components_acc(From, lists:reverse(List), []). |
| 370 | handle_tcap_components_acc(_From, [], NewComponents) -> NewComponents; |
| 371 | handle_tcap_components_acc(From, [Component|Tail], NewComponents) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 372 | case Component of |
| 373 | {basicROS, {Primitive, Body}} -> |
| 374 | io:format("handle component ~p primitive ~n", [Component]), |
| 375 | case Body of |
| 376 | % BEGIN |
| 377 | #'MapSpecificPDUs_begin_components_SEQOF_basicROS_invoke'{opcode={local, OpCode}, |
| 378 | argument=Arg} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 379 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 380 | NewBody = Body#'MapSpecificPDUs_begin_components_SEQOF_basicROS_invoke'{argument=NewArg}; |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 381 | #'MapSpecificPDUs_begin_components_SEQOF_basicROS_returnResult'{result=#'MapSpecificPDUs_begin_components_SEQOF_basicROS_returnResult_result'{opcode={local, OpCode}, result=Arg} = R} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 382 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 383 | NewBody = Body#'MapSpecificPDUs_begin_components_SEQOF_basicROS_returnResult'{result=R#'MapSpecificPDUs_begin_components_SEQOF_basicROS_returnResult_result'{result=NewArg}}; |
| 384 | #'MapSpecificPDUs_begin_components_SEQOF_returnResultNotLast'{result=#'MapSpecificPDUs_begin_components_SEQOF_returnResultNotLast_result'{opcode={local, OpCode}, result=Arg} = R} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 385 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 386 | NewBody = Body#'MapSpecificPDUs_begin_components_SEQOF_returnResultNotLast'{result=R#'MapSpecificPDUs_begin_components_SEQOF_returnResultNotLast_result'{result=NewArg}}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 387 | % END |
| 388 | #'MapSpecificPDUs_end_components_SEQOF_basicROS_invoke'{opcode={local, OpCode}, |
| 389 | argument=Arg} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 390 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 391 | NewBody = Body#'MapSpecificPDUs_end_components_SEQOF_basicROS_invoke'{argument=NewArg}; |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 392 | #'MapSpecificPDUs_end_components_SEQOF_basicROS_returnResult'{result=#'MapSpecificPDUs_end_components_SEQOF_basicROS_returnResult_result'{opcode={local, OpCode}, result=Arg} = R} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 393 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 394 | NewBody = Body#'MapSpecificPDUs_end_components_SEQOF_basicROS_returnResult'{result=R#'MapSpecificPDUs_end_components_SEQOF_basicROS_returnResult_result'{result=NewArg}}; |
| 395 | #'MapSpecificPDUs_end_components_SEQOF_returnResultNotLast'{result=#'MapSpecificPDUs_end_components_SEQOF_returnResultNotLast_result'{opcode={local, OpCode}, result=Arg} = R} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 396 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 397 | NewBody = Body#'MapSpecificPDUs_end_components_SEQOF_returnResultNotLast'{result=R#'MapSpecificPDUs_end_components_SEQOF_returnResultNotLast_result'{result=NewArg}}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 398 | % CONTINUE |
| 399 | #'MapSpecificPDUs_continue_components_SEQOF_basicROS_invoke'{opcode={local, OpCode}, |
| 400 | argument=Arg} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 401 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 402 | NewBody = Body#'MapSpecificPDUs_continue_components_SEQOF_basicROS_invoke'{argument=NewArg}; |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 403 | #'MapSpecificPDUs_continue_components_SEQOF_basicROS_returnResult'{result=#'MapSpecificPDUs_continue_components_SEQOF_basicROS_returnResult_result'{opcode={local, OpCode}, result=Arg} = R} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 404 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | f83e20e | 2011-05-23 12:41:14 +0200 | [diff] [blame] | 405 | NewBody = Body#'MapSpecificPDUs_continue_components_SEQOF_basicROS_returnResult'{result=R#'MapSpecificPDUs_continue_components_SEQOF_basicROS_returnResult_result'{result=NewArg}}; |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 406 | #'MapSpecificPDUs_continue_components_SEQOF_returnResultNotLast'{result=#'MapSpecificPDUs_continue_components_SEQOF_returnResultNotLast_result'{opcode={local, OpCode}, result=Arg} = R} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 407 | NewArg = process_component_arg(From, OpCode, Arg), |
Harald Welte | ea19314 | 2011-02-10 15:40:36 +0100 | [diff] [blame] | 408 | NewBody = Body#'MapSpecificPDUs_continue_components_SEQOF_returnResultNotLast'{result=R#'MapSpecificPDUs_continue_components_SEQOF_returnResultNotLast_result'{result=NewArg}}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 409 | _ -> |
| 410 | NewBody = Body |
| 411 | end, |
| 412 | %NewBody = setelement(5, Body, NewArg) |
| 413 | NewComponent = {basicROS, {Primitive, NewBody}}; |
| 414 | _ -> |
| 415 | NewComponent = Component |
| 416 | end, |
| 417 | io:format("=> modified component ~p~n", [NewComponent]), |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 418 | handle_tcap_components_acc(From, Tail, [NewComponent|NewComponents]). |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 419 | |
| 420 | |
Harald Welte | 9bc2e4a | 2011-02-10 12:40:31 +0100 | [diff] [blame] | 421 | % Erlang asn1rt has this strange property that all incoming EXTERNAL types are |
| 422 | % converted from the 1990 version into the 1994 version. The latter does not |
| 423 | % preserve the encoding (octet string, single ASN1 type, ...). During encoding, |
| 424 | % it then uses the OCTTET-STRING encoding, which is different from the MAP |
| 425 | % customary single-ASN1-type format. |
Harald Welte | c506fe5 | 2011-02-10 13:09:44 +0100 | [diff] [blame] | 426 | asn1_EXTERNAL1994_fixup({'EXTERNAL', DirRef, IndRef, Data}) when is_list(Data);is_binary(Data) -> |
Harald Welte | 9bc2e4a | 2011-02-10 12:40:31 +0100 | [diff] [blame] | 427 | % our trick is as follows: we simply convert back to 1990 format, and explicitly |
| 428 | % set the single-ASN1-type encoding. asn1rt:s 'enc_EXTERNAL'() will detect this |
| 429 | #'EXTERNAL'{'direct-reference' = DirRef, 'indirect-reference' = IndRef, |
| 430 | 'encoding' = {'single-ASN1-type', Data}}; |
| 431 | asn1_EXTERNAL1994_fixup(Foo) -> |
| 432 | Foo. |
| 433 | |
| 434 | |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 435 | handle_tcap_dialogue(_From, Foo = {'EXTERNAL', DirRef, IndRef, Data}) -> |
Harald Welte | 9bc2e4a | 2011-02-10 12:40:31 +0100 | [diff] [blame] | 436 | asn1_EXTERNAL1994_fixup(Foo); |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 437 | handle_tcap_dialogue(_From, Foo) -> |
Harald Welte | 9bc2e4a | 2011-02-10 12:40:31 +0100 | [diff] [blame] | 438 | Foo. |
| 439 | |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 440 | |
| 441 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 442 | % Actual mangling of the decoded MAP messages |
| 443 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 444 | mangle_map(From, {Type, TcapMsgDec}) -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 445 | case {Type, TcapMsgDec} of |
| 446 | {'unidirectional', #'MapSpecificPDUs_unidirectional'{dialoguePortion=Dialg, |
| 447 | components=Components}} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 448 | NewDialg = handle_tcap_dialogue(From, Dialg), |
| 449 | NewComponents = handle_tcap_components(From, Components), |
Harald Welte | 9bc2e4a | 2011-02-10 12:40:31 +0100 | [diff] [blame] | 450 | NewTcapMsgDec = TcapMsgDec#'MapSpecificPDUs_unidirectional'{dialoguePortion=NewDialg, components=NewComponents}; |
Harald Welte | 29c5f40 | 2011-02-10 13:24:49 +0100 | [diff] [blame] | 451 | {'begin', #'MapSpecificPDUs_begin'{dialoguePortion=Dialg, components=Components}} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 452 | NewDialg = handle_tcap_dialogue(From, Dialg), |
| 453 | NewComponents = handle_tcap_components(From, Components), |
Harald Welte | 29c5f40 | 2011-02-10 13:24:49 +0100 | [diff] [blame] | 454 | NewTcapMsgDec = TcapMsgDec#'MapSpecificPDUs_begin'{dialoguePortion=NewDialg, components=NewComponents}; |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 455 | {'continue', #'MapSpecificPDUs_continue'{dialoguePortion=Dialg, components=Components}} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 456 | NewDialg = handle_tcap_dialogue(From, Dialg), |
| 457 | NewComponents = handle_tcap_components(From, Components), |
Harald Welte | 9bc2e4a | 2011-02-10 12:40:31 +0100 | [diff] [blame] | 458 | NewTcapMsgDec = TcapMsgDec#'MapSpecificPDUs_continue'{dialoguePortion=NewDialg, components=NewComponents}; |
Harald Welte | 29c5f40 | 2011-02-10 13:24:49 +0100 | [diff] [blame] | 459 | {'end', #'MapSpecificPDUs_end'{dialoguePortion=Dialg, components=Components}} -> |
Harald Welte | 2cc831f | 2011-02-10 18:36:02 +0100 | [diff] [blame] | 460 | NewDialg = handle_tcap_dialogue(From, Dialg), |
| 461 | NewComponents = handle_tcap_components(From, Components), |
Harald Welte | 29c5f40 | 2011-02-10 13:24:49 +0100 | [diff] [blame] | 462 | NewTcapMsgDec = TcapMsgDec#'MapSpecificPDUs_end'{dialoguePortion=NewDialg, components=NewComponents}; |
| 463 | %{_, #'Abort'{reason=Reason} -> |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 464 | _ -> |
| 465 | NewTcapMsgDec = TcapMsgDec |
| 466 | end, |
Harald Welte | 29c5f40 | 2011-02-10 13:24:49 +0100 | [diff] [blame] | 467 | io:format("new TcapMsgDec (Type=~p) ~p~n", [Type, NewTcapMsgDec]), |
Harald Welte | a68d96e | 2011-02-10 09:49:46 +0100 | [diff] [blame] | 468 | {Type, NewTcapMsgDec}. |
| 469 | |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 470 | |
| 471 | % Configuration file has changed, re-generate internal data structures |
| 472 | config_update() -> |
| 473 | % (re-)generate the MAP Address rewrite table |
Harald Welte | 6009f6e | 2011-02-10 21:41:50 +0100 | [diff] [blame] | 474 | {ok, MapRewriteTbl} = application:get_env(mgw_nat, map_rewrite_table), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 475 | MapRewriteTblOut = generate_rewrite_table(MapRewriteTbl), |
Harald Welte | 6009f6e | 2011-02-10 21:41:50 +0100 | [diff] [blame] | 476 | application:set_env(mgw_nat, map_rewrite_table, MapRewriteTblOut), |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 477 | % (re-)generate IMSI tree from text file |
| 478 | case application:get_env(mgw_nat, imsi_rewrite_file) of |
| 479 | {ok, ImsiListFile} -> |
| 480 | {ok, ImsiTree} = imsi_list:read_file(ImsiListFile), |
Harald Welte | fce6cf1 | 2012-02-20 07:56:16 +0100 | [diff] [blame] | 481 | io:format("(Re)generated IMSI rewrite table: ~p entries~n", |
Harald Welte | 6675c74 | 2013-02-06 09:14:37 +0100 | [diff] [blame] | 482 | [imsi_list:num_entries(ImsiTree)]), |
Harald Welte | fce6cf1 | 2012-02-20 07:56:16 +0100 | [diff] [blame] | 483 | application:set_env(mgw_nat, imsi_rewrite_tree, ImsiTree); |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 484 | _ -> |
| 485 | ok |
| 486 | end, |
Harald Welte | a53a63a | 2012-02-13 22:10:33 +0100 | [diff] [blame] | 487 | %{ok, MsrnPfxStp} = application:get_env(mgw_nat, msrn_pfx_stp), |
| 488 | %{ok, MsrnPfxMsc} = application:get_env(mgw_nat, msrn_pfx_msc), |
| 489 | %{ok, IntPfx} = application:get_env(mgw_nat, intern_pfx), |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 490 | ok. |
| 491 | |
| 492 | % Generate the full MAP address rewrite table |
| 493 | generate_rewrite_table(List) when is_list(List) -> |
| 494 | generate_rewrite_table(List, []). |
| 495 | generate_rewrite_table([], OutList) -> |
| 496 | io:format("(Re)generated MAP ISDN-Address rewrite table: ~p~n", [OutList]), |
| 497 | OutList; |
| 498 | generate_rewrite_table([Head|Tail], OutList) -> |
| 499 | NewItem = generate_rewrite_entry(Head), |
| 500 | generate_rewrite_table(Tail, [NewItem|OutList]). |
| 501 | |
Harald Welte | d1410ae | 2011-02-25 21:33:34 +0100 | [diff] [blame] | 502 | % If a rewrite table entry is already fully-qualified, return it unmodified |
| 503 | generate_rewrite_entry({Name, MscInt, StpInt, Msc, Stp}) -> |
| 504 | {Name, MscInt, StpInt, Msc, Stp}; |
Harald Welte | f962964 | 2011-02-10 20:44:46 +0100 | [diff] [blame] | 505 | % Generate a MAP Address rewrite table entry |
| 506 | generate_rewrite_entry({Name, MscSideInt, StpSideInt}) -> |
| 507 | MscSideList = osmo_util:int2digit_list(MscSideInt), |
| 508 | StpSideList = osmo_util:int2digit_list(StpSideInt), |
| 509 | {Name, MscSideInt, StpSideInt, MscSideList, StpSideList}. |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 510 | |
Harald Welte | 7bd1d4a | 2013-02-06 09:02:46 +0100 | [diff] [blame] | 511 | imsi_direction(sri_sm_res) -> |
| 512 | forward; |
| 513 | imsi_direction(mo_fw_sm_arg) -> |
| 514 | reverse. |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 515 | |
| 516 | % check if we need to rewrite the IMSI |
Harald Welte | 7bd1d4a | 2013-02-06 09:02:46 +0100 | [diff] [blame] | 517 | patch_imsi(MsgType, from_msc, ImsiIn) -> |
| 518 | IsForward = imsi_direction(MsgType), |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 519 | case application:get_env(mgw_nat, imsi_rewrite_tree) of |
Harald Welte | fce6cf1 | 2012-02-20 07:56:16 +0100 | [diff] [blame] | 520 | {ok, ImsiTree} -> |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 521 | % decode IMSI into list of digits |
| 522 | Imsi = map_codec:parse_map_addr(ImsiIn), |
| 523 | % rewrite prefix, if it matches |
Harald Welte | 7bd1d4a | 2013-02-06 09:02:46 +0100 | [diff] [blame] | 524 | case imsi_list:match_imsi(IsForward, ImsiTree, Imsi) of |
Harald Welte | fce6cf1 | 2012-02-20 07:56:16 +0100 | [diff] [blame] | 525 | {ok, NewImsi} -> |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 526 | map_codec:encode_map_tbcd(NewImsi); |
Harald Welte | fce6cf1 | 2012-02-20 07:56:16 +0100 | [diff] [blame] | 527 | _ -> |
Harald Welte | 9fe0729 | 2012-02-13 20:54:17 +0100 | [diff] [blame] | 528 | ImsiIn |
| 529 | end; |
| 530 | _ -> |
| 531 | ImsiIn |
| 532 | end; |
| 533 | patch_imsi(_, _, Imsi) -> |
| 534 | Imsi. |