my $poollist =
$LBPool->get_member_v2(
SOAP::Data->name( pool_names => [$poolname] ) );
checkResponse($poollist);
my @poolmemberdefinitionAofA = @{ $poollist->result };
my $soapResponse =
$LBPool->get_member_object_status(
SOAP::Data->name( pool_names => [$poolname], members => [@poolmemberdefinitionAofA] ) );
print $soapResponse;
my %members;
my @statusAofA = @{ $soapResponse->result };
my @statusA = @{ $statusAofA[0] };
foreach my $status (@statusA){
$members{ $status->{"address"}}=
$status->{"port"};
$members{'enabled'} = {$status->{'enabled_status'}};
$members{'availability'} = {$status->{'availability'}};
}
return \%members;
}
Nimbostratus