mercadowispmexico
/
signerl
forked from erlang/signerl
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ISM: actually generate REJECT components

This commit is contained in:
Harald Welte 2011-10-22 19:54:12 +02:00
parent 3afbf0a65a
commit 75c35570e9
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
TCAP/src/ITU/tcap_ism_fsm.erl
View File

@ -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