#!/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 "Ca
+nnot 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);
[download]