[BETA] DNS master2slave

10,25,40,55 * * * * /sbin/service named reload

#!/usr/bin/perl

use strict;

my $master_ip = "209.195.4.186";
my $named_conf = "/etc/bind/named.conf";
my $web_root = "/var/www/html/namedftp";

my $output = `grep "^zone" /etc/bind/named.conf|grep -v '^#'|grep "type master"`;

my @zones = split(/\n/,$output);

open(WWW,">".$web_root."/".$master_ip.".named.conf") or die "Can't open ".$web_root."/".$master_ip.".named.conf: ".$!."\n";

foreach (@zones) {
	$_ =~ /zone \"(.*)\" \{/;
	my $domain = $1;
	print WWW $domain."\n";
}
close(WWW);

#!/usr/bin/perl

use strict;

my $master_file = "/var/named/etc/namedb/masterlist";
my $master_path = "namedftp";

my $slave_conf = "/var/named/etc/namedb/slave.conf";
my $named_path = "/var/named/etc/namedb/zones";

my $path_to_named_binary = "/usr/sbin/named";

system("rm -rf ./tmp/*");

open(MASTERS,$master_file) or die "Can't open ".$master_file.": ".$!."\n";
my @masters = <MASTERS>;
close(MASTERS);

open(SLAVE,">".$slave_conf) or die "Can't open slave config: ".$!."\n";

my @domains;

foreach my $ip (@masters) {
	chomp($ip);
	system("wget -q http://".$ip."/".$master_path."/".$ip.".named.conf -P ./tmp");
	
	open(DOMAINS,"./tmp/".$ip.".named.conf") or die "Can't open ./tmp/".$ip.".named.conf: ".$!."\n";
	@domains = <DOMAINS>;
	close(DOMAINS);

	foreach my $domain (@domains) {
		chomp($domain);
		print SLAVE "zone \"$domain\" { type slave; file \"$named_path/$domain.db\"; masters { $ip; }; };\n";
	}
}
close(SLAVE);

# find out the running BIND's PID number..
my $p = `ps ax | grep $path_to_named_binary | grep -v grep`;
my @ps = split(/\n/,$p);

my $pid;
foreach (@ps) {
	$_ =~ /^(\d*)\s/;
	$pid = $1;
}
# then rehash/reload it to force it to update the new slave.conf we generated (and thus ask for a notify on new zones)
system("kill -HUP ".$pid);

exit; # comment this out if you want the slave script to cleanup zones that were deleted on the master

opendir(DIR, $named_path) || die "can't opendir $named_path: $!";
my @files = readdir(DIR);
closedir DIR;

foreach my $file (@files) {
	if ($file eq "." || $file eq "..") { next; }
	my $domain = substr($file,0,length($file) - 3);
	my $found = 0;
	foreach my $d (@domains) {
		chomp($d);
		if ($d eq $domain) { $found = 1; last; }
	}
	if (!$found) { system("rm -f ".$named_path."/".$file); }
}