my $masterconf = new FileHandle("ns1/zones.conf", "w") or die;
my $slaveconf = new FileHandle("ns2/zones.conf", "w") or die;
-for ($z = 0; $z < 1000; $z++) {
+for ($z = 0; $z < 100; $z++) {
my $zn = sprintf("zone%06d.example", $z);
print $masterconf "zone \"$zn\" { type master; file \"$zn.db\"; };\n";
print $slaveconf "zone \"$zn\" { type slave; file \"$zn.bk\"; masters { 10.53.0.1; }; };\n";
count=0
ticks=0
-while [ $count != 1000 ]; do
+while [ $count != 100 ]; do
sleep 5
ticks=`expr $ticks + 1`
seconds=`expr $ticks \* 5`
status=0;
../../../dig/dig +tcp +noadd +nosea +nostat +noquest +nocomm +nocmd \
- zone000999.example. @10.53.0.1 axfr > dig.out.ns1
+ zone000099.example. @10.53.0.1 axfr > dig.out.ns1
status=`expr $status + $?`
grep ";" dig.out.ns1
../../../dig/dig +tcp +noadd +nosea +nostat +noquest +nocomm +nocmd \
- zone000999.example. @10.53.0.2 axfr > dig.out.ns2
+ zone000099.example. @10.53.0.2 axfr > dig.out.ns2
status=`expr $status + $?`
grep ";" dig.out.ns2