Net::DNS::ToolKit 0.29 review

Net::DNS::ToolKit are tools for working with DNS packets. SYNOPSIS use Net::DNS::ToolKit qw( get1char get

License: Perl Artistic License File size: 205K Developer: Michael Robinton

0

Net::DNS::ToolKit are tools for working with DNS packets.

SYNOPSIS

use Net::DNS::ToolKit qw(

get1char
get16
get32
put1char
put16
put32
getIPv4
putIPv4
putIPv6
getIPv6
getstring
putstring
dn_comp
dn_expand
parse_char
gethead
newhead
getflags
get_qdcount
get_ancount
get_nscount
get_arcount
put_qdcount
put_ancount
put_nscount
put_arcount
inet_aton
inet_ntoa
ipv6_aton
ipv6_n2x
ipv6_n2d
sec2time
ttlAlpha2Num
collapse
strip
get_ns
gettimeofday
);

$char = get1char($buffer,$offset);
($int, $newoff) = get16($buffer,$offset);
($long, $newoff) = get32($buffer,$offset);
$newoff = put1char($buffer,$offset,$u_char);
$newoff = put16($buffer,$offset,$int);
$newoff = put32($buffer,$offset,$long);
$flags = getflags($buffer);
$int = get_qdcount($buffer);
$int = get_ancount($buffer);
$int = get_nscount($buffer);
$int = get_arcount($buffer);
$newoff = put_qdcount($buffer,$int);
$newoff = put_ancount($buffer,$int);
$newoff = put_nscount($buffer,$int);
$newoff = put_arcount($buffer,$int);
($netaddr,$newoff)=getIPv4($buffer,$offset);
$newoff = putIPv4($buffer,$offset,$netaddr);
($ipv6addr,$newoff)=getIPv6($buffer,$offset);
$newoff = putIPv6($buffer,$offset,$ipv6addr);
($offset,
$id,$qr,$opcode,$aa,$tc,$rd,$ra,$mbz,$ad,$cd,$rcode,
$qdcount,$ancount,$nscount,$arcount)
= gethead($buffer);
$newoff = newhead($buffer,$id,$flags,
$qdcount,$ancount,$nscount,$arcount);
($b,$h,$d,$a)=parse_char($char);
($newoff,$name) = dn_expand($buffer,$offset);
($newoff,@dnptrs)=dn_comp($buffer,$offset,$name,@dnptrs);
$dotquad = inet_ntoa($netaddr);
$netaddr = inet_aton($dotquad);
$ipv6addr = ipv6_aton($ipv6_text);
$hex_text = ipv6_n2x($ipv6addr);
$dec_text = ipv6_n2d($ipv6addr);
$timetxt = sec2time($seconds);
$seconds = ttlAlpha2Num($timetext);
$shorthost = collapse($zonename,$longhost);
$tag = strip($P_tag);
@nameservers = get_ns();
($secs,$usecs) = gettimeofday();

Routines to pick apart, examine and put together DNS packets. They can be used for diagnostic purposes or as building blocks for DNS applications such as DNS servers and clients or to allow user applications to interact directly with remote DNS servers.

Requirements:
Perl