ZXTM Control API Overview and Reference 

Version 4.0

2.3.1 Perl 

Example 

#!/usr/bin/perl  w 

use SOAP::Lite 0.60; 

# This is the url of the ZXTM admin server 

my $admin_server =  https://username:password@host:9090 ; 

# The virtual server to edit, and the rule to enable 

my $vsName = "Main web site"; 

my $rule   = "Disable Login"; 

# Provide our own Deserializer so that enumerations get 

# deserialized correctly 

BEGIN { 

   package ZeusDeserializer;  

   @ZeusDeserializer::ISA =  SOAP::Deserializer ; 

   sub typecast { 

      my( $self, $val, $name, $attrs, $kids, $type ) = @_; 

      return $val if $type && $type =~ /RuleRunFlag/; 

      return undef; 

   }; 

} 

my $conn = SOAP::Lite 

     > uri( http://soap.zeus.com/zxtm/1.0/VirtualServer/ ) 

     > proxy("$admin_server/soap") 

     > deserializer( ZeusDeserializer >new ) 

     > on_fault( sub  { 

         my( $conn, $res ) = @_; 

         die ref $res ? $res >faultstring : 

             $conn >transport >status; } ); 

# Get a list of rules used by the named virtual server 

my $res = $conn >getRules( [ $vsName ] ); 

my @rules = @{${$res >result}[0]}; 

# Search for the rule to enable 

my $found = 0; 

40