Forum Discussion

kennemt_50219's avatar
kennemt_50219
Icon for Nimbostratus rankNimbostratus
Sep 20, 2011

set_priority (perl)

Hey all, I'm fairly new to iControl, and I'm trying to write a perl script to dynamically alter member priorities in . I'm working with LTM version 10.2.1 so I have to use the PoolMember interface...
dev
devops
iControl
kennemt_50219's avatar
kennemt_50219
Icon for Nimbostratus rankNimbostratus
Sep 20, 2011
My code formatting seems to have gotten mangled, going to try again for readability.

 

 

$Pool = SOAP::Lite -> uri('urn:iControl:LocalLB/PoolMember') -> proxy("$sProtocol://$ichost/iControl/iControlPortal.cgi");

 

 

$Pool->transport->http_request->header ( 'Authorization' => 'Basic ' . MIME::Base64::encode("$UID:$PWD", '') );

 

 

my $member = { address => "10.100.125.18", port => "443" };

 

 

my $member_priority = ( member => $member, priority => "2" );

 

 

push @memberPriorityList, $member_priority;

 

push @memberPriorityLists, @memberPriorityList;

 

 

$soapResponse = $Pool->set_priority ( SOAP::Data->name(pool_names => ["testpool-443"]), SOAP::Data->name(priorities => [@memberPriorityLists]) );