'/Common/10.116.38.51', 10.116.38.51:1935, enabled:ENABLED, availability:GREEN
'/Common/10.116.38.52', 10.116.38.52:1935, enabled:ENABLED, availability:GREEN
####
print Dumper(@status);
$VAR1 = bless( [ bless( { 'address' => '/Common/10.116.38.51', 'port' => '80' }, 'Common::AddressPort' ), bless( { 'address' => '/Common/10.116.38.52', 'port' => '80' }, 'Common::AddressPort' ) ], 'Common::AddressPort[]' ); $VAR2 = bless( [ bless( { 'availability_status' => 'AVAILABILITY_STATUS_GREEN', 'status_description' => 'Pool member is available', 'enabled_status' => 'ENABLED_STATUS_ENABLED' }, 'LocalLB::ObjectStatus' ), bless( { 'availability_status' => 'AVAILABILITY_STATUS_GREEN', 'status_description' => 'Pool member is available', 'enabled_status' => 'ENABLED_STATUS_ENABLED' }, 'LocalLB::ObjectStatus' ) ], 'LocalLB::ObjectStatus[]' );
####
my $membershref =
$bigip->locallb_get_member_v2( $bigip_host,
$pool );
if ( !$membershref ){
printError("Failed to find members for $pool");
}
else {
# if ( !$membershref );
print ''; # Pool Members
foreach my $member ( sort keys %{$membershref} ) {
print li(
"'$member', $membershref->{$member}->{'address'}:$membershref->{$member}->{'port'},
enabled:$membershref->{$member}->{'enabled'}, availability:$memb
ershref->{$member}->{'availability'}"
);
}
print '
';
####
'HASH(0xbafd04)', :, enabled:, availability: