Enable/Disable pool member

use SOAP::Lite; use UNIVERSAL 'isa';

$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;

my $sHost = "xxxxxxx";

my $sUID = admin; EM User (administrator role) my $sPWD = "yyyyyy"; EM Password my $sPoolMember = $ARGV[0]; BIG-IP Pool Member my $sState = $ARGV[1]; BIG-IP Pool Member State: enable/disable

my $proxy_uri = sprintf(" $sHost); my $soap = SOAP::Lite->proxy($proxy_uri);

sub SOAP::Transport::HTTP::Client::get_basic_credentials { return $sUID => $sPWD; }

sub checkResponse() { my ($soapResponse) = (@_); if ( $soapResponse->fault ) { print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n"; exit(); } }

sub getPoolList() {

$soapResponse = $soap->uri("urn:iControl:LocalLB/Pool")->get_list();
&checkResponse($soapResponse);
my @get_list = @{$soapResponse->result};

return @get_list;

}

@value = getPoolList();

foreach $a (@value){ print "value of a: $a\n"; }

I got the list from only /common partition Is there any way to get all the list from all partition.