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