1#!/usr/bin/perl
2#
3# $Id: soa.pl 523 2008-10-23 14:19:24Z calle $
4
5require 5.008;
6use warnings;
7use strict;
8
9use DNSCheck;
10
11######################################################################
12
13my $check = new DNSCheck({ interactive => 1, extras => { debug => 1 } });
14
15# die "usage: $0 zone ns1-name ns1-ip ns2-name ns2-ip ..." unless (@ARGV > 1);
16
17# Cheat to save typing
18@ARGV =
19  qw[undelegated.nl ns1.undelegated.nl 62.163.82.28 ns1.undelegated.nl 2001:470:1f06:1d1::2 ns2.undelegated.nl 207.210.112.222]
20  unless @ARGV > 0;
21
22my $domain = shift(@ARGV);
23while (@ARGV) {
24    my $name = shift @ARGV;
25    my $ip   = shift @ARGV;
26
27    $check->add_fake_glue($domain, $name, $ip);
28}
29
30$check->zone->test($domain);
31