erlang
/
osmo-epdg
mirror of https://gerrit.osmocom.org/erlang/osmo-epdg
4
0
Fork 0
Code Releases Wiki Activity

SWx: Answer PPR with PPA 

The whole propagation of the update procedure is left as TODO for the
future, but let's at least answer to it instead of crashing.

Related: OS#6042
Change-Id: I8070728099af7d650c40d17104d1af4883d83972
This commit is contained in:
Pau Espin 2024-03-14 18:40:25 +01:00
parent c436bad024
commit 5beacd8741
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/aaa_diameter_swx_cb.erl
View File

@ -70,6 +70,43 @@ prepare_retransmit(Packet, SvcName, Peer, ExtraPars) ->
%% handle_request/3
%% 3GPP TS 29.273 8.2.2.2 HSS Initiated Update of User Profile Procedure
handle_request(#diameter_packet{msg = Req, errors = []}, _SvcName, {_, Caps}) when is_record(Req, 'PPR') ->
lager:info("SWx Rx PPR from ~p: ~p~n", [Caps, Req]),
#diameter_caps{origin_host = {OH,_}, origin_realm = {OR,_}} = Caps,
#'PPR'{'Session-Id' = SessionId,
'Vendor-Specific-Application-Id' = VendorAppId,
'Auth-Session-State' = AuthSessState,
'User-Name' = Imsi,
'Non-3GPP-User-Data' = N3UAopt} = Req,
case aaa_ue_fsm:get_pid_by_imsi(Imsi) of
Pid when is_pid(Pid) ->
_PGWAddresses = parse_pgw_addr_from_N3UA(N3UAopt),
%% TODO: in successful case, we want to validate how this prcoedure extends to other interfaces:
%% """ 3GPP TS 29.273 8.1.2.3.3:
%% After a successful user profile download, the 3GPP AAA Server shall
%% initiate re-authentication procedure as described
%% in clause 7.2.2.4 if the subscriber has previously been authenticated
%% and authorized to untrusted non-3GPP access.
%% """
Res = 2001, %% Success
ERes = [];
undefined ->
Res = [],
%% TS 29.229 6.2.2.1 DIAMETER_ERROR_USER_UNKNOWN
ERes = #'Experimental-Result'{'Vendor-Id' = ?VENDOR_ID_3GPP,
'Experimental-Result-Code' = 5001}
end,
Resp = #'PPA'{'Session-Id' = SessionId,
'Vendor-Specific-Application-Id' = VendorAppId,
'Result-Code' = Res,
'Experimental-Result' = ERes,
'Auth-Session-State' = AuthSessState,
'Origin-Host' = OH,
'Origin-Realm' = OR},
lager:info("SWx Tx to ~p: ~p~n", [Caps, Resp]),
{reply, Resp};
%% 3GPP TS 29.273 8.2.2.4 Network Initiated De-Registration by HSS Procedure
handle_request(#diameter_packet{msg = Req, errors = []}, _SvcName, {_, Caps}) when is_record(Req, 'RTR') ->
lager:info("SWx Rx RTR from ~p: ~p~n", [Caps, Req]),