Hello all! I have been working on a TCL script that performs an external query for CNAM lookups and then modifies the From field in the SIP header to include the returned CNAM then continues with the call. I have this applied to the inbound dial peer from my SIP provider. This process works just fine. I can see the query happen, I get my CNAM data back and then I have it continue to call the original destination which needs to be translated to the pattern for my extensions that live either on Call Manager or Asterisk. So depending on the inbound DNIS, I route the call differently via a translation profile applied to the same dial peer. However, once the script completes, it doesn't apply the translation profile either before nor after script termination and therefore, there is no outbound dial peer matched so the call fails. How can I get around this? From what I read, the order of operations would be the translation rules first. I shouldn't have to be forced to program a mechanism into my script to do the translation. The following are the translations that I have setup:
voice translation-rule 1
rule 1 /514586287/ /6060/
rule 2 /8885758460/ /6060/
rule 3 /8883562243/ /6061/
rule 4 /199839654/ /6068/
rule 5 /532100339/ /6067/
voice translation-profile callwithus
translate called 1
This is then applied to the incoming dial peer along with the TCL script:
dial-peer voice 1 voip
description Incoming calls from callwithus
translation-profile incoming callwithus
call-block translation-profile incoming call_block
call-block disconnect-cause incoming invalid-number
service cnam_lookup
session protocol sipv2
session transport udp
incoming called-number .
dtmf-relay rtp-nte
codec g711ulaw
no vad
Without the script applied, calls come in, get translated to the appropriate extension and then match the appropriate outbound dial-peer to get shipped off to their destination correctly:
dial-peer voice 1000 voip
description To Call Manager
destination-pattern 606.$
session protocol sipv2
session target ipv4:10.22.169.160
session transport udp
incoming called-number 606.$
voice-class codec 1
dtmf-relay rtp-nte sip-notify
dial-peer voice 1001 voip
description To Asterisk
destination-pattern 606[78]
session protocol sipv2
session target ipv4:192.168.60.250
session transport udp
no voice-class sip early-offer forced
no voice-class sip pass-thru content sdp
dtmf-relay rtp-nte sip-notify
codec g711ulaw
ip qos dscp cs5 media
ip qos dscp cs4 signaling
With the script applied, however, when everything finishes, I still get the destination as the original DNIS called (since that's what I can retrieve from the call and I set it to continue to that destination) and the translation profile never gets evaluated or applied. How can I have these work in tandem or somehow retrieve the translated destination from the call within the TCL script?
Here is the working script:
proc init {} {
global param
global dnis
global dn
global ani
global ani_pi
global requested_cnam
}
proc act_Setup {} {
global dnis
leg setupack leg_incoming
set ani [infotag get leg_username]
set cid_original [infotag get leg_display_info]
puts "\n Calling Number is $cid_original"
set ani_pi [infotag get leg_ani_pi]
if { $ani_pi != "presentation_allowed" } {
set ani ""
}
if {[infotag get cfg_avpair_exists cnam-lookup]} {
set cnam_flag [infotag get cfg_avpair cnam-lookup]
switch $cnam_flag {
0 {
puts "\n No CNAM lookup will be performed"
act_CID_DID "$cid_original"
}
1 {
puts "\n Let's try to get the CNAM for this caller..."
get_cnam "$ani"
}
default {
puts "\n Invalid option or no option specified for CNAM lookup. CNAM lookups will not be performed."
act_CID_DID "$cid_original"
}
}
}
}
proc act_CID_DID {CNAM} {
puts "IN CID/DID CHECK ROUTINE AND CNAM IS \"$CNAM\""
set dnis [infotag get leg_dnis]
set dest [regexp {(\d+)} $dnis whole dest_num]
set ani [infotag get leg_username]
set cid_current [infotag get leg_display_info leg_incoming]
switch $CNAM {
"" {
puts "\n No CNAM specified so it will be set to the calling number, $cid_current"
set CNAM "$cid_current"
}
" " {
puts "\n No CNAM specified so it will be set to the calling number, $cid_current"
set CNAM "$cid_current"
}
default {
puts "\n The CNAM is $CNAM"
}
}
puts "\n DNIS is $dnis"
puts "\n Destination is $dest_num"
place_call "$dest_num" "$CNAM"
}
proc get_cnam {number} {
global requested_cnam
if {[infotag get cfg_avpair_exists url]} {
set lookup_url [infotag get cfg_avpair url]
} else {
puts "\n No URL specified for CNAM lookup - syntax 'param url http://url.com'"
return -code return
}
switch $number {
anonymous {
puts "No CNAM lookup performed on anonymous callers"
return
}
default {
httpios::geturl "$lookup_url$number" -command cnam_data
}
}
}
proc cnam_data {token} {
set callback_status [httpios::status $token]
if {[string compare $callback_status ok] == 0} {
set requested_cnam [httpios::data $token]
if {$requested_cnam != ""} {
puts "Response=$requested_cnam"
httpios::cleanup $token
act_CID_DID "$requested_cnam"
}
} else {
httpios::cleanup $token
act_CID_DID ""
}
}
proc act_Ignore {} {
# Procedure to ignore events
puts "Ignore this here --> IGNORE"
}
proc place_call {called_num caller_name} {
# Gather SIP header information
set From_Header [infotag get leg_proto_headers "From"]
set SIP_From [regexp {.+(<sip:.+@.+)} $From_Header whole_string 2nd_Section]
puts "\n The second half of the SIP From Header is $2nd_Section"
puts "\n Updating the SIP From field to include the caller name, \"$caller_name\""
set SIP_String "\"$caller_name\" "
append SIP_String $2nd_Section
puts "\n SIP From Header is modified to be $SIP_String"
# Set CNAM Information
set callInfo(displayInfo) "$caller_name"
set callInfo(originationNum) "$called_num"
set headers(From) $SIP_String
set callInfo(protoHeaders) headers
set param(name) "$caller_name"
set param(number) "$called_num"
leg callerid leg_incoming param
# Insert a brief pause before continuing....
timer start leg_time 4 leg_incoming
# Place the call
puts "\n Ring, Ring... Incoming call from $caller_name"
leg proceeding leg_incoming
leg setup "$called_num" callInfo leg_incoming
}
proc act_CallSetupDone {} {
set status [infotag get evt_status]
puts "\n Call Status is $status"
if {$status == "ls_000"} {
puts "\n Call was successful"
} else {
puts "\n There was an error in connecting the call"
call close
}
}
proc act_Cleanup {} {
puts "Entering act_Cleanup"
call close
}
init
#----------------------------------
# State Machine
#----------------------------------
set TopFSM(any_state,ev_disconnected) "act_Cleanup,same_state"
set TopFSM(CALL_INIT,ev_setup_indication) "act_Setup,PLACECALL"
set TopFSM(PLACECALL,ev_leg_timer) "act_Ignore,same_state"
set TopFSM(PLACECALL,ev_setup_done) "act_CallSetupDone,CALLACTIVE"
#set TopFSM(CALLACTIVE,ev_setup_done) "act_Ignore,same_state"
set TopFSM(CALLACTIVE,ev_disconnected) "act_Cleanup,CALLDISCONNECT"
set TopFSM(CALLDISCONNECT,ev_disconnect_done) "act_Cleanup,same_state"
fsm define TopFSM CALL_INIT
Thanks for reading. Any suggestions or assistance is greatly appreciated!
-Matt
