Virtual Server Connection Limit

I am having some difficulties with trying to get, print and set the connection limit for a Virtual Server. Below is a snippet of where I am at. Any help would be greatly appreciated.

 

 

----------------------------------------------------------------------------

 

get connection limit

 

----------------------------------------------------------------------------

 

sub handle_get()

 

{

 

$soapResponse = $VirtualServer->get_connection_limit

 

(

 

SOAP::Data->name( virtual_servers => [$sVS] )

 

 

);

 

&checkResponse($soapResponse);

 

my @connectionlimit = @{$soapResponse->result};

 

$stat = @connectionlimit;

 

$type = $stat->{"type"};

 

$value = $stat->{"value"};

 

$low = $value->{"low"};

 

$high = $value->{"high"};

 

$value64 = ($high<<32)|$low;

 

print " Virtual Server: $sVS";

 

print " type: $type Connection Limit: $value64\n";

 

 

}

 

 

 

----------------------------------------------------------------------------

 

set connection limit

 

----------------------------------------------------------------------------

 

sub handle_set()

 

{

 

$soapResponse = $VirtualServer->set_connection_limit

 

(

 

SOAP::Data->name( virtual_servers => [$sVS] ),

 

SOAP::Data->name( limits => [$sLimit] )

 

);

 

&checkResponse($soapResponse);

 

}