forked from erlang/signerl
ISM: actually generate REJECT components
This commit is contained in:
parent
3afbf0a65a
commit
75c35570e9
|
@ -164,7 +164,12 @@ op_sent_cl2(#'TC-U-REJECT'{}, State) ->
|
||||||
op_sent_cl2(Op, State) when
|
op_sent_cl2(Op, State) when
|
||||||
is_record(Op, 'TC-RESULT-L');
|
is_record(Op, 'TC-RESULT-L');
|
||||||
is_record(Op, 'TC-RESULT-NL') ->
|
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
|
% stop invocation timer
|
||||||
timer:cancel(State#state.inv_timer),
|
timer:cancel(State#state.inv_timer),
|
||||||
% terminate
|
% terminate
|
||||||
|
@ -197,7 +202,12 @@ op_sent_cl4('terminate', State) ->
|
||||||
{stop, terminate_req, State};
|
{stop, terminate_req, State};
|
||||||
op_sent_cl4(Op, State) ->
|
op_sent_cl4(Op, State) ->
|
||||||
% Figure A.7/Q.774 (6 of 6)
|
% 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
|
% stop invocation timer
|
||||||
timer:cancel(State#state.inv_timer),
|
timer:cancel(State#state.inv_timer),
|
||||||
% terminate
|
% terminate
|
||||||
|
|
Loading…
Reference in New Issue