Compatibility issue

  
  .....  
  ..... set up code, also populate $sPool variable  
  .....  
  ------------------------------------------------------------------------  
   Get Member List  
  ------------------------------------------------------------------------  
  
  (@member_list) = getPoolMemberList($sPool);  
  foreach my $member (@member_list)  
  {  
  print $member->{"address"}, ":", $member->{"port"}, ", ";  
  }  
    
  ----------------------------------------------------------------------------  
   Get the list of pool members  
  ----------------------------------------------------------------------------  
  sub getPoolMemberList()  
  {  
  my ($poolName) = @_;  
  my @members;  
  my $soap_response =  
  $soap->get_member_list  
  (  
  SOAP::Data->name ( pool_name => $poolName )  
  );  
  if ( $soap_response->fault )  
  {  
  print $soap_response->faultcode, "\n";  
  print $soap_response->faultstring, "\n";  
  exit("");  
  }  
  else  
  {  
  @members = @{$soap_response->result};  
  }  
  return @members;  
  }  
    
  

 
 !/usr/bin/perl 
  
 require "dumpvar.pl"; 
 use strict; 
 use SOAP::Lite; 
  
 my ($user, $pwd); 
  
 sub SOAP::Transport::HTTP::Client::get_basic_credentials { 
     return $user => $pwd; 
 } 
  
 sub getF5Pools { 
     my $url = shift; 
     my($soap, $soapResponse, $result); 
      
     $soap = SOAP::Lite 
           ->uri('urn:iControl:ITCMLocalLB/Pool') 
           ->proxy($url) || die "Can't connect\n"; 
     $soapResponse = $soap->get_list(); 
     if ( $soapResponse->fault ) { 
         return [] if $soapResponse->faultstring =~  
           /The requested item does not exist/i; 
         return "Error getting Pools: " . 
           $soapResponse->faultcode . " " . 
           $soapResponse->faultstring; 
     } 
     return $soapResponse->result; 
 } 
  
 sub getF5PoolsMembers { 
     my $url = shift; 
     my $pools = shift; 
     my($p, $soap, $soapResponse, $r); 
     $soap = SOAP::Lite 
           ->uri('urn:iControl:ITCMLocalLB/Pool') 
           ->proxy($url) || die "Can't connect\n"; 
     $r = []; 
     for $p ( @$pools ) { 
         $soapResponse = $soap->get_member_list( 
             SOAP::Data->name('pool_name' => $p) 
         ); 
         if ( ! $soapResponse->fault ) { 
             push @$r, [ $p, $soapResponse->result]; 
         } 
     } 
     return $r; 
 } 
  
  
 sub main { 
     my ($ip, $url, $r, $p, $m); 
     $ip = $ARGV[0]; 
     $user = $ARGV[1]; 
     $pwd = $ARGV[2]; 
     $url = "https://$ip/iControl/iControlPortal.cgi";     
      
     $r = getF5Pools($url); 
     $r = getF5PoolsMembers($url, $r); 
     for $p ( @$r ) { 
         print "Pool: " . 
           $p->[0] . " "; 
         for $m ( @{$p->[1]} ) { 
             print $m->{'address'} . ":" . $m->{'port'} . " ";        
         } 
         print "\n"; 
     } 
 } 
  
 main; 
  
 1; 
 

sub getIPAddress 
 { 
   my ($ipaddr) = @_; 
   my $value = $ipaddr; 
  
    Look for a "." in the value to determine whether 
    we need to convert to a string 
   if ( $ipaddr !~ /\./) { 
     my $a = ($ipaddr >> 24) & 0x000000FF; 
     my $b = ($ipaddr >> 16) & 0x000000FF; 
     my $c = ($ipaddr >> 8 ) & 0x000000FF; 
     my $d = ($ipaddr      ) & 0x000000FF; 
     $value = "$a.$b.$c.$d"; 
   } 
   return $value; 
 }   
    
  sub main {  
      my ($ip, $url, $r, $p, $m);  
      $ip = $ARGV[0];  
      $user = $ARGV[1];  
      $pwd = $ARGV[2];  
      $url = "http://$ip/iControl/iControlPortal.cgi";      
        
      $r = getF5Pools($url);  
      $r = getF5PoolsMembers($url, $r);  
      for $p ( @$r ) {  
          print "Pool: " .  
            $p->[0] . " ";  
          for $m ( @{$p->[1]} ) {  
              print &getIPAddress($m->{'address'}) . ":" . $m->{'port'} . " ";         
          }  
          print "\n";  
      }  
  }