此脚本用于控制F5设备，可对pool成员进行操作及成员状态，该脚本及源自于f5官网

使用格式：

1.查看pool成员状态

/usr/bin/perl /scripts/togglepoolmember.pl  F5设备IP 443(port) 用户 password pool名称

2.pool成员对内对外操作

/usr/bin/perl /scripts/togglepoolmember.pl  F5设备IP 443(port) 用户 password pool名称 pool成员IP:port

#!/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 $sPool = $ARGV[4];

my $sNodeAddr = $ARGV[5];

my $sProtocol = "https";

sub usage()

{

        die ("Usage: togglePoolMember.pl host port uid pwd [pool [addr:port]]\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";

}

$Pool = SOAP::Lite

        -> uri('urn:iControl:LocalLB/Pool')

        -> readable(1)

        -> proxy("$sProtocol://$sHost:$sPort/iControl/iControlPortal.cgi");

$PoolMember = SOAP::Lite

        -> uri('urn:iControl:LocalLB/PoolMember')

        -> readable(1)

        -> proxy("$sProtocol://$sHost:$sPort/iControl/iControlPortal.cgi");

#----------------------------------------------------------------------------

# Attempt to add auth headers to avoid dual-round trip

#----------------------------------------------------------------------------

eval { $Pool->transport->http_request->header

(

        'Authorization' =>

        'Basic ' . MIME::Base64::encode("$sUID:$sPWD", '')

); };

eval { $Pool->transport->http_request->header

(

        'Authorization' =>

        'Basic ' . MIME::Base64::encode("$sUID:$sPWD", '')

); };

#----------------------------------------------------------------------------

# support for custom enum types

#----------------------------------------------------------------------------

sub SOAP::Deserializer::typecast

{

        my ($self, $value, $name, $attrs, $children, $type) = @_;

        my $retval = undef;

        if ( "{urn:iControl}Common.EnabledState" == $type )

        {

                $retval = $value;

        }

        return $retval;

}

#----------------------------------------------------------------------------

# Main logic

#----------------------------------------------------------------------------

if ( "" eq $sPool )

{

        #------------------------------------------------------------------------

        # No pool supplied.  Query pool list and display members for given pool

        #------------------------------------------------------------------------

        $soapResponse = $Pool->get_list();

        &checkResponse($soapResponse);

        @pool_list = @{$soapResponse->result};

        &showPoolMembers(@pool_list);

}

elsif ( "" eq $sNodeAddr )

{

        #------------------------------------------------------------------------

        # Pool supplied, but now member so display given pools members

        #------------------------------------------------------------------------

        &showPoolMembers($sPool);

}

else

{

        #------------------------------------------------------------------------

        # both pool and member supplied so toggle the specified member.

        #------------------------------------------------------------------------

        &togglePoolMember($sPool, $sNodeAddr);

}

#----------------------------------------------------------------------------

# Show list of pools and members

#----------------------------------------------------------------------------

sub showPoolMembers()

{

        my (@pool_list) = @_;

        my @member_state_lists = &getPoolMemberStates(@pool_list);

        print "Available pool members\n";

        print "======================\n";

        $i = 0;

        foreach $pool (@pool_list)

        {

                print "pool $pool\n{\n";

                @member_state_list = @{@member_state_lists[$i]};

                foreach $member_state (@member_state_list)

                {

                        $member = $member_state->{"member"};

                        $addr = $member->{"address"};

                        $port = $member->{"port"};

                        $session_state = $member_state->{"session_state"};

                        print "    $addr:$port ($session_state)\n";

                }

                print "}\n";

                $i++;

        }

}

#----------------------------------------------------------------------------

# Toggle a specified pool member

#----------------------------------------------------------------------------

sub togglePoolMember()

{

        my ($pool_name, $member_def) = (@_);

        #------------------------------------------------------------------------

        # Split apart node:port

        #------------------------------------------------------------------------

        ($sNodeIP, $sNodePort) = split(/:/, $member_def, 2);

        if ( "" eq $sNodePort )

        {

                $sNodePort = "0";

        }

        $member = { address => $sNodeIP, port => $sNodePort };

        #--------------------------------------------------------------------

        # Query enabled state for given Node:port

        #--------------------------------------------------------------------

        $pool_member_state = &getPoolMemberState($pool_name, $member);

        #----------------------------------------------------------------

        # Set the state to be toggled to.

        #----------------------------------------------------------------

        my $toggleState = "STATE_DISABLED";

        if ( "STATE_DISABLED" eq $pool_member_state )

        {

                $toggleState = "STATE_ENABLED";

        }

        elsif ( "STATE_ENABLED" eq $pool_member_state )

        {

                $toggleState = "STATE_DISABLED";

        }

        else

        {

                die("Couldn't find member $member_def in pool $pool_name\n");

        }

        $MemberSessionState =

        {

                member => $member,

                session_state => $toggleState

        };

        push @MemberSessionStateList, $MemberSessionState;

        push @MemberSessionStateLists, [@MemberSessionStateList];

        #----------------------------------------------------------------

        # Toggle the state.

        #----------------------------------------------------------------

        $soapResponse =

             $PoolMember->set_session_enabled_state

                (

                        SOAP::Data->name ( pool_names => ( [$pool_name] ) ),

                        SOAP::Data->name ( session_states => [@MemberSessionStateLists] )

                );

        &checkResponse($soapResponse);

        $MemberMonitorState =

        {

         member => $member,

         monitor_state => $toggleState

        };

        push @MemberMonitorStateList, $MemberMonitorState;

        push @MemberMonitorStateLists, [@MemberMonitorStateList];

        #-------------------------------------------------------------

        # Toggle the Monitor State

        #-------------------------------------------------------------

        $soapResponse = $PoolMember->set_monitor_state

                    (SOAP::Data->name ( pool_names => ( [$pool_name] ) ),

                     SOAP::Data->name ( monitor_states => [@MemberMonitorStateLists] ));

        &checkResponse($soapResponse);

        print "Pool Member $pool_name {$sNodeIP:$sNodePort} state set from '$pool_member_state' to '$toggleState'\n";

}

#----------------------------------------------------------------------------

# returns the status structures for the members of the specified pools

#----------------------------------------------------------------------------

sub getPoolMemberStates()

{

        my (@pool_list) = @_;

        $soapResponse = $PoolMember->get_session_enabled_state

        (

                SOAP::Data->name(pool_names => [@pool_list])

        );

        &checkResponse($soapResponse);

        @member_state_lists = @{$soapResponse->result};

        return @member_state_lists;

}

#----------------------------------------------------------------------------

# Get the actual state of a given pool member

#----------------------------------------------------------------------------

sub getPoolMemberState()

{

        my ($pool_name, $member_def) = (@_);

        my $state = "";

        @member_state_lists = &getPoolMemberStates($pool_name);

        @member_state_list = @{@member_state_lists[0]};

        foreach $member_state (@member_state_list)

        {

                my $member = $member_state->{"member"};

                if ( ($member->{"address"} eq $member_def->{"address"}) and

                     ($member->{"port"} eq $member_def->{"port"}) )

                {

                        $state = $member_state->{"session_state"}

                }

        }

        return $state;

}

#----------------------------------------------------------------------------

# checkResponse

#----------------------------------------------------------------------------

sub checkResponse()

{

        my ($soapResponse) = (@_);

        if ( $soapResponse->fault )

        {

                print $soapResponse->faultcode, " ", $soapResponse->faultstring, "\n";

                exit();

        }

}