Version 

4.0

2.1.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 protection policy to edit, and the node to add 

my $name = "My protection class"; 

my $badIP  = "10.100.1.10"; 

my $conn = SOAP::Lite  

     > uri( 

       http://soap.zeus.com/zxtm/1.0/Catalog/Protection/ ) 

     > proxy("$admin_server/soap") 

     > on_fault( sub  { 

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

         die ref $res ? $res >faultstring : 

             $conn >transport >status; } ); 

$conn >addBannedAddresses( [ $name ], [ [ $badIP ] ] ); 

31