problem using LocalLB.Pool.add_member

This code is working perfect and I don't need to do all that stuff with creating temporary arrays or whatever..

 

Either way, it looks like both of our ways work.

 

add a member to a pool

 

my $members = {

 

member =>

 

{ address => '10.10.138.254',

 

port => '22'

 

},

 

member2 =>

 

{ address => '10.10.138.253',

 

port => '22'

 

},

 

};

 

my $res = $local_pool->add_pool_member(

 

names => $pool_name,

 

member => $members,

 

) or die "Couldn't add pool member $pool_name\n";

 

 

sub add_pool_member {

 

my $self = shift;

 

my %args = @_;

 

 

my $pool_names = $args{'names'};

 

my $member = $args{'member'};

 

 

my $pool = $self->{'object'};

 

 

my $soap_response = $pool->add_member(

 

SOAP::Data->name( pool_names => [$pool_names] ),

 

SOAP::Data->name( members => [$member] ),

 

);

 

 

die "Bad SOAP response!" unless ($self->check_response($soap_response));

 

}