1#!/usr/bin/perl
2#
3# $Id: delegation.pl 715 2009-03-04 07:59:46Z 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
15die "usage: $0 zonename\n" unless ($ARGV[0]);
16
17my @history =
18  ("ns.kirei.se", "ns.schlyter.se", "ns1.pin.se", "ns2.pin.se", "ns3.pin.se");
19
20$check->delegation->test($ARGV[0], \@history);
21