I'm having some configuration issues so I can't completely test this successfully, but I'm fairly confident it will work for creating a couple of pools
pool 1
push @pool_list, "wideip_pool1";
push @lb_methods, "LB_METHOD_ROUND_ROBIN";
$member =
{
member => { address => "10.10.10.10", port => 80 },
order => 1
};
push @MemberList, $member;
$member =
{
member => { address => "10.10.10.20", port => 8080 },
order => 2
};
push @MemberList, $member;
push @membersAofA, [@MemberList];
pool 2
push @pool_list, "wideip_pool2";
push @lb_methods, "LB_METHOD_ROUND_ROBIN";
$member =
{
member => { address => "10.10.10.30", port => 80 },
order => 1
};
push @MemberList2, $member;
$member =
{
member => { address => "10.10.10.40", port => 8080 },
order => 2
};
push @MemberList2, $member;
push @membersAofA, [@MemberList2];
$soapResponse = $GlobalLBPool->create (
SOAP::Data->name(pool_names => [@pool_list]),
SOAP::Data->name(lb_methods => [@lb_methods]),
SOAP::Data->name(members => [@membersAofA])
);
Let me know if it returns an error.
-Joe