Initial Commit
This commit is contained in:
Riley Schneider
477
database/perl/vendor/lib/Net/DNS/Parameters.pm
vendored
Normal file
477
database/perl/vendor/lib/Net/DNS/Parameters.pm
vendored
Normal file
@@ -0,0 +1,477 @@
|
||||
package Net::DNS::Parameters;
|
||||
|
||||
################################################
|
||||
##
|
||||
## Domain Name System (DNS) Parameters
|
||||
## (last updated 2020-10-26)
|
||||
##
|
||||
################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
our $VERSION = (qw$Id: Parameters.pm 1823 2020-11-16 16:29:45Z willem $)[2];
|
||||
|
||||
use integer;
|
||||
use Carp;
|
||||
|
||||
use base qw(Exporter);
|
||||
|
||||
our @EXPORT_OK = qw(
|
||||
classbyname classbyval %classbyname
|
||||
typebyname typebyval %typebyname
|
||||
opcodebyname opcodebyval
|
||||
rcodebyname rcodebyval
|
||||
ednsoptionbyname ednsoptionbyval
|
||||
dsotypebyname dsotypebyval
|
||||
);
|
||||
|
||||
our %EXPORT_TAGS = (
|
||||
class => [qw(classbyname classbyval)],
|
||||
type => [qw(typebyname typebyval)],
|
||||
opcode => [qw(opcodebyname opcodebyval)],
|
||||
rcode => [qw(rcodebyname rcodebyval)],
|
||||
ednsoption => [qw(ednsoptionbyname ednsoptionbyval)],
|
||||
dsotype => [qw(dsotypebyname dsotypebyval)],
|
||||
);
|
||||
|
||||
|
||||
# Registry: DNS CLASSes
|
||||
my @classbyname = (
|
||||
IN => 1, # RFC1035
|
||||
CH => 3, # Chaosnet
|
||||
HS => 4, # Hesiod
|
||||
NONE => 254, # RFC2136
|
||||
ANY => 255, # RFC1035
|
||||
);
|
||||
our %classbyval = reverse( CLASS0 => 0, @classbyname );
|
||||
push @classbyname, map { /^\d/ ? $_ : lc($_) } @classbyname;
|
||||
our %classbyname = ( '*' => 255, @classbyname );
|
||||
|
||||
|
||||
# Registry: Resource Record (RR) TYPEs
|
||||
my @typebyname = (
|
||||
A => 1, # RFC1035
|
||||
NS => 2, # RFC1035
|
||||
MD => 3, # RFC1035
|
||||
MF => 4, # RFC1035
|
||||
CNAME => 5, # RFC1035
|
||||
SOA => 6, # RFC1035
|
||||
MB => 7, # RFC1035
|
||||
MG => 8, # RFC1035
|
||||
MR => 9, # RFC1035
|
||||
NULL => 10, # RFC1035
|
||||
WKS => 11, # RFC1035
|
||||
PTR => 12, # RFC1035
|
||||
HINFO => 13, # RFC1035
|
||||
MINFO => 14, # RFC1035
|
||||
MX => 15, # RFC1035
|
||||
TXT => 16, # RFC1035
|
||||
RP => 17, # RFC1183
|
||||
AFSDB => 18, # RFC1183 RFC5864
|
||||
X25 => 19, # RFC1183
|
||||
ISDN => 20, # RFC1183
|
||||
RT => 21, # RFC1183
|
||||
NSAP => 22, # RFC1706
|
||||
'NSAP-PTR' => 23, # RFC1348 RFC1637 RFC1706
|
||||
SIG => 24, # RFC4034 RFC3755 RFC2535 RFC2536 RFC2537 RFC2931 RFC3110 RFC3008
|
||||
KEY => 25, # RFC4034 RFC3755 RFC2535 RFC2536 RFC2537 RFC2539 RFC3008 RFC3110
|
||||
PX => 26, # RFC2163
|
||||
GPOS => 27, # RFC1712
|
||||
AAAA => 28, # RFC3596
|
||||
LOC => 29, # RFC1876
|
||||
NXT => 30, # RFC3755 RFC2535
|
||||
EID => 31, # http://ana-3.lcs.mit.edu/~jnc/nimrod/dns.txt
|
||||
NIMLOC => 32, # http://ana-3.lcs.mit.edu/~jnc/nimrod/dns.txt
|
||||
SRV => 33, # RFC2782
|
||||
ATMA => 34, # http://www.broadband-forum.org/ftp/pub/approved-specs/af-dans-0152.000.pdf
|
||||
NAPTR => 35, # RFC2915 RFC2168 RFC3403
|
||||
KX => 36, # RFC2230
|
||||
CERT => 37, # RFC4398
|
||||
A6 => 38, # RFC3226 RFC2874 RFC6563
|
||||
DNAME => 39, # RFC6672
|
||||
SINK => 40, # http://tools.ietf.org/html/draft-eastlake-kitchen-sink
|
||||
OPT => 41, # RFC6891 RFC3225
|
||||
APL => 42, # RFC3123
|
||||
DS => 43, # RFC4034 RFC3658
|
||||
SSHFP => 44, # RFC4255
|
||||
IPSECKEY => 45, # RFC4025
|
||||
RRSIG => 46, # RFC4034 RFC3755
|
||||
NSEC => 47, # RFC4034 RFC3755
|
||||
DNSKEY => 48, # RFC4034 RFC3755
|
||||
DHCID => 49, # RFC4701
|
||||
NSEC3 => 50, # RFC5155
|
||||
NSEC3PARAM => 51, # RFC5155
|
||||
TLSA => 52, # RFC6698
|
||||
SMIMEA => 53, # RFC8162
|
||||
HIP => 55, # RFC8005
|
||||
NINFO => 56, #
|
||||
RKEY => 57, #
|
||||
TALINK => 58, #
|
||||
CDS => 59, # RFC7344
|
||||
CDNSKEY => 60, # RFC7344
|
||||
OPENPGPKEY => 61, # RFC7929
|
||||
CSYNC => 62, # RFC7477
|
||||
ZONEMD => 63, # draft-wessels-dns-zone-digest
|
||||
SVCB => 64, # draft-ietf-dnsop-svcb-https-00
|
||||
HTTPS => 65, # draft-ietf-dnsop-svcb-https-00
|
||||
SPF => 99, # RFC7208
|
||||
UINFO => 100, # IANA-Reserved
|
||||
UID => 101, # IANA-Reserved
|
||||
GID => 102, # IANA-Reserved
|
||||
UNSPEC => 103, # IANA-Reserved
|
||||
NID => 104, # RFC6742
|
||||
L32 => 105, # RFC6742
|
||||
L64 => 106, # RFC6742
|
||||
LP => 107, # RFC6742
|
||||
EUI48 => 108, # RFC7043
|
||||
EUI64 => 109, # RFC7043
|
||||
TKEY => 249, # RFC2930
|
||||
TSIG => 250, # RFC-ietf-dnsop-rfc2845bis-09
|
||||
IXFR => 251, # RFC1995
|
||||
AXFR => 252, # RFC1035 RFC5936
|
||||
MAILB => 253, # RFC1035
|
||||
MAILA => 254, # RFC1035
|
||||
ANY => 255, # RFC1035 RFC6895 RFC8482
|
||||
URI => 256, # RFC7553
|
||||
CAA => 257, # RFC8659
|
||||
AVC => 258, #
|
||||
DOA => 259, # draft-durand-doa-over-dns
|
||||
AMTRELAY => 260, # RFC8777
|
||||
TA => 32768, # http://cameo.library.cmu.edu/ http://www.watson.org/~weiler/INI1999-19.pdf
|
||||
DLV => 32769, # RFC8749 RFC4431
|
||||
);
|
||||
our %typebyval = reverse( TYPE0 => 0, @typebyname );
|
||||
push @typebyname, map { /^\d/ ? $_ : lc($_) } @typebyname;
|
||||
our %typebyname = ( '*' => 255, @typebyname );
|
||||
|
||||
|
||||
# Registry: DNS OpCodes
|
||||
my @opcodebyname = (
|
||||
QUERY => 0, # RFC1035
|
||||
IQUERY => 1, # RFC3425
|
||||
STATUS => 2, # RFC1035
|
||||
NOTIFY => 4, # RFC1996
|
||||
UPDATE => 5, # RFC2136
|
||||
DSO => 6, # RFC8490
|
||||
);
|
||||
our %opcodebyval = reverse @opcodebyname;
|
||||
push @opcodebyname, map { /^\d/ ? $_ : lc($_) } @opcodebyname;
|
||||
our %opcodebyname = ( NS_NOTIFY_OP => 4, @opcodebyname );
|
||||
|
||||
|
||||
# Registry: DNS RCODEs
|
||||
my @rcodebyname = (
|
||||
NOERROR => 0, # RFC1035
|
||||
FORMERR => 1, # RFC1035
|
||||
SERVFAIL => 2, # RFC1035
|
||||
NXDOMAIN => 3, # RFC1035
|
||||
NOTIMP => 4, # RFC1035
|
||||
REFUSED => 5, # RFC1035
|
||||
YXDOMAIN => 6, # RFC2136 RFC6672
|
||||
YXRRSET => 7, # RFC2136
|
||||
NXRRSET => 8, # RFC2136
|
||||
NOTAUTH => 9, # RFC2136
|
||||
NOTAUTH => 9, # RFC-ietf-dnsop-rfc2845bis-09
|
||||
NOTZONE => 10, # RFC2136
|
||||
DSOTYPENI => 11, # RFC8490
|
||||
BADVERS => 16, # RFC6891
|
||||
BADSIG => 16, # RFC-ietf-dnsop-rfc2845bis-09
|
||||
BADKEY => 17, # RFC-ietf-dnsop-rfc2845bis-09
|
||||
BADTIME => 18, # RFC-ietf-dnsop-rfc2845bis-09
|
||||
BADMODE => 19, # RFC2930
|
||||
BADNAME => 20, # RFC2930
|
||||
BADALG => 21, # RFC2930
|
||||
BADTRUNC => 22, # RFC-ietf-dnsop-rfc2845bis-09
|
||||
BADCOOKIE => 23, # RFC7873
|
||||
);
|
||||
our %rcodebyval = reverse( BADSIG => 16, @rcodebyname );
|
||||
push @rcodebyname, map { /^\d/ ? $_ : lc($_) } @rcodebyname;
|
||||
our %rcodebyname = @rcodebyname;
|
||||
|
||||
|
||||
# Registry: DNS EDNS0 Option Codes (OPT)
|
||||
my @ednsoptionbyname = (
|
||||
LLQ => 1, # RFC8764
|
||||
UL => 2, # http://files.dns-sd.org/draft-sekar-dns-ul.txt
|
||||
NSID => 3, # RFC5001
|
||||
DAU => 5, # RFC6975
|
||||
DHU => 6, # RFC6975
|
||||
N3U => 7, # RFC6975
|
||||
'CLIENT-SUBNET' => 8, # RFC7871
|
||||
EXPIRE => 9, # RFC7314
|
||||
COOKIE => 10, # RFC7873
|
||||
'TCP-KEEPALIVE' => 11, # RFC7828
|
||||
PADDING => 12, # RFC7830
|
||||
CHAIN => 13, # RFC7901
|
||||
'KEY-TAG' => 14, # RFC8145
|
||||
'EXTENDED-ERROR' => 15, # RFC8914
|
||||
'CLIENT-TAG' => 16, # draft-bellis-dnsop-edns-tags
|
||||
'SERVER-TAG' => 17, # draft-bellis-dnsop-edns-tags
|
||||
DEVICEID => 26946, # https://docs.umbrella.com/developer/networkdevices-api/identifying-dns-traffic2
|
||||
);
|
||||
our %ednsoptionbyval = reverse @ednsoptionbyname;
|
||||
push @ednsoptionbyname, map { /^\d/ ? $_ : lc($_) } @ednsoptionbyname;
|
||||
our %ednsoptionbyname = @ednsoptionbyname;
|
||||
|
||||
|
||||
# Registry: DNS Header Flags
|
||||
my @dnsflagbyname = (
|
||||
AA => 0x0400, # RFC1035
|
||||
TC => 0x0200, # RFC1035
|
||||
RD => 0x0100, # RFC1035
|
||||
RA => 0x0080, # RFC1035
|
||||
AD => 0x0020, # RFC4035 RFC6840
|
||||
CD => 0x0010, # RFC4035 RFC6840
|
||||
);
|
||||
push @dnsflagbyname, map { /^\d/ ? $_ : lc($_) } @dnsflagbyname;
|
||||
our %dnsflagbyname = @dnsflagbyname;
|
||||
|
||||
|
||||
# Registry: EDNS Header Flags (16 bits)
|
||||
my @ednsflagbyname = (
|
||||
DO => 0x8000, # RFC4035 RFC3225 RFC6840
|
||||
);
|
||||
push @ednsflagbyname, map { /^\d/ ? $_ : lc($_) } @ednsflagbyname;
|
||||
our %ednsflagbyname = @ednsflagbyname;
|
||||
|
||||
|
||||
# Registry: DSO Type Codes
|
||||
my @dsotypebyname = (
|
||||
KEEPALIVE => 0x0001, # RFC8490
|
||||
RETRYDELAY => 0x0002, # RFC8490
|
||||
ENCRYPTIONPADDING => 0x0003, # RFC8490
|
||||
SUBSCRIBE => 0x0040, # RFC8765
|
||||
PUSH => 0x0041, # RFC8765
|
||||
UNSUBSCRIBE => 0x0042, # RFC8765
|
||||
RECONFIRM => 0x0043, # RFC8765
|
||||
);
|
||||
our %dsotypebyval = reverse @dsotypebyname;
|
||||
push @dsotypebyname, map { /^\d/ ? $_ : lc($_) } @dsotypebyname;
|
||||
our %dsotypebyname = @dsotypebyname;
|
||||
|
||||
|
||||
########
|
||||
|
||||
# The following functions are wrappers around similarly named hashes.
|
||||
|
||||
sub classbyname {
|
||||
my $name = shift;
|
||||
|
||||
return $classbyname{$name} || $classbyname{uc $name} || return do {
|
||||
croak qq[unknown class "$name"] unless $name =~ m/^(CLASS)?(\d+)/i;
|
||||
my $val = 0 + $2;
|
||||
croak qq[classbyname("$name") out of range] if $val > 0xffff;
|
||||
return $val;
|
||||
}
|
||||
}
|
||||
|
||||
sub classbyval {
|
||||
my $val = shift;
|
||||
|
||||
return $classbyval{$val} || return do {
|
||||
$val += 0;
|
||||
croak qq[classbyval($val) out of range] if $val > 0xffff;
|
||||
return "CLASS$val";
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
sub typebyname {
|
||||
my $name = shift;
|
||||
|
||||
return $typebyname{$name} || return do {
|
||||
if ( $name =~ m/^(TYPE)?(\d+)/i ) {
|
||||
my $val = 0 + $2;
|
||||
croak qq[typebyname("$name") out of range] if $val > 0xffff;
|
||||
return $val;
|
||||
}
|
||||
_typespec("$name.RRNAME") unless $typebyname{uc $name};
|
||||
return $typebyname{uc $name} || croak qq[unknown type "$name"];
|
||||
}
|
||||
}
|
||||
|
||||
sub typebyval {
|
||||
my $val = shift;
|
||||
|
||||
return $typebyval{$val} || return do {
|
||||
$val += 0;
|
||||
croak qq[typebyval($val) out of range] if $val > 0xffff;
|
||||
$typebyval{$val} = "TYPE$val";
|
||||
_typespec("$val.RRTYPE");
|
||||
return $typebyval{$val};
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
sub opcodebyname {
|
||||
my $arg = shift;
|
||||
my $val = $opcodebyname{$arg};
|
||||
return $val if defined $val;
|
||||
return $arg if $arg =~ /^\d/;
|
||||
croak qq[unknown opcode "$arg"];
|
||||
}
|
||||
|
||||
sub opcodebyval {
|
||||
my $val = shift;
|
||||
return $opcodebyval{$val} || return "$val";
|
||||
}
|
||||
|
||||
|
||||
sub rcodebyname {
|
||||
my $arg = shift;
|
||||
my $val = $rcodebyname{$arg};
|
||||
return $val if defined $val;
|
||||
return $arg if $arg =~ /^\d/;
|
||||
croak qq[unknown rcode "$arg"];
|
||||
}
|
||||
|
||||
sub rcodebyval {
|
||||
my $val = shift;
|
||||
return $rcodebyval{$val} || return "$val";
|
||||
}
|
||||
|
||||
|
||||
sub ednsoptionbyname {
|
||||
my $arg = shift;
|
||||
my $val = $ednsoptionbyname{$arg};
|
||||
return $val if defined $val;
|
||||
return $arg if $arg =~ /^\d/;
|
||||
croak qq[unknown option "$arg"];
|
||||
}
|
||||
|
||||
sub ednsoptionbyval {
|
||||
my $val = shift;
|
||||
return $ednsoptionbyval{$val} || return "$val";
|
||||
}
|
||||
|
||||
|
||||
sub dsotypebyname {
|
||||
my $arg = shift;
|
||||
my $val = $dsotypebyname{$arg};
|
||||
return $val if defined $val;
|
||||
return $arg if $arg =~ /^\d/;
|
||||
croak qq[unknown DSO type "$arg"];
|
||||
}
|
||||
|
||||
sub dsotypebyval {
|
||||
my $val = shift;
|
||||
return $dsotypebyval{$val} || return "$val";
|
||||
}
|
||||
|
||||
|
||||
sub register { ## register( 'TOY', 1234 ) (NOT part of published API)
|
||||
my ( $mnemonic, $rrtype ) = @_; # uncoverable pod
|
||||
$rrtype = rand(255) + 65280 unless $rrtype;
|
||||
croak qq["$mnemonic" is a CLASS identifier] if defined $classbyname{$mnemonic = uc($mnemonic)};
|
||||
for ( typebyval( $rrtype = int $rrtype ) ) {
|
||||
return $rrtype if /^$mnemonic$/; # duplicate registration
|
||||
croak qq["$mnemonic" conflicts with TYPE$rrtype ($_)] unless /^TYPE\d+$/;
|
||||
my $known = $typebyname{$mnemonic};
|
||||
croak qq["$mnemonic" conflicts with TYPE$known] if $known;
|
||||
}
|
||||
$typebyval{$rrtype} = $mnemonic;
|
||||
return $typebyname{$mnemonic} = $rrtype;
|
||||
}
|
||||
|
||||
|
||||
use constant EXTLANG => defined eval { require Net::DNS::Extlang };
|
||||
|
||||
our $DNSEXTLANG = EXTLANG ? eval { Net::DNS::Extlang->new()->domain } : undef;
|
||||
|
||||
sub _typespec {
|
||||
eval { ## draft-levine-dnsextlang
|
||||
<<'END' } if EXTLANG && $DNSEXTLANG;
|
||||
my ($node) = @_;
|
||||
|
||||
require Net::DNS::Resolver;
|
||||
my $resolver = Net::DNS::Resolver->new() || return;
|
||||
my $response = $resolver->send( "$node.$DNSEXTLANG", 'TXT' ) || return;
|
||||
|
||||
foreach my $txt ( grep { $_->type eq 'TXT' } $response->answer ) {
|
||||
my @stanza = $txt->txtdata;
|
||||
my ( $tag, $identifier, @attribute ) = @stanza;
|
||||
next unless defined($tag) && $tag =~ /^RRTYPE=\d+$/;
|
||||
register( $1, $2 ) if $identifier =~ /^(\w+):(\d+)\W*/;
|
||||
return unless defined wantarray;
|
||||
|
||||
my $extobj = Net::DNS::Extlang->new();
|
||||
my $recipe = $extobj->xlstorerecord( $identifier, @attribute );
|
||||
my @source = split /\n/, $extobj->compilerr($recipe);
|
||||
return sub { defined( $_ = shift @source ) };
|
||||
}
|
||||
END
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Net::DNS::Parameters - DNS parameter assignments
|
||||
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
use Net::DNS::Parameters;
|
||||
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Net::DNS::Parameters is a Perl package representing the DNS parameter
|
||||
allocation (key,value) tables as recorded in the definitive registry
|
||||
maintained and published by IANA.
|
||||
|
||||
|
||||
=head1 FUNCTIONS
|
||||
|
||||
=head2 classbyname, typebyname, opcodebyname, rcodebyname, ednsoptionbyname, dsotypebyname
|
||||
|
||||
Access functions which return the numerical code corresponding to
|
||||
the given mnemonic.
|
||||
|
||||
=head2 classbyval, typebyval, opcodebyval, rcodebyval, ednsoptionbyval, dsotypebyval
|
||||
|
||||
Access functions which return the canonical mnemonic corresponding to
|
||||
the given numerical code.
|
||||
|
||||
|
||||
=head1 COPYRIGHT
|
||||
|
||||
Copyright (c)2012,2016 Dick Franks.
|
||||
|
||||
Portions Copyright (c)1997 Michael Fuhr.
|
||||
|
||||
Portions Copyright (c)2003 Olaf Kolkman.
|
||||
|
||||
All rights reserved.
|
||||
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
Permission to use, copy, modify, and distribute this software and its
|
||||
documentation for any purpose and without fee is hereby granted, provided
|
||||
that the above copyright notice appear in all copies and that both that
|
||||
copyright notice and this permission notice appear in supporting
|
||||
documentation, and that the name of the author not be used in advertising
|
||||
or publicity pertaining to distribution of the software without specific
|
||||
prior written permission.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
||||
THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
||||
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
||||
DEALINGS IN THE SOFTWARE.
|
||||
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
L<perl>, L<Net::DNS>,
|
||||
L<IANA Registry|http://www.iana.org/assignments/dns-parameters>
|
||||
|
||||
=cut
|
||||
|
||||
Reference in New Issue
Block a user