GLobalLB examples for Perl

I am not proficient at writing iControl scripts and could really use some help with this. We are migrating from a 3-DNS 4.5 environment to a GTM 9.3.1 environment, and I am finding that the 3dpipe and iControl commands that we used don't work anymore. I could really use some examples of what to use, and how to implement it (I really struggle with this stuff!).

 

 

Previously, we had a Perl script that used a combination of SSH, 3dpipe and iControl statements to check status of virtual servers configured for wideip's and then enable/disable a virtual server depending on what datacenter needed to be active for that URL.

 

 

The commands that were used were:

 

 

3dpipe wideip $wideip pool show

 

3dpipe wideip $wideip pool $pool virtual show

 

 

and,

 

 

iControl statements that enable/disable, as follows:

 

 

my $soap = SOAP::Lite

 

-> uri('urn:iControl:ITCMGlobalLB/BaseServer')

 

-> readable(1)

 

-> proxy("https://$host:443/iControl/iControlPortal.cgi");

 

 

$soap_response = $soap->enable_virtual_server(

 

SOAP::Data->name(

 

vs => $vs_definition

 

)

 

 

What are the corresponding 9.3.1 iControl commands that can be used to do these things? Any examples would be greatly appreciate!

 

 

Thank you