|
NAMEBigIP::ParseConfig - F5/BigIP configuration parser SYNOPSIS use BigIP::ParseConfig;
# Module initialization
my $bip = new BigIP::ParseConfig( '/config/bigip.conf' );
# Iterate over pools
foreach my $pool ( $bip->pools() ) {
# Iterate over pool members
foreach my $member ( $bip->members( $pool ) ) {
# Change port from 80 to 443
if ( $member /^(\d+\.\d+\.\d+\.\d+):80/ ) {
push @members, "$1:443";
my $change = 1;
}
}
# Commit the change above (80->443)
if ( $change ) {
$bip->modify(
type => 'pool',
key => $pool,
members => [ @members ]
);
}
}
# Write out a new config file
$bip->write( '/config/bigip.conf.new' );
DESCRIPTIONBigIP::ParseConfig provides a Perl interface to reading, writing, and manipulating configuration files used on F5 (BigIP) LTM network devices. This module is currently a work-in-progress. Please e-mail with problems, bug fixes, comments and complaints. CONSTRUCTOR
METHODS
Following type and key should be a string or a reference to an array of strings. See the example below for more details. Examples $bip->modify(
type => 'virtual',
key => 'Production_LDAP_vip',
persist => 'cookie'
);
$bip->modify(
type => 'pool',
key => 'Production_LDAP_pool',
members => [ '192.168.0.1:636', '192.168.0.2:636' ]
);
AUTHORScott Schneider <sschneid@gmail.com>
|