"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Net/DNS/Parameters.pm" between
Net-DNS-1.23.tar.gz and Net-DNS-1.23_01.tar.gz

About: Net::DNS is a DNS resolver implemented in Perl. Development version.

Parameters.pm  (Net-DNS-1.23):Parameters.pm  (Net-DNS-1.23_01)
package Net::DNS::Parameters; package Net::DNS::Parameters;
# #
# $Id: Parameters.pm 1761 2020-01-01 11:58:34Z willem $ # $Id: Parameters.pm 1779 2020-05-11 09:11:17Z willem $
# #
our $VERSION = (qw$LastChangedRevision: 1761 $)[1]; our $VERSION = (qw$LastChangedRevision: 1779 $)[1];
################################################ ################################################
## ##
## Domain Name System (DNS) Parameters ## Domain Name System (DNS) Parameters
## (last updated 2019-12-23) ## (last updated 2020-05-07)
## ##
################################################ ################################################
use strict; use strict;
use warnings; use warnings;
use integer; use integer;
use Carp; use Carp;
use base qw(Exporter); use base qw(Exporter);
our @EXPORT = qw( our @EXPORT = qw(
skipping to change at line 128 skipping to change at line 128
TSIG => 250, # RFC2845 TSIG => 250, # RFC2845
IXFR => 251, # RFC1995 IXFR => 251, # RFC1995
AXFR => 252, # RFC1035 RFC5936 AXFR => 252, # RFC1035 RFC5936
MAILB => 253, # RFC1035 MAILB => 253, # RFC1035
MAILA => 254, # RFC1035 MAILA => 254, # RFC1035
ANY => 255, # RFC1035 RFC6895 RFC8482 ANY => 255, # RFC1035 RFC6895 RFC8482
URI => 256, # RFC7553 URI => 256, # RFC7553
CAA => 257, # RFC8659 CAA => 257, # RFC8659
AVC => 258, # AVC => 258, #
DOA => 259, # draft-durand-do a-over-dns DOA => 259, # draft-durand-do a-over-dns
AMTRELAY => 260, # RFC-ietf-mboned -driad-amt-discovery-13 AMTRELAY => 260, # RFC8777
TA => 32768, # http://cameo.li brary.cmu.edu/ http://www.watson.org/~weiler/INI1999-19.pdf TA => 32768, # http://cameo.li brary.cmu.edu/ http://www.watson.org/~weiler/INI1999-19.pdf
DLV => 32769, # RFC-ietf-dnsop- obsolete-dlv-02 RFC4431 DLV => 32769, # RFC8749 RFC4431
); );
our %typebyval = reverse( TYPE0 => 0, @typebyname ); our %typebyval = reverse( TYPE0 => 0, @typebyname );
push @typebyname, map /^\d/ ? $_ : lc($_), @typebyname; push @typebyname, map /^\d/ ? $_ : lc($_), @typebyname;
our %typebyname = ( '*' => 255, @typebyname ); our %typebyname = ( '*' => 255, @typebyname );
# Registry: DNS OpCodes # Registry: DNS OpCodes
my @opcodebyname = ( my @opcodebyname = (
QUERY => 0, # RFC1035 QUERY => 0, # RFC1035
IQUERY => 1, # RFC3425 IQUERY => 1, # RFC3425
STATUS => 2, # RFC1035 STATUS => 2, # RFC1035
skipping to change at line 180 skipping to change at line 180
BADALG => 21, # RFC2930 BADALG => 21, # RFC2930
BADTRUNC => 22, # RFC4635 BADTRUNC => 22, # RFC4635
BADCOOKIE => 23, # RFC7873 BADCOOKIE => 23, # RFC7873
); );
our %rcodebyval = reverse( BADSIG => 16, @rcodebyname ); our %rcodebyval = reverse( BADSIG => 16, @rcodebyname );
push @rcodebyname, map /^\d/ ? $_ : lc($_), @rcodebyname; push @rcodebyname, map /^\d/ ? $_ : lc($_), @rcodebyname;
our %rcodebyname = @rcodebyname; our %rcodebyname = @rcodebyname;
# Registry: DNS EDNS0 Option Codes (OPT) # Registry: DNS EDNS0 Option Codes (OPT)
my @ednsoptionbyname = ( my @ednsoptionbyname = (
LLQ => 1, # RFC-sekar-dns-l LLQ => 1, # RFC-sekar-dns-l
lq-06 lq-06
UL => 2, # http://files.dn UL => 2, # http://files.dn
s-sd.org/draft-sekar-dns-ul.txt s-sd.org/draft-sekar-dns-ul.txt
NSID => 3, # RFC5001 NSID => 3, # RFC5001
DAU => 5, # RFC6975 DAU => 5, # RFC6975
DHU => 6, # RFC6975 DHU => 6, # RFC6975
N3U => 7, # RFC6975 N3U => 7, # RFC6975
'CLIENT-SUBNET' => 8, # RFC7871 'CLIENT-SUBNET' => 8, # RFC7871
EXPIRE => 9, # RFC7314 EXPIRE => 9, # RFC7314
COOKIE => 10, # RFC7873 COOKIE => 10, # RFC7873
'TCP-KEEPALIVE' => 11, # RFC7828 'TCP-KEEPALIVE' => 11, # RFC7828
PADDING => 12, # RFC7830 PADDING => 12, # RFC7830
CHAIN => 13, # RFC7901 CHAIN => 13, # RFC7901
'KEY-TAG' => 14, # RFC8145 'KEY-TAG' => 14, # RFC8145
'CLIENT-TAG' => 16, # draft-bellis-dn 'EXTENDED-ERROR' => 15, # RFC-ietf-dnsop-
sop-edns-tags extended-error-16
'SERVER-TAG' => 17, # draft-bellis-dn 'CLIENT-TAG' => 16, # draft-bellis-dn
sop-edns-tags sop-edns-tags
DEVICEID => 26946, # https://docs.um 'SERVER-TAG' => 17, # draft-bellis-dn
brella.com/developer/networkdevices-api/identifying-dns-traffic2 sop-edns-tags
DEVICEID => 26946, # https://docs.um
brella.com/developer/networkdevices-api/identifying-dns-traffic2
); );
our %ednsoptionbyval = reverse @ednsoptionbyname; our %ednsoptionbyval = reverse @ednsoptionbyname;
push @ednsoptionbyname, map /^\d/ ? $_ : lc($_), @ednsoptionbyname; push @ednsoptionbyname, map /^\d/ ? $_ : lc($_), @ednsoptionbyname;
our %ednsoptionbyname = @ednsoptionbyname; our %ednsoptionbyname = @ednsoptionbyname;
# Registry: DNS Header Flags # Registry: DNS Header Flags
my @dnsflagbyname = ( my @dnsflagbyname = (
AA => 0x0400, # RFC1035 AA => 0x0400, # RFC1035
TC => 0x0200, # RFC1035 TC => 0x0200, # RFC1035
RD => 0x0100, # RFC1035 RD => 0x0100, # RFC1035
 End of changes. 6 change blocks. 
26 lines changed or deleted 28 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)