[cisco-voip] Outbound tcl script

[Mauro Celli]

I need a simple outbound tcl script.
It must block the calls if the clid it does not belong to an Array of given clid.
I have tried this simple script, but when it executes  "leg setup $dnis callInfo leg_incoming",
it goes in loop, as it comes executed continuously.
Why???
Thnaks



proc init { } {
puts "\Outbound.tcl Debug: In init process."
}

proc do_setup { } {
    global dnis
    set dnis [infotag get evt_handoff dnis]
    fsm setstate PLACING_CALL
    puts "\Outbound.tcl Debug: In do_setup process. Dnis=$dnis"
    leg setup $dnis callInfo leg_incoming
}


proc do_cleanup { } {
    puts "\Outbound.tcl Debug: In do_cleanup process."
    call close
    puts "\nEB Debug: Clean and close call"
}

init

#----------------------------------
#   State Machine
#----------------------------------
#
  set fsm(CALL_INIT,ev_handoff) "do_setup,PLACING_CALL"
  set fsm(any_state,ev_any_event) "do_cleanup,CLEAN_UP"
  fsm define fsm  CALL_INIT

Cordiali saluti
Mauro Celli (work in progress...)
Site: www.2000net.it<http://www.2000net.it/>
13011 Borgosesia (VC) Italy
Via XXV Aprile,41
Tel.   0163.209111
Fax.  0163 .209301
Supporto tecnico: 0163 .209561
Email: mauro.celli at 2000net.it<mailto:mauro.celli at 2000net.it>

[cid:image001.gif at 01CADAED.D8FF1320]


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://puck.nether.net/pipermail/cisco-voip/attachments/20100413/43eb278e/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image001.gif
Type: image/gif
Size: 924 bytes
Desc: image001.gif
URL: <https://puck.nether.net/pipermail/cisco-voip/attachments/20100413/43eb278e/attachment.gif>