Thank you,
I was able to get with our carrier, and test this yesterday. They watched the incoming call, and outgoing call, and they confirmed they are both on the same PRI. I have " isdn supp-service tbct " under the serial interface for that PRI line.
But they told me that they do not receive any request for transfer or tbct at the time call is going back to them. They just see two separate calls, one incoming, and one outgoing.
Here is a final script and dial-peer, and interface configuration, and I do not know what I am missing:
(incoming ) dial-peer voice 9 pots
incoming called-number 4659
service app_sample
port 0/0/0:23
(outgoing) dial-peer voice 30 pots
destination-pattern 89419990748
forward-digit 10
port 0/0/0:23
interface serial 0/0/0:23
isdn supp-service tbct
proc init {} {
global param
set param(interruptPrompt) true
set param(terminationKey) #
infotag set evt_report ev_transfer_request
}
proc act_Setup {} {
leg proceeding leg_incoming
leg connect leg_incoming
media play leg_incoming tftp://10.172.28.134/en_enter_dest.au
}
proc act_MediaDone {} {
global param
global select
set pattern(select) .
set callinfo(alertTime) 30
leg collectdigits leg_incoming param pattern
}
proc act_GotPrompt {} {
global select
set status [infotag get evt_status]
if {$status == "cd_005"} {
set select [infotag get evt_dcdigits]
if {$select == "1"} {
set callInfo(mode) redirect_at_connect
set callInfo(notifyEvents) "ev_transfer_status ev_alert ev_progress"
set callInfo(newguid) true
leg setup 89419990748 callInfo leg_incoming
} elseif {$select == "2"} {
leg setup 4659 callInfo leg_incoming
} else {
puts "you enter wrong number"
act_Select
}
} else {
puts "you did not enter any number"
act_Cleanup
}
}
proc act_CallSetupDone {} {
set status [infotag get evt_status]
if {$status == "ls_000"} {
puts "call has been hairpinned"
} elseif {$status == "ls_040"} {
puts "call transfer sucessful statusis $status"
act_Cleanup
} else {
puts "transfer status is %status"
}
}
proc act_Select {} {
global param
global select
set pattern(select) .
set callinfo(alertTime) 30
leg collectdigits leg_incoming param pattern
media play leg_incoming tftp://10.172.28.134/en_enter_dest.au
fsm setstate MEDIAPLAY
}
proc act_Cleanup {} {
call close
puts "call was disconnected"
}
init
#state Machine
set fsm(any_state,ev_disconnected) "act_Cleanup same_state"
set fsm(CALL_INIT,ev_setup_indication) "act_Setup MEDIAPLAY1"
set fsm(MEDIAPLAY1,ev_media_done) "act_MediaDone MEDIAPLAY"
set fsm(MEDIAPLAY,ev_collectdigits_done) "act_GotPrompt PLACECALL"
set fsm(PLACECALL,ev_setup_done) "act_CallSetupDone CALLACTIVE"
set fsm(PLACECALL,ev_transfer_status) "act_CallSetupDone same_state"
set fsm(CALLACTIVE,ev_disconnected) "act_Cleanup CALLDISCONNECT"
set fsm(CALLDISCONNECT,ev_disconnected) "act_Cleanup same_state"
fsm define fsm CALL_INIT
