 Rok Tisler | Hi,
I would like to record inbound calls from TCL IVR script. I have problem, that only inbound call-leg gets recorded. Dont know what am I doing wrong. Can someone point me to the right direction. Here is my script:
proc init { } {
global prompt
if {[infotag get cfg_avpair_exists prompt]} {
set prompt [infotag get cfg_avpair prompt]
} else {
set prompt "flash:prompt.au"
}
}
proc Setup { } {
set callInfo(mode) "redirect_rotary"
leg setup [infotag get leg_dnis] callInfo leg_incoming
}
proc CallSetupDone { } {
set status [infotag get evt_status]
puts "**** evt_status = $status ****"
if { $status != "ls_000"} {
puts "**** error ***"
call close
}
set datum [clock format [clock seconds] -format %d_%m_%Y_%H_%M_%S]
set recordInfo(codec) g711alaw
set recordInfo(finalSilence) 0
set recordInfo(dtmfTerm) disable
set recordInfo(maxDuration) 900000
set recordInfo(maxMemory) 7200000
set recordInfo(fileFormat) au
set recordInfo(beep) nobeep
set url [format %s%s%s "tftp://192.168.1.100/" $datum "_inbound.au"]
set url2 [format %s%s%s "tftp://192.168.1.100/" $datum "_outbound.au"]
puts "*** Recording Start ***"
media record leg_incoming -p recordInfo $url
puts [infotag get leg_all]
# media record leg_outgoing -p recordInfo $url2
}
proc MediaPlay { } {
global prompt
leg setupack leg_incoming
leg proceeding leg_incoming
leg connect leg_incoming
media play leg_incoming $prompt
}
proc Cleanup { } {
call close
}
init
#----------------------------------
# State Machine
#----------------------------------
set FSM(CALL_INIT,ev_setup_indication) "MediaPlay,PROMPT"
set FSM(PROMPT,ev_media_done) "Setup,PLACECALL"
set FSM(PLACECALL,ev_setup_done) "CallSetupDone,CALLACTIVE"
set FSM(CALLACTIVE,ev_disconnected) "Cleanup,CALLDISCONNECTED"
set FSM(CALLDISCONNECTED,ev_disconnect_done) "Cleanup,CALLDISCONNECTED"
set FSM(any_state,ev_any_event) "Cleanup,same_state"
fsm define FSM CALL_INIT
|
