Hi All
 
I'm having some problem with my out-bound tcl script. I wrote a tcl script that works on a pots dial-peer in out-bound direction. The problem is that, when the called number is busy, I still hear ringing tone in the calling phone instead of busy tone.
 
What would you suggest?
 
Regards
 
 
 
proc init { } {

    package require httpios
   
    global token
   
    set event [infotag get evt_event]
    log "Service Successfully Loaded !!! $event"
   
}

proc act_GetHTTP { } {

   ...
   
   
   
        set url "http://xxx/yyy.aspx/?dnis=$dnisorj&ani=$anicleared"   
        set token [httpios::geturl "$url" -command act_RequestResult -timeout 1]
   
   
    leg setup $dnis callInfo leg_incoming
   
}


proc act_RequestResult {token} {
   
...
}

proc act_Cleanup { } {

    set evt_name [infotag get evt_event]
   
    log "!!! $event_name"
   
    call close
}

Hi Raghavendra

It seems to be the problem is still there.. When I put

set TopFSM(any_state,ev_disconnected_done) "act_Cleanup, same_state"

the call does not go out from the dial-peer that I want and goes out from another pots dial peer.

when I put

set TopFSM(any_state,ev_disconnected) "act_Cleanup, same_state"

then the call goes out from my dial peer and the service works. But, timer becomes visible on the phone, but still no busy tone is heard.


Regards