Previous SDKs

Sorry this has taken a few days to get to, My 4.x dev machine has not been behaving itself lately.

 

 

Anyway, you found a bug in the sample code. Here's the old code

 

 

 
   ... 
   print "VS        : $source->{'addr'}:$source->{'port'}\n"; 
   print "    trans : $translated->{'addr'}:$translated->{'port'}\n"; 
   print "    ratio : $ratio\n"; 
   print "    status: $status\n"; 
   print "    state : $state\n"; 
   $soapResponse2 = $Wideip->get_pool_virtual_server_availability 
   ( 
     SOAP::Data->name(wideip_name => sWideip), 
     SOAP::Data->name(pool_name => $sPool), 
     SOAP::Data->name(vs => $source), 
     SOAP::Data->name(check_vs_dependencies => 1) 
   );

 

 

Spot the bug? Hint, it's in the wideip_name parameter.

 

 

Here's the corrected code.

 

 

 
   ... 
   print "VS        : $source->{'addr'}:$source->{'port'}\n"; 
   print "    trans : $translated->{'addr'}:$translated->{'port'}\n"; 
   print "    ratio : $ratio\n"; 
   print "    status: $status\n"; 
   print "    state : $state\n"; 
   $soapResponse2 = $Wideip->get_pool_virtual_server_availability 
   ( 
     SOAP::Data->name(wideip_name => $sWideip), 
     SOAP::Data->name(pool_name => $sPool), 
     SOAP::Data->name(vs => $source), 
     SOAP::Data->name(check_vs_dependencies => 1) 
   );

 

 

Sorry for the confusion...

 

 

-Joe