this script is giving me a "Value isn't an array at ./serverdrain.pl line 14." error #!/usr/bin/perl -w use SOAP::Lite 0.60; # This is the url and password of the ZXTM admin server my $admin_server = ' https://username:
[email protected]:9090'; # The pool to edit, and the nodes to drain my $poolName = shift @ARGV; my @theNodes = @ARGV; # Create the SOAP Connection object my $conn = SOAP::Lite -> ns(' http://soap.zeus.com/zxtm/1.0/Pool/ ') -> proxy("$admin_server/soap") -> on_fault( sub { my( $conn, $res ) = @_; die ref $res?$res->faultstring:$conn->transport->status; } ); # Start the nodes draining my $res = $conn->addDrainingNodes( [ $poolName ], [ @theNodes ] );
... View more