Re: Compare zone files in directory with what is listed in named.conf

[fisher]

Just skip it.

open F, "named.conf.local" or die "$!";
while(<F>) {
  chomp;
  s/^[ \t]*file "db\.(.*)";/$1/ or next;
  next if /db.cache/;
  push @lines, $_;
}
close F;

and

opendir D, "$directory" || die "Cant: $1";
my @list = grep /db/, readdir(D);
closedir D;