Blocking Calls using TCL scripting

Version 1
    This document was generated from CDN thread

    Created by: ADRIAN PRIDDIN on 13-07-2010 02:45:50 PM
    I am looking for a way to block incoming calls on a PRI before handing allowed calls to CUCM processing.
    I need to be able to
    1. All incoming calls on the PRI that have a 5 digit calling number are passed normally.
    2. Incoming calls on the same PRI that have any 7 digit calling number will only be allowed to specific called numers. Calls to non allowed numbers are dropped.
     
    I currently acheive this using translation-rules but I am limited to only 15 entries and need more...SO a an easy way of adding more would also be useful...

    Subject: RE: Blocking Calls using TCL scripting
    Replied by: Yaw-Ming Chen on 13-07-2010 04:56:11 PM
    Hi,
     
    yes, it looks like you can use Tcl IVR API to do this.
     
    1. Have a dial-peer that take 5 and 7 digits for applying Tcl application (your script)
    2. get calling number -> set ani [infotag get leg_ani], find out the length of calling number
       (for called number use infotag get leg_dnis)
    3. for 5  digits calling numbef just do call setup
    4. for 7 digits check aganist "allow list", if called number is in the list then dp call setup else disconnect the call (may play a message before drop the call)
     
    Thanks !

    Subject: RE: Blocking Calls using TCL scripting
    Replied by: ADRIAN PRIDDIN on 16-07-2010 01:15:00 PM
    Just wondering if you (or anyone else ) have any code that will do the job
     
    Hi,
     
    yes, it looks like you can use Tcl IVR API to do this.
     
    1. Have a dial-peer that take 5 and 7 digits for applying Tcl application (your script)
    2. get calling number -> set ani [infotag get leg_ani], find out the length of calling number
       (for called number use infotag get leg_dnis)
    3. for 5  digits calling numbef just do call setup
    4. for 7 digits check aganist "allow list", if called number is in the list then dp call setup else disconnect the call (may play a message before drop the call)
     
    Thanks !


    Subject: RE: Blocking Calls using TCL scripting
    Replied by: Yaw-Ming Chen on 16-07-2010 02:49:14 PM
    Sorry, I don't have any and I haven't seen any which matchs your scenario.
     
    Thanks,
     
    Yawming

    Subject: RE: Blocking Calls using TCL scripting
    Replied by: paolo bevilacqua on 18-07-2010 12:11:17 PM
    Just wondering if you (or anyone else ) have any code that will do the job



     
    I wrote code to do that. You can contact me at the address present in my profile to acquire it.