LTM Pool Status
Problem this snippet solves:
Here's a way to display the status of your pool members using a custom tmsh script.
Code :
create script pool-status.tcl { proc script::run {} { set pool_names "" if { $tmsh::argc == 1} { puts "enter one or more pool names" exit 1 } set pool_names [lrange $tmsh::argv 1 end] foreach pn $pool_names { set total 0 set usable 0 foreach obj [tmsh::get_status /ltm pool $pn detail] { foreach member [tmsh::get''field''value $obj members] { incr total if { [tmsh::get''field''value $member pool-member.status.availability-state] == "available" && [tmsh::get''field''value $member pool-member.status.enabled-state] == "enabled" } { incr usable } } } if { $usable > 0 && [expr 2 * $usable] >= $total } { puts "up: $pn" } else { puts "dn: $pn" } } } }
Published Mar 10, 2015
Version 1.0