ps Pool Lookup

Problem this snippet solves:

This PowerShell application will do a reverse lookup for pools given a pool member definition.

Pool's are collections of pool members which are IP address and ports for a specific back end application server. Currently through the iControl API there is no direct way to do a reverse lookup of which pools a specified application server is a member of. This application will, given a pool member specification, do a reverse lookup and list all the associated pools that member is included in.

Code :

#----------------------------------------------------------------------------
# The contents of this file are subject to the "END USER LICENSE AGREEMENT FOR F5
# Software Development Kit for iControl"; you may not use this file except in
# compliance with the License. The License is included in the iControl
# Software Development Kit.
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is iControl Code and related documentation
# distributed by F5.
#
# The Initial Developer of the Original Code is F5 Networks,
# Inc. Seattle, WA, USA. Portions created by F5 are Copyright (C) 1996-2009 F5 Networks,
# Inc. All Rights Reserved.  iControl (TM) is a registered trademark of F5 Networks, Inc.
#
# Alternatively, the contents of this file may be used under the terms
# of the GNU General Public License (the "GPL"), in which case the
# provisions of GPL are applicable instead of those above.  If you wish
# to allow use of your version of this file only under the terms of the
# GPL and not to allow others to use your version of this file under the
# License, indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by the GPL.
# If you do not delete the provisions above, a recipient may use your
# version of this file under either the License or the GPL.
#----------------------------------------------------------------------------
param (
  $bigip = $null,
  $user = $null,
  $pass = $null,
  $poolmember = $null
);

Set-PSDebug -strict;

#-------------------------------------------------------------------------
# function Write-Usage
#-------------------------------------------------------------------------
function Write-Usage()
{
  Write-Host "Usage: PoolLookup.ps1 host uid pwd [poolmember]";
  exit;
}

#-------------------------------------------------------------------------
# function Write-Match
#-------------------------------------------------------------------------
function Write-Match()
{
  param(
    [string]$pool = $null,
    [string]$address = $null,
    [int]$port = $null
  );
  if ( $pool -and $address -and $port )
  {
    $obj = 1 | select PoolMember, Pool
    $obj.PoolMember = "${address}:${port}";
    $obj.Pool = $pool;
    $obj;
  }
}

#-------------------------------------------------------------------------
# Lookup-Pool
#-------------------------------------------------------------------------
function Lookup-Pool()
{
  param([string]$query = $null);

  $addr = "*";
  $port = "*";

  if ( $query )
  {
    $addr = $query;
    $tokens = $query.Split(':');
    if ( $tokens.Length -eq 2 )
    {
      $addr = $tokens[0];
      $port = $tokens[1];
    }
    if ( !$addr ) { $addr = "*"; }
    if ( !$port ) { $port = "*"; }
  }

  $pool_list = (Get-F5.iControl).LocalLBPool.get_list();
  $member_lists = (Get-F5.iControl).LocalLBPool.get_member($pool_list);

  for($i=0; $i-lt$pool_list.Length; $i++)
  {
    $pool = $pool_list[$i];
    $member_list = $member_lists[$i];
    
    for($j=0; $j-lt$member_list.Length; $j++)
    {
      $maddr = $member_list[$j].address;
      $mport = $member_list[$j].port;
      
      if ( !($query) -or ("${maddr}:${mport}" -like "${addr}:${port}") )
      {
        Write-Match -pool $pool -address $maddr -port $mport;
      }
    }
    
  }
}

#-------------------------------------------------------------------------
# Do-Initialize
#-------------------------------------------------------------------------
function Do-Initialize()
{
  if ( (Get-PSSnapin | Where-Object { $_.Name -eq "iControlSnapIn"}) -eq $null )
  {
    Add-PSSnapIn iControlSnapIn
  }
  $success = Initialize-F5.iControl -HostName $bigip -Username $user -Password $pass;
  
  return $success;
}

#-------------------------------------------------------------------------
# Main Application Logic
#-------------------------------------------------------------------------
if ( ($bigip -eq $null) -or ($user -eq $null) -or ($pass -eq $null) )
{
  Write-Usage;
}

if ( Do-Initialize )
{
  if ( $poolmember )
  {
    Lookup-Pool $poolmember;
  }
  else
  {
    Lookup-Pool;
  }
}
else
{
  Write-Error "ERROR: iControl subsystem not initialized"
}