Forum Discussion

Nimbostratus

Sep 12, 2013

get_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

devops

iControl

Ramya_68133

Nimbostratus

Sep 18, 2013

Thank you Joe!

Joe_Pruitt
Sep 23, 2013
My pleasure! If that worked for you, can you mark it as correct? Thanks!
Ramya_68133
Nimbostratus
Sep 23, 2013
Thank you Joe, I just added one more get_object_status along with get_member method to get all address, port availability, status but its not pulling anything Any suggestion is greatly appreciated 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; }
Ramya_68133
Nimbostratus
Sep 23, 2013
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; }