3 # ChkDel -- A simple script for checking of domain delegations
5 # (c) 1999--2003 Martin Mares <mj@ucw.cz>
11 # The canonical name of our server
12 my $our_server = "jabberwock.ucw.cz";
14 # Any recursive nameserver outside our network
15 my $outside_ns = "ns.gts.cz";
17 use Net::DNS::Resolver;
19 my $res = new Net::DNS::Resolver;
20 $res->nameservers($outside_ns);
26 my $d = @ARGV ? $ARGV[0] : 'cf/domains';
27 my @list = `m4 m4/list.m4 $d`;
32 $dom eq "localhost" && next;
34 my $q = $res->send($dom, "NS", "IN") or do {
35 print "$dom: ", $res->errorstring, "\n";
40 print "$dom: Truncated response\n";
44 $rc eq "NXDOMAIN" and do {
45 print "$dom: Doesn't exist\n";
48 $rc eq "NOERROR" or do {
49 print "$dom: Error $rc\n";
53 print "$dom: Empty answer\n";
57 foreach my $r ($q->answer) {
58 if ($r->class eq "IN" && $r->type eq "NS" && $r->nsdname eq $our_server) {
64 print "$dom: Lame delegation\n";