Forum Discussion
c_harish_12981
Nimbostratus
NimbostratusCreate Pool script in PERL
I am looking for "Create Pool" or "CreatePoolWithMembers" script in PERL. Has anybody worked on it?
Thx
JRahm
Admin
AdminThere is a perl add pool member script in the codeshare:
http://devcentral.f5.com/Wiki/default.aspx/iControl/PerlAddPoolMember.html Click here
I stripped out variables and added this into the main loop to demonstrate adding the pool and the members:
added by jrahm
$member =
{
address => "10.10.10.10",
port => "80"
};
push @memberA, $member;
push @memberAofA, [@memberA];
$soapResponse = $Pool->create(
SOAP::Data->name(pool_names => [new_pool]),
SOAP::Data->name(lb_methods => [LB_METHOD_ROUND_ROBIN]),
SOAP::Data->name(members => [@memberAofA])
);
&checkResponse($soapResponse);
This returns:
C:\dev\perl_scripts>perl ltmpool.pl 10.10.20.5 admin admin
POOL : new_pool
MEMBER : 10.10.10.10:80
Michael_Parker_Great example and thanks for the tips. What I am trying to do is script the ARX to take snapshots via a windows host where I run another script which will validate some information on my netapp before issuing the ARX snap. I already have an expect script which I can upload to my arx and I think will work but is there any method to call the script from a windows host? If not, do you have other sugguestion?
Thanks
Michael
![\"F5](\"https://www.f5.com/content/dam/f5/f5-logo.svg\"){kind=logo}
