Hi Oleksandr,
which script you are using ? could you please explain in more detail.
Thanks,
Raghavendra
I need to reduce latency connection to the operator after the ansvering IVR. Now it takes about 20 seconds, I need 10 sec.
There is the body of script:
# Script Locked by: khom
# Script Version: 2.0.1.0
# Script Name: its_CISCO
# Script Lock Date: Wed Jul 2 09:22:04 2003
#------------------------------------------------------------------
# November 27, 2001, Satish Ananthanarayana (
sanantha@cisco.com)
#
# Copyright (c) 2001 by cisco Systems, Inc.
# All rights reserved.
#------------------------------------------------------------------
#
# Description:
# This is a TCL IVR script for the IOS Telephony Service and
# Call Manager (CM) offload scenario. The IVR script plays a
# welcome prompt to the user and prompts the user to enter a
# destination number when the user dials the auto-attendant number
# (aa-pilot configured in the CLI). The script collects the digits that
# the user has entered and hands the call to the enhanced session
# application (named Default). The session application
# returns once there is a disconnect (if the call is established)
# or if a call setup problem occurs.
# The operator support is also included, if the user does not dial
# any number or enters "0" the user will be transfered to an operator
# (if operator number is configured in the CLI). If the user enters
# an invalid number, the user will be prompted again to re-enter
# the number for upto 3 times before disconnecting the call.
#
#-------------------------------------------------------------------
#
proc init { } {
global param1
global selectCnt
global callInfo
global legConnected
set param1(interruptPrompt) true
set param1(abortKey) *
set param1(terminationKey) #
set selectCnt 0
set legConnected false
}
proc init_ConfigVars { } {
global destination
global aaPilot
global oprtr
# aa-pilot is the IVR number configured on the gateway to be used by the customer
# operator is the operator number for assisted calling
if [infotag get cfg_avpair_exists aa-pilot] {
set aaPilot [string trim [infotag get cfg_avpair aa-pilot]]
} else {
set aaPilot "NONE"
}
if [infotag get cfg_avpair_exists operator] {
set oprtr [string trim [infotag get cfg_avpair operator]]
} else {
set oprtr "NONE"
}
}
proc init_perCallVars { } {
puts "\nproc init_perCallvars"
global ani
global digit_enabled
global fcnt
global retrycnt
global dnis
set fcnt 0
set retrycnt 6
set ani ""
set dnis ""
set digit_enabled "FALSE"
set ani [infotag get leg_ani]
puts "\nANI $ani"
set dnis [infotag get leg_dnis]
puts "\nDNIS $dnis"
}
proc act_Setup { } {
global param1
global selectCnt
global dest
global beep
global callInfo
global dnis
global fcnt
global aaPilot
global oprtr
global busyPrompt
global legConnected
puts "proc act_Setup"
set busyPrompt flash:en_dest_unreachable.au
set beep 0
init_perCallVars
infotag set med_language 1
if { ($dnis == "") || ($dnis == $aaPilot) } {
leg setupack leg_incoming
leg proceeding leg_incoming
leg connect leg_incoming
set legConnected true
puts "\nNo DNIS\n"
set param1(dialPlan) true
leg collectdigits leg_incoming param1
media play leg_incoming flash:porsche-co-welcome.au
} else {
set fcnt 6
leg setupack leg_incoming
handoff callappl leg_incoming default "DESTINATION=$dnis"
fsm setstate HANDOFF
}
}
proc act_GotDest { } {
global dest
global callInfo
global oprtr
global busyPrompt
puts "\n proc act_GotDest"
set status [infotag get evt_status]
set callInfo(alertTime) 30
if { ($status == "cd_004") } {
set dest [infotag get evt_dcdigits]
if { $dest == "0" } {
set dest $oprtr
}
handoff callappl leg_incoming default "DESTINATION=$dest"
} elseif { ($status == "cd_001") || ($status == "cd_002") } {
set dest $oprtr
handoff callappl leg_incoming default "DESTINATION=$dest"
} else {
if { $status == "cd_006" } {
set busyPrompt flash:en_dest_unreachable.au
}
puts "\nCall [infotag get con_all] got event $status collecting destination"
set dest [infotag get evt_dcdigits]
if { $dest == "0" } {
set dest $oprtr
handoff callappl leg_incoming default "DESTINATION=$dest"
} else {
act_Select
}
}
}
proc act_CallSetupDone { } {
global busyPrompt
global legConnected
set status [infotag get evt_handoff_string]
if { [string length $status] != 0} {
regexp {([0-9][0-9][0-9])} $status StatusCode
puts "IP IVR Disconnect Status = $status"
switch $StatusCode {
"016" {
puts "\n Connection success"
fsm setstate CONTINUE
act_Cleanup
}
default {
if { $legConnected == "false" } {
leg proceeding leg_incoming
leg connect leg_incoming
set legConnected true
}
puts "\n Call failed. Play prompt and collect digit"
if { ($StatusCode == "017") } {
set busyPrompt flash:en_dest_busy.au
}
act_Select
}
}
} else {
puts "\n Caller disconnected"
fsm setstate CALLDISCONNECT
act_Cleanup
}
}
proc act_Select { } {
global destination
global promptFlag2
global destBusy
global param1
global fcnt
global retrycnt
global busyPrompt
puts "\n proc act_Select"
set promptFlag2 0
set param1(interruptPrompt) true
set param1(abortKey) *
set param1(terminationKey) #
set param1(dialPlan) true
set param1(dialPlanTerm) true
leg collectdigits leg_incoming param1
if { $fcnt < $retrycnt } {
media play leg_incoming $busyPrompt %s500 flash:en_reenter_dest.au
incr fcnt
fsm setstate GETDEST
} else {
act_DestBusy
}
}
proc act_DestBusy { } {
puts "\n proc act_DestBusy"
media play leg_incoming flash:en_disconnect.au
fsm setstate CALLDISCONNECT
}
proc act_Cleanup { } {
call close
}
requiredversion 2.0
init
init_ConfigVars
#----------------------------------
# State Machine
#----------------------------------
set fsm(any_state,ev_disconnected) "act_Cleanup same_state"
set fsm(CALL_INIT,ev_setup_indication) "act_Setup GETDEST"
set fsm(GETDEST,ev_collectdigits_done) "act_GotDest HANDOFF"
set fsm(HANDOFF,ev_returned) "act_CallSetupDone CONTINUE"
set fsm(CALLDISCONNECT,ev_media_done) "act_Cleanup same_state"
fsm define fsm CALL_INIT
# Script Approval Signature: C/775c
