proc act_NotifyPlay { } {
...
set incoming [infotag get leg_incoming]
set outgoing [infotag get leg_outgoing]
connection destroy con_all
}
proc act_Beeped { } {
global incoming
global outgoing
connection create $incoming $outgoing
}
proc act_ConnectedAgain { } {
puts "\n------------Connected Again\n"
}
proc act_media_play {} {
global content
if { $content == "1" } {
media play leg_incoming tftp://10.0.0.2/prompts/ru/ru_timeout.au
media play leg_outgoing tftp://10.0.0.2/prompts/ru/ru_timeout.au
puts "\n---FILE ru_timeout.au are played for both sides\n"
}
}
...
set fsm(CALLACTIVE,ev_notify_indication) "act_NotifyPlay CNOTIFIED"
set fsm(CNOTIFIED,ev_destroy_done) "act_media_play MEDIAPLAY"
set fsm(MEDIAPLAY,ev_media_done) "act_Beeped,CALLACTIVEAGAIN"
set fsm(CALLACTIVEAGAIN,ev_create_done) "act_ConnectedAgain,CALLACTIVE"
...
