Perl Script to check GTM Wideip and its associated Pool status

This Perl script will query the status and state of Wideip and its Associated Pool and pool member state

How to use this snippet:

Use:

gtmstate.pl < gtmsyncmember> < user> < pass> < wideip>

gtmstate.pl

#!/usr/bin/perl

use SOAP::Lite;
use Data::Dumper;

my $BIGIP = $ARGV[0];
my $User = $ARGV[1];
my $Pass = $ARGV[2];
my $sWideIP = $ARGV[3];


sub SOAP::Transport::HTTP::Client::get_basic_credentials
{
  return "$User" => "$Pass";
}


&getWideIPPoolList($sWideIP);


sub SOAP::Deserializer::typecast
{
  my ($self, $value, $name, $attrs, $children, $type) = @_;
  my $retval = undef;
  if ( "{urn:iControl}GlobalLB.LBMethod" == $type )
  {
    $retval = $value;
  }
  return $retval;
}

sub GetInterface()
{
  my ($module, $name) = @_;

  $interface = SOAP::Lite
    -> uri("urn:iControl:$module/$name")
    -> readable(1)
    -> proxy("https://$BIGIP/iControl/iControlPortal.cgi");
  eval { $interface->transport->http_request->header
  ( 'Authorization' => 'Basic ' . MIME::Base64::encode("$User:$Pass", '') ); };

  return $interface;
}


sub getWideIPPoolList()
{
  my ($wideIP) = @_;

  print "WIDEIP: $wideIP\n";
  $GTMWideip = &GetInterface("GlobalLB", "WideIP");  

  $soapResponse = $GTMWideip->get_wideip_pool(SOAP::Data->name(wide_ips => [$wideIP]));
  $soapResponse2 = $GTMWideip->get_enabled_state(SOAP::Data->name(wide_ips => [$wideIP])); 
  $soapResponse3 = $GTMWideip->get_object_status(SOAP::Data->name(wide_ips => [$wideIP])); 


  @WideIPPoolAofA = @{$soapResponse->result};
  @WideIPPoolA = @{@WideIPPoolAofA[0]}; 

  @states =@{$soapResponse2->result};
  @avail=@{$soapResponse3->result};

  print "Wideip State::@states\n";
  foreach $availa (@avail)
  {
   $availb=$availa->{"availability_status"};
   print "Wideip Status:$availb\n";
   }  


  foreach $WideIPPool (@WideIPPoolA)
  {
    $pool_name = $WideIPPool->{"pool_name"};
    print "  Pool $pool_name\n";
    &getWideIPPoolMemberList($pool_name);

 }

}

sub getWideIPPoolMemberList()
{
  my ($pool) = @_;  
  $GTMPool = &GetInterface("GlobalLB", "Pool");
  $GTMPoolmember=&GetInterface("GlobalLB","PoolMember");

  $soapResponse = $GTMPool->get_member(SOAP::Data->name(pool_names => [$pool]) );
  $soapResponse2=$GTMPool->get_enabled_state(SOAP::Data->name(pool_names => [$pool]));
  $soapResponse3=$GTMPool->get_object_status(SOAP::Data->name(pool_names => [$pool]));

  @states = @{$soapResponse2->result};
  @poolstate = @{$soapResponse3->result};


  foreach $poolavail (@poolstate)
  {
   $pools=$poolavail->{"availability_status"};
   print "Pool Status:$pools\n";
   }


  @PoolMemberDefinitionAofA = @{$soapResponse->result};
  @PoolMemberDefinitionA = @{@PoolMemberDefinitionAofA[0]};

  foreach $PoolMemberDefinition(@PoolMemberDefinitionA)
  {
    $member = $PoolMemberDefinition->{"member"};
    $address = $member->{"address"};
    $port = $member->{"port"};
    print "  MEMBER: ${address}{port}:STATE:@states\n";
   }

}