Forum Discussion
Ramya_68133
Nimbostratus
Nimbostratusget_member_v2 method perl code
I am looking for sample code in perl for get_member_v2 method to pull the pool member list.I would really appareciate if some one can give me inputs on that
Appreciate your help
Thanks
Ramya_68133Nimbostratus
NimbostratusThank you Joe!
Ramya_68133Nimbostratus
Nimbostratusmy $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;
}
