I have the ani_filter TCL application running well on a UC520 with IOS 12.4(22)YB4.
 
I am trying to block calls from a telemarketing group that has part of the range 770-452-9xxx. I can block them fine individually, but was wondering if there's an option to wildcard a number range in the 'param clidn', similar to
    UC520(config-app-param)#param clid38 77045296..
 
I've read through the TCL IVR documentation, and I'm not grasping how/if I can control the clid interpretation. I'd like to be able to block  7704529564 through 7704529624, if possible.
 
Also, is there a way to get the param clid staments to display in order? When I sho run, I get what appears to be a jumble:
 
application
 service ani_filter flash:/TCL/ani_filter.tcl
  param clid27 8664339146
  param clid9 7037702249
  param clid10 8772132767
  param clid37 8663005574
  param clid20 3238173539
  param clid19 8883557209
  param clid2 8667849307
  param clid30 4077223516
  param clid29 2057766011
  param clid12 8005476110
  param clid22 8008040057
  param clid4 8776191828
  param clid32 4806492753
  param clid14 2025562270
  param new_dest 700
  param clid6 8662111876
  param clid24 7704529625
  param clid16 8772135152
  param clid34 2057766016
  param clid8 8664315121
  param clid26 8009934685
  param clid36 2057766017
  param clid18 8009421970
  param clid1 2026072579
  param clid11 6782982073
  param clid28 2133216218
  param clid21 3238173582
  param clid3 8883792463
  param clid31 2027477340
  param clid13 8665917737
  param clid5 2485838084
  param clid23 4806033796
  param clid15 8668391376
  param clid33 2012574086
  param clid25 7704529564
  param clid7 3238173529
  param clid17 8772135046
  param clid35 5136392399
 !
This makes it a bit bothersome to find which 'clidn' number to use next when updatin the script.
 
Many thanks,
Joe

Hi Joe,
 
It is not possible to use the wildcard in param clid under the service ani_filter. In the script The loop reads through all configured ¿blocked¿ CLIDs and compares each CLID against the ani. While performing this comparison if we use the wild card for a particular clid means the condition fails and the call can not be blocked or redirected. 
 
I am not very sure of whether there is a way to get the param clid staments to display in order. Though we add the clids in order they get jumbled when we do a show run.
 
Thanks,
Anusha.

Is there a way to have multiple newdest fields?  I have a group of 100 number that are being custom redirected to a single DID.  When you view that call the Calling Number field is what I need to match on but I just want to take the CPN and make it the newdest. 
 
So if 5551212 is the calling number and the called party number is 5551234, I just want to do a one to one matching but for all 100 numbers in my list.
 
dial-peer voice 1 pots
 incoming called-number 5551234
 service ani_filter
 
 
application
  service ani_filter tftp://x.x.x.x/ani_filter.tcl
  param new_dest 5551212
  param clid1 5551212
 
 
So I would like to be able to do this:
 
application

  service ani_filter tftp://x.x.x.x/ani_filter.tcl

  param new_dest1 5551212

  param clid1 5551212
  param new_dest2 5551213


  param clid2 5551213
  param new_dest3 5551214



  param clid3 5551214
  .
  .
  .
 
 
 
 

So the beginning of the script would look like this?
 
 
 
proc init { } {
    global param
}

