04-22-2015 04:14 AM
Hello,
We have created a simple tcl script to extract data from db server.
if we run the script via tcl shell on cube it runs fine. However if we configure it as an application and apply to dial peer we get error
Application drd in dial-peer 31 not found. Handing callid 26664983 to the alternate app .
Any Idea or pointers someone can give us?
its very simple script as below:
proc init {} {
if {[ catch {package require http} ]} { source "tmpsys:lib/tcl/http.tcl" }
set Key "30000"
set url "http://172.29.15.57/test_tcl?sql=execute+rinfo+@Key=$Key"
set token [ http::geturl $url ]
http::wait $token
if {![ string compare [ http::status $token ] "ok" ]} {
puts [ http::data $token ]
} else {
puts stderr [ http::error $token ]
}
http::cleanup $token
}
init
Solved! Go to Solution.
04-22-2015 09:59 PM
Hi Ashish,
Good to know that you got sorted it out.
-command callback (To invoke callback after the HTTP transaction completes)
Thanks,
Raghavendra
04-22-2015 06:17 AM
Hi Ashish,
you can define fsm state as below and move your http code into act_Setup procedure
set TopFSM(any_state,ev_disconnected) "act_Cleanup,same_state"
set TopFSM(CALL_INIT,ev_setup_indication) "act_Setup same_state"
fsm define TopFSM CALL_INIT
Please refer programming guide in below link for sample scripts.
https://developer.cisco.com/site/voice-gateway/overview/
Thanks,
Raghavendra
04-22-2015 08:23 AM
Thanks Raghavendra,It helped but we are now getting this error..!
227710: Apr 22 15:15:36.179: //26703711/42EFE35F84F9/AFW_:/AFW_Leg_UpdateStats: Updating stats for ID 1DE type 1
227711: Apr 22 15:15:36.179: //26703711//PACK:/tcl_packageObjCmd: package require http
227712: Apr 22 15:15:36.179: //26703711//PACK:/PkgRequire: name(http) version() exact(0) rootScript(drd)
227713: Apr 22 15:15:36.179: //-1//PACK:/find_global_package_entry: pkgName(http) exact(0)
227714: Apr 22 15:15:36.179: //26703711//PACK:/PkgRequire: can't find package http
227715: Apr 22 15:15:36.179: //26703711//AFW_:/AFW_FSM_Drive: Tcl_Eval to drive FSM inside Tcl modulespace. code=1 code=ERROR
227716: Apr 22 15:15:36.179: TCL script failure
Result:
invalid command name "source"
227717: Apr 22 15:15:36.179: TCL script failure errorInfo:
invalid command name "source"
while executing
"source "tmpsys:lib/tcl/http.tcl" "
(procedure "act_CallSetup" line 11)
invoked from within
"act_CallSetup"
04-22-2015 12:37 PM
Hi Raghvendra,
Thanks for your help so far , we are moving slowly.
The command you suggested first time to use package ::httpios:geturl is right if we want to iuse tcl ivr script.
However we are getting below error now
241297: Apr 22 19:31:26.144: TCL script failure
Result:
invalid command name "getEndCallResponse"
241298: Apr 22 19:31:26.144: TCL script failure errorInfo:
invalid command name "getEndCallResponse"
while executing
"getEndCallResponse ::httpios::httpios_5"
This was part of your command. if I remove these parameter then I get error "missing parameters".
Is there a list of valid parameter we can use with httpios::geturl command?
Thanks
Ashish
04-22-2015 02:05 PM
Hi Raghvendra,
In the end we got it sorted. We understand that -command is the Proc defined with in the script to retrieve data.
As I said moving slowly...!
Thanks for your help and I will post again if needed further help.
Thanks
Ashish
04-22-2015 09:59 PM
Hi Ashish,
Good to know that you got sorted it out.
-command callback (To invoke callback after the HTTP transaction completes)
Thanks,
Raghavendra
Discover and save your favorite ideas. Come back to expert answers, step-by-step guides, recent topics, and more.
New here? Get started with these tips. How to use Community New member guide