Hello,
 
I need to know if there is a method using a TCL script that force a call disconnect after a certain duration.

If yes, kindly provide me with the needed/required steps.
 
Many thanks

Dear Raghavendra,

Thank you for your video and document, they were really helpful.

However, i seem to have something missing, here's my script:

proc act_Timer { }
{
global DURATION
set DURATION 20

while{1}
{
set currenttime [infotag get leg_settlement_time leg_outgoing]
if { $currenttime >= $DURATION }
{
connection destroy con_all
}
}
}

proc act_Cleanup { }
{
call close
}

init
#----------------------------------
# State Machine
#----------------------------------
set fsm(any_state,ev_disconnected) "act_Cleanup,same_state"
set fsm(CALLACTIVE,ev_leg_timer) "act_Timer,CALLDISCONNECTED"
set fsm(CALLACTIVE,ev_disconnected) "act_Cleanup,CALLDISCONNECTED"
set fsm(CALLDISCONNECTED,ev_disconnected) "act_Cleanup,same_state"
set fsm(CALLDISCONNECTED,ev_disconnect_done) "act_Cleanup,same_state"



I have loaded the script into the router, applied it under a dial-peer, but i get a "configured" state:

Script Name : tcltest
URL : tftp://1.1.1.1/tcltest.tcl
Type : Service
State: Loaded
Life : Configured
Exec Instances: 0

Script Code Begin:
--------------------------------
....

Shouldn't it be registered as per your video ?
Please let me know what i have done wrong, and how to fix it.

Thanks a lot for your assistance,
Michel

Hi!
 
Did you make the script???
 
it works?
 
Can you help me? I wanna do the same, tell me how did you do.
 
Send me your example please...
 
Thanks a lot... =)

Not quite sure what you mean "We have Call Manager 6.1 . We need to disconnect calls after 10 min or 5 min ".
But Tcl is used for Cisco voice gateway or CME. Tcl is not for the Call Manager.