Forcing Priority Group Usage

I have just created this and tested. It is not the cleanest of code but it does work reliably. Perhaps someone with a better programming know-how can tweak it.

when CLIENT_ACCEPTED { backup node Requires the IP Address - Couldn't find a variable for the lower priority node ip set backup_node "172.29.2.95" interval is in milliseconds 60 is very aggressive set interval 60 min is a minimum number of servers to be in the pool while allowing connection to this object. set min 1 set DEBUG 1

 scan [LB::select] %s%s%s%s%d command current_pool command2 current_member current_port  
 eval [LB::select] 

 if { $DEBUG equals 1 } {log local0. "Pool Member Selected $current_member"}

 if { $current_member equals $backup_node } {
    after $interval -periodic {
      if { [active_members $current_pool] > $min } {
         if { $DEBUG equals 1 } {log local0. "Resetting connection"}
         TCP::close
      }
      else
      {
        log local0. "Number of active members in $current_pool [active_members $current_pool]"
      }
    }
 }
 else { log local0. "Sent to primary node $current_member"}

 pool $current_pool

}