Yes, you can do this with Tcl IVR API.
 
Please check out the sample Tcl scripts in the Tech center you should be able to get some idea from sample scripts.
 

You got this to work because your phones are in CME correct?  I tried to get the B-ACD app to send the call to a dial-peer that sends the call to CCM but it didn't work.

We have this working but we don't want the user to have to enter any digits or wait for the timeout.  We are using the its-CISCO.2.0.2.0.tcl script.    We want to play the Welcome prompt then just transfer the user to the operator param.  When the script gets to this section, we want to just do a transfer to the $oprtr value.
 

You just like to play a message to caller before connecting to called party right ?
So you can remove most of stuff, something like the follwoing should do the job.
 
 
# initialize the parameters that configured from IOS CLI
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:en_bacd_welcome.au
    }
 
}
#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

 
 
With the above config, where would I enter the number that the calls would transfer to?  Would it be configurable in the service params or would it be hardcoded in the script?

 
Ok, I would like to use your code, but I need a paramater to set the transfer extension.  I added a couple things but still doesn't transfer for me.
 
 
# initialize the parameters that configured from IOS CLI
proc init_configs { }  {
    global welcomePrompt
    global oprtr

    if [infotag get cfg_avpair_exists welcome-prompt] {
       setwelcomePrompt [string trim [infotag get cfg_avpair welwome-prompt]]
    } else {
       set welcomePrompt flash:en_welcome.au
    }
    if [infotag get cfg_avpair_exists operator] {
        set oprtr [string trim [infotag get cfg_avpair operator]]
    } else {
        set oprtr "NONE"
    }
}
#procedure to play audio file on incoming dial peer
proc act_Media { } {
    global dest
    global welcomePrompt
    global oprtr
  
    set dest $oprtr

    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 callappl 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
 
 
 
 
 
 
It works and I can now play the recording to the caller, and what ever I have setup for operator it will transfer to that number.   Here is the "debug voice application error" output from a call.
 
 
 
000728: Feb 17 15:08:04.494 EST: //99//TCL :/tcl_PutsObjCmd: >>> Tcl: proc act_Setup <<<
000729: Feb 17 15:08:04.494 EST:
000730: Feb 17 15:08:04.494 EST: //99//TCL :/tcl_PutsObjCmd: >>> TCL:Final Dest: 55001 <<<
000731: Feb 17 15:08:04.494 EST:
000732: Feb 17 15:08:04.494 EST: //-1//AFW_:/AFW_Module_ParseHandle: ERROR: Separator not found
000733: Feb 17 15:08:04.494 EST: //99//TCL :/tcl_PutsObjCmd: >>> Tcl: act_Cleanup <<<
000734: Feb 17 15:08:04.494 EST:
000735: Feb 17 15:08:04.494 EST: //99//Hand:/AFW_M_Handoff_Terminate:  Can't cleanup, 1 calls out
000736: Feb 17 15:08:04.494 EST: //-1//AFW_:/AFW_Util_GetTgCicValue: CIC Not  found for tag(56)
000737: Feb 17 15:08:05.758 EST: //99//Dest:/DestStartMediaNegotiation: Interworking Leg does not need renegotiation
000738: Feb 17 15:08:23.194 EST: //99//AFW_:/Session_HandoffReturn: Cannot return leg with connections
000739: Feb 17 15:08:23.194 EST: //99//AFW_:/Session_HandoffReturn: No incoming leg to handoff return
000740: Feb 17 15:08:23.202 EST: //99//AFW_:/Session_HandoffReturn: No incoming leg to handoff return

I'm trying to setup generic script which just plays message then transfers call (without specifically defined number)
I'm using Yaw-Ming Chen's first sample script, but I get this error :

The incoming call has a global identifier already present in the list of currently handled calls. It is being refused.

what am I doing wrong - any suggestions ?

The result I'm trying to achieve is to play one message (e.g. your calls may be recorded) - catch all with one dial-peer, and then redirect it to CUCM
is it possible ?

all that you've asked for in attachments
 
regards,
MM

Attachments:

Hi, IOS image is :
c3900-universalk9-mz.SPA.151-4.M2.bin

thanks,
MM

proc act_Setup { } {

global oprtr

puts ">>> Tcl: proc act_Setup <<<"
puts ">>> TCL:Final Dest: $oprtr <<<"

handoff appl leg_incoming default "DESTINATION=$oprtr"
call close
}


If you have problem to do handoff you can try "leg setup" first to see what is the setup status. Once setup is successful then do handoff.