Cisco H.323 gateway with FXS port transfer via TCL script

Ultimately, I want to accept hookflash transfers on a T1 CAS fxs-loop-start trunk connected to an older IVR with a Dialogic T1 card.  Before I test in production, I wanted to verify this script version reliability and configuration options.  Here I am simply using an analog telephone on an VIC2-FXS card, rather than a VWIC2-1MFT-T1/E1 port connected to the Dialogic card.

Using app-h450-transfer.2.0.0.10.tcl, etc. from Cisco's site.


H.323 gateway at 192.168.1.45 is on CUCM at 10.199.2.1. It's a Cisco 2811 with VIC2-2FXS port installed at 0/1/0 with IOS version c2800nm-ipvoicek9-mz.124-22.YB2.bin

!
! NOTE: the entries here are case sensitive.
! Run "show flash:" to verify the directory and TCL script name
!
! The WORD "transfer" below is defined by me and could be any friendly name
! It's used on dial-peers later.
!
! The "param delay-time 0" entry defines how long to wait for the consultation setup
! The script default is 2 seconds.
! Here I've chosen to require no setup time.
! This requires no time between the when the XTO digits are dialed and the XOR hangs up.
!
application
service transfer flash:app-h450-transfer.2.0.0.10.tcl
paramspace english index 0
paramspace english language en
paramspace english location flash:/PROMPTS/EN/
paramspace english prefix en
param delay-time 0
!
! Just binding H.323 to the Ethernet interface.
!
interface FastEthernet0/0
ip address 192.168.1.45 255.255.255.0
duplex full
speed auto
no mop enabled
h323-gateway voip interface
h323-gateway voip bind srcaddr 192.168.1.45
!
! NOTE: here I adjust what an acceptable hookflash duration is from the XOR
!
voice-port 0/1/0
timing hookflash-in 750 150
description *** XOR ***
!
! NOTE: here we associate the service called transfer that is defined above with the incoming voip dial-peer.
! Now a the CUCM knows what to do with a hookflash signal when sending the gateway a call to 1300.
!
dial-peer voice 100 voip
service transfer
voice-class h323 1
incoming called-number 1300
dtmf-relay h245-alphanumeric
codec g711ulaw
no vad
!
! NOTE: here we look for 1300 and send the call to port 0/1/0.
!
dial-peer voice 12 pots
destination-pattern 1300
port 0/1/0
forward-digits 0
!
! NOTE: here we allow the XOR to dial [1-8]... on CUCM to transfer to.
!
dial-peer voice 101 voip
destination-pattern [1-8]...
voice-class h323 1
session target ipv4:10.199.2.1
dtmf-relay h245-alphanumeric
codec g711ulaw
no vad

Now when CUCM user dials 1300 and call is sent to this H.323 gateway, the analog phone at port 0/1/0 rings. The 1300 user can answer, hookflash, dial any other 4 digits and hang up. The callee hears MoH from flash momentarily and is transfered to whatever was dialed.

!
! For reference, here is the "show flash" output
!
-#- --length-- -----date/time------ path

1 47509252 Jun 08 2009 15:44:12 c2800nm-ipvoicek9-mz.124-22.YB2.bin
2 92882 Mar 13 2008 14:18:32 app-h450-transfer.2.0.0.10.tcl
3 0 May 25 2011 16:38:20 PROMPTS
4 0 May 25 2011 16:38:20 PROMPTS/EN
5 21108 Sep 29 2003 15:05:06 PROMPTS/EN/en_author_fail_alaw.au
6 21108 Sep 29 2003 15:05:02 PROMPTS/EN/en_author_fail_ulaw.au
7 96024 Sep 29 2003 15:05:10 PROMPTS/EN/en_busy_tone_alaw.au
8 96024 Sep 29 2003 15:05:04 PROMPTS/EN/en_busy_tone_ulaw.au
9 54172 Sep 29 2003 15:05:02 PROMPTS/EN/en_dest_blocked_alaw.au
10 54172 Sep 29 2003 15:05:08 PROMPTS/EN/en_dest_blocked_ulaw.au
11 42484 Sep 29 2003 15:05:06 PROMPTS/EN/en_dest_busy_alaw.au
12 42484 Sep 29 2003 15:05:02 PROMPTS/EN/en_dest_busy_ulaw.au
13 12668 Sep 29 2003 15:05:08 PROMPTS/EN/en_disconnected_alaw.au
14 12668 Sep 29 2003 15:05:02 PROMPTS/EN/en_disconnected_ulaw.au
15 19512 Sep 29 2003 15:05:06 PROMPTS/EN/en_enter_dest_alaw.au
16 19512 Sep 29 2003 15:05:00 PROMPTS/EN/en_enter_dest_ulaw.au
17 31832 Sep 29 2003 15:05:02 PROMPTS/EN/en_fast_busy_tone_alaw.au
18 31832 Sep 29 2003 15:05:00 PROMPTS/EN/en_fast_busy_tone_ulaw.au
19 496521 Sep 29 2003 15:05:00 PROMPTS/EN/en_music_xferee_alaw.au
20 496521 Sep 29 2003 15:05:08 PROMPTS/EN/en_music_xferee_ulaw.au
21 496521 Sep 29 2003 15:05:10 PROMPTS/EN/en_music_xferto_alaw.au
22 496521 Sep 29 2003 15:05:04 PROMPTS/EN/en_music_xferto_ulaw.au
23 35456 Sep 29 2003 15:05:06 PROMPTS/EN/en_no_dest_entered_alaw.au
24 35456 Sep 29 2003 15:05:02 PROMPTS/EN/en_no_dest_entered_ulaw.au
25 23506 Sep 29 2003 15:05:06 PROMPTS/EN/en_no_service_available_alaw.au
26 23506 Sep 29 2003 15:05:00 PROMPTS/EN/en_no_service_available_ulaw.au
27 42484 Sep 29 2003 15:05:04 PROMPTS/EN/en_operator_is_busy_alaw.au
28 42484 Sep 29 2003 15:05:00 PROMPTS/EN/en_operator_is_busy_ulaw.au
29 17159 Sep 29 2003 15:05:02 PROMPTS/EN/en_reenter_dest_alaw.au
30 17167 Sep 29 2003 15:05:10 PROMPTS/EN/en_reenter_dest_ulaw.au
31 200024 Sep 29 2003 15:05:08 PROMPTS/EN/en_ringback_tone_alaw.au
32 200024 Sep 29 2003 15:05:04 PROMPTS/EN/en_ringback_tone_ulaw.au