iRUle to check current pool member and show if its up.

Here is one example. Keep in mind that this is not dynamic. You have to add to the class object everytime you want something monitored.

     
    class xpools {    
              "pool_1/192.168.12.1:80"    
              "pool_1/192.168.12.3:80"    
              "pool_3/192.168.13.1:80"    
    }    
   

   
    when HTTP_REQUEST {    
        
            if { [HTTP::uri] eq "/status" } {    
                    set response "BIGIP Pool Member Status - \    <br>                    [clock format [clock seconds]]BIGIP Pool Member Status - [clock format [clock seconds]]\    
                    StatusPool NameMemberPort"                                                foreach { selectedpool } $::xpools {                                if { [catch {                                        scan [split [getfield $selectedpool " " 1] "/"] %s%s poolname addrport                                        scan [split $addrport ":"] %s%d addr port                                        switch -glob [LB::status pool $poolname member $addr $port] {                                                "up" {                                                        append response "UP\                                                        [string tolower $poolname]$addr$port"                                                }                                                "down" {                                                         append response "DOWN\                                                        [string tolower $poolname]$addr$port"                                                }                                                "session_enabled" {                                                         append response "ENABLED\                                                        [string tolower $poolname]$addr$port"                                                }                                                "session_disabled" {                                                         append response "DISABLED\                                                        [string tolower $poolname]$addr$port"                                                }                                                Default {                                                        append response "INVALID\                                                        [string tolower $poolname]$addr$port"                                                }                                        }                                        SWITCH END                                } errmsg] } {                                         append response "INVALID\                                                [string tolower $poolname]$addr$port"                                        }                        }                        append response ""      
                    HTTP::respond 200 content $response "Content-Type" "text/html"    
            }    
    

I hope this helps

Bhattman