#!/usr/bin/perl

@ips = `ifconfig`;
chomp @ips;

print "nnacl "trusted" {n";
foreach my $line (@ips) {
if ($line =~ /inet addr:(d+.d+.d+.d+)/) {
 print "        $1;n";
}
}
print "};nn";
print "options {n";
print "        directory "/var/named";n";
print "        dump-file "/var/named/data/cache_dump.db";n";
print "        statistics-file "/var/named/data/named_stats.txt";n";
print "        version "not currently available";n";
print "        allow-recursion { trusted; };n";
print "        allow-notify { trusted; };n";
print "        allow-transfer { trusted; };n";
print "};nn"