Query All Rules

Problem this snippet solves:

This iControl application will query all the iRules configured on a BIG-IP and display them to the output.

Code :

#!/usr/bin/perl
#----------------------------------------------------------------------------
# The contents of this file are subject to the "END USER LICENSE AGREEMENT FOR F5 
# Software Development Kit for iControl"; you may not use this file except in
# compliance with the License. The License is included in the iControl
# Software Development Kit. 
#
# 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-2004 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 $sRule = $ARGV[4];
my $sProtocol = "http";

sub usage()
{
die ("Usage: get_rules.pl host port uid pwd [rule_name] \n");
}

if ( ($sHost eq "") or ($sPort eq "") or ($sUID eq "") or ($sPWD eq "") )
{
usage();
}

if ( "443" eq $sPort )
{
$sProtocol = "https";
}

#----------------------------------------------------------------------------
# Transport Information
#----------------------------------------------------------------------------
sub SOAP::Transport::HTTP::Client::get_basic_credentials-->
{
return "$sUID" => "$sPWD";
}

$LocalLBRule = SOAP::Lite
-> uri('urn
-> readable(1)
-> proxy("$sProtocol://$sHost:$sPort/iControl/iControlPortal.cgi");


&getRules();

sub getRules()
{
$soapResponse = $LocalLBRule->query_all_rules(); 
if ( $soapResponse->fault ) 
{ 
print $soapResponse->faultcode, "(faultstring) ", $soapResponse->faultstring,"\n"; 
print $soapResponse->faultcode, "(faultdetail) ", $soapResponse->faultdetail, "\n"; 
} 
else 
{
$i = 0;
@RuleDefinitionList = @{$soapResponse->result};
foreach $RuleDefinition (@RuleDefinitionList)
{
$rule_name = $RuleDefinition->{"rule_name"};
$rule_definition = $RuleDefinition->{"rule_definition"};

print "Rule $i\n";
print "Name: $rule_name\n";
print "Details: $rule_definition\n";
$i++;
}
}
}