#!/usr/bin/perl -w

#Change this!
my $nsconf="/etc/named.conf";    # Your nameserver config file.
my $other_ns="193.212.1.10";     # Nameserver to check against.
my @names=("ns.songnetworks.no",
           "ns.tele1europe.no"); # Names of this nameserver.

use strict;
use Net::DNS;
open CONF,"$nsconf";
my $res = new Net::DNS::Resolver;
$res->nameservers($other_ns);
while (<CONF>) {
  # match <<zone "perlmonks.org" in {>>
  if (m/^zone\s+\"([a-z0-9._\-]+)\"\s+in/i) {
     my $zone=$1;
     next if ($zone eq "." || $zone =~ /0.0.127.in-addr.arpa/);
     my $name=0;
     my $query = $res->query($zone, "NS");
     if ($query) {
       foreach my $rr ($query->answer) {
         next unless $rr->type eq "NS";
         my $nameserver=$rr->nsdname;
         $name=1 if grep(/$nameserver/i, @names);
       }
     print "$zone is out of date!\n" unless $name;
     }
  }
}