#!/usr/bin/perl
# another quick one to add all those
# zone files from flatdns.pl into something
# useful, like say, a named.conf. Backs up
# your named.conf first.
$|++;
use strict;
use Getopt::Std;
use File::Copy;
use POSIX;

my(@dnsdbs,$file,%args,$dbloc,$tmp);
getopt('f:hd:s:',\%args);
if(!defined $args{'f'} || !defined $args{'d'} || defined $args{'h'})
{
	print <<EOU;
Synopsis:
	append-dns.pl [options]
	Where options are:
	-f the name of the input file [normally named.conf]
	-d the location of the zone files
	-s Make these zones slaves instead (must provide a master).
	-h print this help message.
EOU
	exit;
}
$file = $args{'f'};
$dbloc = $args{'d'};
copy($file,$file . strftime("%Y%m%d-%T",localtime(time()))) or die "Cannot copy file $file: $!";
open(DNSCF,'>>',$file) or die "Cannot open $file: $!";
@dnsdbs = glob("$dbloc*.{com,net,org,biz,us}");
for(@dnsdbs)
{
	$tmp = $_;
	$tmp =~ s/\/.*\///;
	$tmp =~ s/db\.//;
	print DNSCF "zone $tmp {\n";
	if(!defined $args{'s'})
	{
		print DNSCF "\ttype master;\n";
		print DNSCF "\tfile \"$_\";\n";
		print DNSCF "};\n";
	}
	else
	{
		print DNSCF "\ttype slave;\n";
		print DNSCF "\tfile \"$_\";\n";
		print DNSCF "\tmasters {\n";
		print DNSCF "\t\t" . $args{'s'} . ";\n";
		print DNSCF "\t};\n};\n";
	}
}
close(DNSCF);