proc act_Setup { } {
   
    leg setupack leg_incoming

    set dnis [expr $ani + 1]
    set new_dnis [infotag get cfg_avpair new_dest]
    set ani [infotag get leg_ani]
    set ani_deny ""
    set ani_pi [infotag get leg_ani_pi]
    puts "dnis $dnis new_dnis $new_dnis ani $ani ani_pi $ani_pi"
    if { $ani_pi != "presentation_allowed" } {
      set ani ""

I am not sure I understand.  Here is what I have now.  I get the ANI first then added the command from the previous posts.
 
proc init { } {
    global param
}

proc act_Setup { } {
   
    leg setupack leg_incoming


    set ani [infotag get leg_ani]
    set ani_deny ""
    set ani_pi [infotag get leg_ani_pi]
    set dnis [expr $ani + 1]
    set new_dnis [infotag get cfg_avpair new_dest]
    puts "dnis $dnis new_dnis $new_dnis ani $ani ani_pi $ani_pi"
    if { $ani_pi != "presentation_allowed" } {
      set ani ""
    }

    set x 1
    while {1} {
      if {[infotag get cfg_avpair_exists clid$x]} {
        set ani_deny [infotag get cfg_avpair clid$x]
        puts "clid$x = $ani_deny"
        if { $ani == $ani_deny} {
          set dnis $new_dnis
          puts "match clid $ani_deny x=$x"
          break
        }
      } else {
        puts "No more clid at $x"
        break
      }
      incr x
      if { $x > 1000 } { puts "Too many clids" }
    }
    puts "Final dnis $dnis"
    leg proceeding leg_incoming
    leg setup $dnis callInfo leg_incoming
 
 
 
 
Here is my router config:
 
application
  service ani_filter tftp://10.83.25.227/ani_filter.tcl
  param clid1 5556661234
  param new_dest 5556661234
 
THAT WORKS
 
 
I then try:
 
application

  service ani_filter tftp://10.83.25.227/ani_filter.tcl

  param clid1 5556661234

  param new_dest1 5556661234
  param clid2 5556661235


  param new_dest2 5556661235
 
THAT DOES NOT WORK
 
 
The script looks for new_dest and if I put something after that in the router it fails.  I want to capture 99 specific numbers and change them to themselves.

Let's backup a little bit,
 
All you like to do is changing destination number to be incoming number +1, right ?
 
In this case I don't sguuest using  ani_filter.tcl.
Yue need to modify it.
The scirpt will be very simple, don't need any " param " configuration from IOS CLI

something like this :


proc act_Setup { } {
    global dest

    if { [infotag get leg_isdid] } {

    set ani [infotag get leg_ani]
  
    set dest [expr $ani + 1]

        leg proceeding leg_incoming
        leg setup $dest callInfo leg_incoming
        fsm setstate PLACECALL

    } else {
        puts "only for DID"
         call close
    }

}


proc act_CallSetupDone { } {
    set status [infotag get evt_status]
    puts "TCL: Status of leg setup is $status"
    if { $status == "ls_000"} {

     handoff appl leg_all default

  act_Cleanup
    } else {
        act_Cleanup
    }
}

proc act_Cleanup { } {
    call close
}

############# Initializing global varaiables #####################

#------------------
#   State Machine
#----------------------------------
  set fsm(any_state,ev_disconnected)  "act_Cleanup              same_state"
  set fsm(CALL_INIT,ev_setup_indication) "act_Setup            PLACCECALL"

  set fsm(PLACECALL,ev_setup_done)    "act_CallSetupDone    CALLACTIVE"
  set fsm(CALLACTIVE,ev_disconnected)   "act_Cleanup         CALLDISCONNECT"
  set fsm(CALLDISCONNECT,ev_disconnected)   "act_Cleanup         same_state"
  set fsm(CALLDISCONNECT,ev_disconnect_done) "act_Cleanup         same_state"
  fsm define fsm CALL_INIT


 
 
Thank you very much for your help and patience.  I only want to do that for 99 particular numbers.  I would assume if I apply this application to a dial-peer it would translate all calls hitting the dial-peer.  The numbers I want to match on would come in as 4000 - 4099.
 
Thanks,
Chris

This is not exactly what I need.  Lets says that out of all calling numbers coming into the gateway I want to only change 100 of them.  The rest of the numbers need to pass through the gateway untouched.  They need to come in as a calling number and go out to CallManager as the same calling number.  Now, the 100 numbers that need to be translated from calling number to called number will all be a one-for-one match.
 
So if those 100 numbers that need changed begin with 5556664100 and end with 5556664199, those are the only numbers that I want to alter.
 
So if someone called from 5556664200 it should go through as the calling number and not be translated to the called number, but if I see someone calling in from 5556664100 then it should be translated to the called number of 5556664100 and sent along to CallManager. 
 
Sorry for the confusion and thank you for the help.
 
Chris