From 75c35570e95d5931230cf1256f077675f6bab862 Mon Sep 17 00:00:00 2001 From: Harald Welte Date: Sat, 22 Oct 2011 19:54:12 +0200 Subject: [PATCH] ISM: actually generate REJECT components --- TCAP/src/ITU/tcap_ism_fsm.erl | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/TCAP/src/ITU/tcap_ism_fsm.erl b/TCAP/src/ITU/tcap_ism_fsm.erl index f6bbf28..7518789 100644 --- a/TCAP/src/ITU/tcap_ism_fsm.erl +++ b/TCAP/src/ITU/tcap_ism_fsm.erl @@ -164,7 +164,12 @@ op_sent_cl2(#'TC-U-REJECT'{}, State) -> op_sent_cl2(Op, State) when is_record(Op, 'TC-RESULT-L'); is_record(Op, 'TC-RESULT-NL') -> - % Generate RJ component to CCO + % Generate REJ component to CCO + Problem = {'ReturnResultProblem', resultResponseUnexpected}, + Reject = #'TC-R-REJECT'{dialogueID = Satate#state.dialogueId, + invokeID = State#state.invokeId, + problemCode = Problem}, + gen_server:cast(State#state.cco, {reject_component, Reject}), % stop invocation timer timer:cancel(State#state.inv_timer), % terminate @@ -197,7 +202,12 @@ op_sent_cl4('terminate', State) -> {stop, terminate_req, State}; op_sent_cl4(Op, State) -> % Figure A.7/Q.774 (6 of 6) - % FIXME: generate RJ component to CCO + % generate REJ component to CCO + Problem = {'ReturnResultProblem', resultResponseUnexpected}, + Reject = #'TC-R-REJECT'{dialogueID = Satate#state.dialogueId, + invokeID = State#state.invokeId, + problemCode = Problem}, + gen_server:cast(State#state.cco, {reject_component, Reject}), % stop invocation timer timer:cancel(State#state.inv_timer), % terminate