From f43bffe4058668fecabefcc575aa6fefec3df460 Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Mon, 30 Jan 2012 23:34:53 +0100
Subject: [PATCH] DHA: handle TR-END.indication from TSL

---
 TCAP/src/ITU/tcap_dha_fsm.erl | 35 ++++++++++++++++++++++++++++++++++-
 1 file changed, 34 insertions(+), 1 deletion(-)

diff --git a/TCAP/src/ITU/tcap_dha_fsm.erl b/TCAP/src/ITU/tcap_dha_fsm.erl
index ba09a3d..efddf46 100644
--- a/TCAP/src/ITU/tcap_dha_fsm.erl
+++ b/TCAP/src/ITU/tcap_dha_fsm.erl
@@ -646,7 +646,40 @@ active({'TC', 'END', request, EndParms}, State) when is_record(EndParms, 'TC-END
 			gen_server:cast(State#state.cco, 'request-components'),
 			%% Process components
 			{next_state, wait_for_end_components, State}
-	end.
+	end;
+
+%% reference: Figuer A.5/Q774 (sheet 10 of 11)
+%% TR-END indication from TSL
+active({'TR', 'END', indication, EndParms}, State) when is_record(EndParms, 'TR-END') ->
+	UserData = EndParms#'TR-END'.userData,
+	if
+		UserData#'TR-user-data'.dialoguePortion /= asn1_NOVALUE ->
+			% discard components
+			% TC-P-ABORT.ind to TCU
+			Components = undefined,
+			ComponentsPresent = false;
+		UserData#'TR-user-data'.componentPortion /= asn1_NOVALUE ->
+			case 'TC':decode('Components', UserData#'TR-user-data'.componentPortion) of
+				[] = Components -> ComponentsPresent = false;
+				Components -> ComponentsPresent = true
+			end;
+		true ->
+			Components = undefined,
+			ComponentsPresent = false
+	end,
+	case ComponentsPresent of
+		true ->
+			%% Components to CHA
+			gen_server:cast(State#state.cco, {components, Components});
+		false ->
+			ok
+	end,
+	%% Dialogue terminated to CHA
+	gen_server:cast(State#state.cco, 'dialogue-terminated'),
+	%% Free dialogue ID
+	{stop, normal, State}.
+
+
 
 %% reference: Figure A.5 bis/Q.774
 %% reference: Figure A.5/Q.774 (sheet 2 of 11)