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