#!/usr/bin/perl

use strict;
use warnings;

my @domains = qw();
my $master_ip = '199.168.184.8';

open (H, "</etc/namedb/zones.conf") || die "Couldn't open master file\n";

while (<H>) {
	chomp;
	if (m/zone\s+"(\S+)"\s+\{/) {
		push @domains, $1;
	}
}

close H;

open (H, '>/root/slave_named.conf.local') || die "Couldn't open dest slave file\n";

for (@domains) {
	print H '
zone "'.$_.'" in{
  type slave;
  file "/var/cache/bind/slave/'.$_.'";
  masters {'.$master_ip.';};
allow-transfer {'.$master_ip.';};
allow-notify {'.$master_ip.';};
};

	';
}

close H;