Forum Discussion
Ramya_68133
Sep 18, 2013Nimbostratus
Thank you Joe!
- Sep 23, 2013My pleasure! If that worked for you, can you mark it as correct? Thanks!
- Ramya_68133Sep 23, 2013NimbostratusThank 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_68133Sep 23, 2013Nimbostratusmy $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; }