1#!/usr/bin/perl
2#
3# $Id: nameserver.pl 715 2009-03-04 07:59:46Z calle $
4
5require 5.008;
6use warnings;
7use strict;
8
9use Net::IP;
10use DNSCheck;
11
12######################################################################
13
14my $check = DNSCheck->new({ interactive => 1, extras => { debug => 1 } });
15
16my ($zone, $server) = @ARGV;
17
18die "usage: $0 zonename nameserver\n"
19  unless (defined($zone) and defined($server));
20
21if (Net::IP->new($server)) {
22    $check->nameserver->test_by_ip($zone, $server);
23} else {
24    $check->nameserver->test($zone, $server);
25}
26