TCL Script - disconnecting call with cause 34

[brothaluca]

Hi,

I try to develop TCL script that will disconnect call with cause 34 immediatelly when call reaches dial-peer that tcl-script is assigned. To be more detailed: dial-peer that tcl application would be assigned should be outgoing voip dial-peer on Session Border Controller box. Any suggestions?

[paolo bevilacqua]

Sure, use the "leg disconnect" command and you can specify the cause code.

Hope this helps, please rate post if it does!

[brothaluca]

Thanks for fast answer;) I try with following script:

---

proc act_Cleanup { } {

leg disconnect leg_all -c34

call close

}

set fsm(CALL_INIT,ev_any_event) "act_Cleanup same_state"

fsm define fsm CALL_INIT

---

but my calls are still disconnected with cause 16 ;(

Any suggestions?

[brothaluca]

Ok, I found the bug: I need to assign service to dial-peer in outbound direction:

service c34 out-bound

Now works great;)