Remove an iRule from one or more virtual servers. This script will search through the BIG-IP virtual servers for the specified iRule and remove it from any virtual server (not from the system).
How to use this snippet:
Script output
# run cli script delrule.tcl filler2
The filler2 iRule was removed from the following virtuals:
tmshtest2
tmshtest3
tmshtest4
tmshtest5
tmshtest7
tmshtest8
tmshtest9
tmshtest10
Code :
script delrule.tcl {
proc script::run {} {
if { $tmsh::argc != 2 } {
puts "A single rule name must be provided"
exit
}
set rulename [lindex $tmsh::argv 1]
set rules ""
set vips [tmsh::get_config /ltm virtual]
set vips_in_play ""
tmsh::begin_transaction
foreach vip $vips {
# Rule keyword not present
if { [tmsh::get_field_value $vip "rules" rules] == 0 } {
continue
}
# Rule keyword is present, but not $rulename rule
if { [lsearch -exact $rules $rulename] == -1 } {
continue
}
# If only 1 rule applied, can use the none attribute, otherwise, must
# "pop" $rulename from the rule list and re-apply
if { [llength $rules] < 2 } {
tmsh::modify /ltm virtual [tmsh::get_name $vip] rules none
lappend vips_in_play $vip
} else {
set id [lsearch -exact $rules $rulename]
set keepers [lreplace $rules $id $id]
tmsh::modify /ltm virtual [tmsh::get_name $vip] rules "{ $keepers }"
lappend vips_in_play $vip
}
}
tmsh::commit_transaction
puts "The $rulename iRule was removed from the following virtuals: "
foreach x $vips_in_play {
puts "\t[tmsh::get_name $x]"
}
}
}
