iptest.pl

#!/usr/bin/env perl
use NetAddr::IP;

my $ipObj = new NetAddr::IP('216.166.101.0/24');
$CurrentRserver = 14;
while ($ipObj < $ipObj->broadcast) {
 print "slb server r" . $CurrentRserver . "-2.gc.dca1 " . $ipObj . "\n";
 print "   no health-check\n";
 print "     weight 3\n";
 print "     port 119  tcp\n";
 print "     no health-check\n";
 print "     port 80  tcp\n";
 print "     no health-check\n";
 print "      port 443  tcp\n";
 print "          no health-check\n";
 print "      port 23  tcp\n";
 print "          no health-check\n";
 print "      port 563  tcp\n";
 print "          no health-check\n";
 $ipObj++;
 $CurrentRserver++;
}