Toggle Node Address
Problem this snippet solves:
The script will toggle the state of a node. If no node address is specified, the script will display a list of nodes available. For a valid node address, the script will query the node state and then set the state to the opposite.
Code :
#!/usr/bin/perl #---------------------------------------------------------------------------- # The contents of this file are subject to the iControl Public License # Version 9.2 (the "License"); you may not use this file except in # compliance with the License. You may obtain a copy of the License at # http://www.f5.com/. # # Software distributed under the License is distributed on an "AS IS" # basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See # the License for the specific language governing rights and limitations # under the License. # # The Original Code is iControl Code and related documentation # distributed by F5. # # The Initial Developer of the Original Code is F5 Networks, # Inc. Seattle, WA, USA. Portions created by F5 are Copyright (C) 1996-2005 # F5 Networks, Inc. All Rights Reserved. iControl (TM) is a registered # trademark of F5 Networks, Inc. # # Alternatively, the contents of this file may be used under the terms # of the GNU General Public License (the "GPL"), in which case the # provisions of GPL are applicable instead of those above. If you wish # to allow use of your version of this file only under the terms of the # GPL and not to allow others to use your version of this file under the # License, indicate your decision by deleting the provisions above and # replace them with the notice and other provisions required by the GPL. # If you do not delete the provisions above, a recipient may use your # version of this file under either the License or the GPL. #---------------------------------------------------------------------------- #use SOAP::Lite + trace => qw(method debug); use SOAP::Lite; #---------------------------------------------------------------------------- # Validate Arguments #---------------------------------------------------------------------------- my $sHost = $ARGV[0]; my $sPort = $ARGV[1]; my $sUID = $ARGV[2]; my $sPWD = $ARGV[3]; my $sNode = $ARGV[4]; my $sProtocol = "https"; sub usage() { die ("Usage: toggleNode.pl host port uid pwd [[node_ip] [enable|disable]] \n"); } if ( ($sHost eq "") or ($sPort eq "") or ($sUID eq "") or ($sPWD eq "") ) { usage(); } if ( ("80" eq $sPort) or ("8080" eq $sPort) ) { $sProtocol = "http"; } #---------------------------------------------------------------------------- # Transport Information #---------------------------------------------------------------------------- sub SOAP::Transport::HTTP::Client::get_basic_credentials--> { return "$sUID" => "$sPWD"; } $NodeAddress = SOAP::Lite -> uri('urn -> readable(1) -> proxy("$sProtocol://$sHost:$sPort/iControl/iControlPortal.cgi"); eval { $NodeAddress->transport->http_request->header ( 'Authorization' => 'Basic ' . MIME::Base64::encode("$sUID:$sPWD", '')--> ); }; sub SOAP::Deserializer::typecast--> { my ($self, $value, $name, $attrs, $children, $type) = @_; my $retval = undef; if ( "{urn:iControl}Common.EnabledState" == $type ) { $retval = $value; } return $retval; } if ( "" eq $sNode ) { #------------------------------------------------------------------------ # Query Node List #------------------------------------------------------------------------ $soapResponse = $NodeAddress->get_list(); &checkResponse($soapResponse); print "Available Nodes:\n"; my $nodeNumber = 0; my @node_list = @{$soapResponse->result}; foreach my $node (@node_list) { print "\t[$nodeNumber] = '$node'\n"; $nodeNumber++; } } else { #-------------------------------------------------------------------- # Query enabled state for given Node #-------------------------------------------------------------------- $soapResponse = $NodeAddress->get_session_enabled_state ( SOAP::Data->name ( node_addresses => [$sNode] ) ); &checkResponse($soapResponse); @enabled_state_list = @{$soapResponse->result}; $enabled_state = @enabled_state_list[0]; #---------------------------------------------------------------- # Set the state to be toggled to. #---------------------------------------------------------------- if ( "STATE_ENABLED" eq $enabled_state ) { $toggleState = "STATE_DISABLED"; } else { $toggleState = "STATE_ENABLED"; } #---------------------------------------------------------------- # Toggle the State #---------------------------------------------------------------- $soapResponse = $NodeAddress->set_session_enabled_state ( SOAP::Data->name(node_addresses => [$sNode]), SOAP::Data->name(states => [$toggleState]) ); &checkResponse($soapResponse); #------------------------------------------------------------ # Print status #------------------------------------------------------------ print "Node $sNode state set from '$enabled_state' to '$toggleState'\n"; } #---------------------------------------------------------------------------- # checkResponse #---------------------------------------------------------------------------- sub checkResponse() { my ($soapResponse) = (@_); if ( $soapResponse->fault ) { print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n"; exit(); } }
Published Mar 09, 2015
Version 1.0CodeCentral_194
Cirrus
Joined May 05, 2019
CodeCentral_194
Cirrus
Joined May 05, 2019
No CommentsBe the first to comment