BIG-IP v11

Needs just some minor updating to get it to work with BIG-IP v11.

Partitions must be included in order to work.

Not the cleanest way, but if you only use the default “common” partition, changes below:

Original:
$oidPoolName =~ s/(.)/sprintf(‘.%u’, ord($1))/eg;
$oidPoolName = length($PoolName) . $oidPoolName;

Updated so it still supports older versions:
if ($software eq ‘4.5’ || $software eq ‘9’ || $software || ’10’) {
$oidPoolName =~ s/(.)/sprintf(‘.%u’, ord($1))/eg;
$oidPoolName = length($PoolName) . $oidPoolName;
}

if ($software eq ’11’) {
$oidPoolName = “/Common/” . $PoolName;
my $v11PoolName = $oidPoolName;
$oidPoolName =~ s/(.)/sprintf(‘.%u’, ord($1))/eg;
$oidPoolName = length($v11PoolName) . $oidPoolName;
print “v11 ” . $oidPoolName . “n”;
}