TCL Script issue on a cisco Gateway when incoming call with analog line

marc.obrecht · ‎06-08-2012

Hello every body, I have an issue with a tcl script.

I have created a script to play a welcome prompt on the incoming dial peer on a Cisco Gateway.

When a user with a voip phone or a gsm try to call a number behind the gateway, everything is fine the number entirely sended, the promt is played and the call goes out the gateway to the call manager.

When a user with a phone behind an old analog line try to call, the prompt is not played and we have a busy tone before we have dialed the last two digit.

I think it's the overlap which is not working fine because the script try to start before the gateway have collected the entire number but I do not know how to fix it.

Here is the configuration of the incoming dial peer :

dial-peer voice 102 pots

trunkgroup 1

description CALL_INCOMING_FROM_PSTN_POTS

incoming called-number .T

service annonce

direct-inward-dial

----------------------------------------------------------------

Here is the outgoing dial peer to the CUCM:

dial-peer voice 202 voip
description CALL_OUTGOING_TO_CUCM

destination-pattern .T

progress_ind setup enable 3
voice-class codec 1
voice-class h323 1
session target ipv4:172.16.211.11
dtmf-relay h245-alphanumeric
ip qos dscp cs3 signaling
no vad
--------------------------------------------

Here is the script :

proc init_configs { } {

global welcomePrompt

if [infotag get cfg_avpair_exists welcome-prompt] {

setwelcomePrompt [string trim [infotag get cfg_avpair welwome-prompt]]

} else {

set welcomePrompt flash:bcpannonce2.wav

}

#procedure to play audio file on incoming dial peer

proc act_Media { } {

global dest

global welcomePrompt

set dest [infotag get leg_dnis]

leg setupack leg_incoming

leg proceeding leg_incoming

leg connect leg_incoming

media play leg_incoming $welcomePrompt

}

# setup the call, connect caller to called party

proc act_Setup { } {

global dest

puts ">>> Tcl: proc act_Setup <<<"

puts ">>> TCL:Final Dest: $dest <<<"

handoff appl leg_incoming default "DESTINATION=$dest"

act_Cleanup

}

# disconnect the call

proc act_Cleanup { } {

puts ">>> Tcl: act_Cleanup <<<"

call close

}

init_configs

set fsm(any_state,ev_disconnected) "act_Cleanup same_state"

set fsm(CALL_INIT,ev_setup_indication) "act_Media PLAYPROMPT"

set fsm(PLAYPROMPT,ev_media_done) "act_Setup PLACECALL"

set fsm(PLACECALL,ev_disconnected) "act_Cleanup CALLDISCONNECT"

set fsm(CALLDISCONNECT,ev_disconnected) "act_Cleanup same_state"

set fsm(CALLDISCONNECT,ev_media_done) "act_Cleanup same_state"

set fsm(CALLDISCONNECT,ev_disconnect_done) "act_Cleanup same_state"

fsm define fsm CALL_INIT

-------------------------------------------

And here is the debug when the analog line try to call a phone behind the gateway:

.Jun 7 17:11:36: ISDN BR0/0/1 Q931: RX <- SETUP pd = 8 callref = 0x01

Bearer Capability i = 0x9090A3

Standard = CCITT

Transfer Capability = 3.1kHz Audio

Transfer Mode = Circuit

Transfer Rate = 64 kbit/s

Channel ID i = 0x89

Progress Ind i = 0x8283 - Origination address is non-ISDN

Calling Party Number i = 0x00A3, N/A

Plan:Unknown, Type:Unknown

Called Party Number i = 0x81, '2'

Plan:ISDN, Type:Unknown