1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#!/usr/bin/perl
# **** License ****
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2 as
# published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# This code was originally developed by Vyatta, Inc.
# Portions created by Vyatta are Copyright (C) 2010 Vyatta, Inc.
# All Rights Reserved.
#
# **** End License ****
use strict;
use warnings;
# Source: http://en.wikipedia.org/wiki/Domain_Name_System
# Rules for forming domain names appear in RFC 1035, RFC 1123, and RFC 2181.
# A domain name consists of one or more parts, technically called labels,
# that are conventionally concatenated, and delimited by dots,
# such as example.com.
#
# * The right-most label conveys the top-level domain; for example,
# the domain name www.example.com belongs to the top-level domain com.
# * The hierarchy of domains descends from right to left; each label to
# the left specifies a subdivision, or subdomain of the domain to the
# right. For example: the label example specifies a subdomain of the
# com domain, and www is a sub domain of example.com. This tree of
# subdivisions may have up to 127 levels.
#
# * Each label may contain up to 63 characters. The full domain name may
# not exceed a total length of 253 characters in its external
# dotted-label specification.[10] In the internal binary
# representation of the DNS the maximum length requires 255 octets of
# storage.[3] In practice, some domain registries may have shorter
# limits.[citation needed]
#
# * DNS names may technically consist of any character representable in
# an octet. However, the allowed formulation of domain names in the
# DNS root zone, and most other sub domains, uses a preferred format
# and character set. The characters allowed in a label are a subset
# of the ASCII character set, and includes the characters a through
# z, A through Z, digits 0 through 9, and the hyphen. This rule is
# known as the LDH rule (letters, digits, hyphen). Domain names are
# interpreted in case-independent manner. Labels may not start or end
# with a hyphen.[11]
foreach my $fqdn (@ARGV) {
die "$fqdn: full domain length exceeds 253 characters\n"
if length($fqdn) > 253;
my @label = split /\./, $fqdn;
die "$fqdn: domain name greater than 127 levels\n"
if ($#label > 127);
foreach my $label (@label) {
die "$label: invalid character in domain name\n"
unless $label =~ /^[-0-9a-zA-H]+$/;
die "$label: label must not start or end with hyphen\n"
if $label =~ /(^-)|(-$)/;
die "$label: domain name element greater than 63 characters\n"
if (length($label) > 63);
}
}
|
