1#!/usr/bin/perl 2# 3# $Id: zone.pl 715 2009-03-04 07:59:46Z calle $ 4 5require 5.008; 6use warnings; 7use strict; 8 9use DNSCheck; 10 11###################################################################### 12 13my $r = DNSCheck->new({ interactive => 1, extras => { debug => 2 } })->resolver; 14 15my ($name, $type, $class) = @ARGV; 16 17$class ||= 'IN'; 18$type ||= 'A'; 19 20die "usage: $0 name [type [class]]\n" unless $name; 21 22my $p = $r->recurse($name, $type, $class); 23 24if ($p) { 25 $p->print; 26} else { 27 print "No answer.\n"; 28} 29