$| = 1;
my %opt;
-getopts('?fFhHiIqrRstT:x', \%opt);
+getopts('?fFhHiIqrRstT:', \%opt);
my $FILESUFFIXREGEXP = '('.join('|', qw/
,v ~ .bak .log .old .swp .tmp
/).')$';
+# Validation errors
my $verrs_total = 0;
+
+# "Permission" errors with respect to what record types are allowed
my $perrs_total = 0;
##
# global location registry
# (reset for every zone file)
-my %loreg;
+my %loreg;
# NOTE : DO NOT CHANGE the id numbers
my %validation_msg = (
1008 => 'integer out of bounds',
1009 => 'must have at least three labels to be valid as mail address',
1010 => 'must not be 2(NS), 5(CNAME), 6(SOA), 12(PTR), 15(MX) or 252(AXFR)',
+ 1011 => 'IP address found where hostname expected'
);
# NOTE : ONLY translate the right-hand part
{
my $i = $1;
- $result = 1008 if $boundary && ($i >= $boundary);
+ $result = 1008 if $boundary && ($i >= $boundary);
}
else
{
if ($s =~ /^(\d+)(\.(\d+)(\.(\d+)(\.(\d+))?)?)?$/)
{
my ($a, $b, $c, $d) = ($1, $3, $5, $7);
- $a ||= 0;
- $b ||= 0;
- $c ||= 0;
- $d ||= 0;
- if (($a > 255) || ($b > 255) || ($c > 255) || ($d > 255))
+ $a ||= 0;
+ $b ||= 0;
+ $c ||= 0;
+ $d ||= 0;
+ if (($a > 255) || ($b > 255) || ($c > 255) || ($d > 255))
{
$result = 1003;
}
if ($s =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)\.?$/)
{
my ($a, $b, $c, $d) = ($1, $3, $5, $7);
- $a ||= 0;
- $b ||= 0;
- $c ||= 0;
- $d ||= 0;
- if (($a > 255) || ($b > 255) || ($c > 255) || ($d > 255))
+ $a ||= 0;
+ $b ||= 0;
+ $c ||= 0;
+ $d ||= 0;
+ if (($a > 255) || ($b > 255) || ($c > 255) || ($d > 255))
{
$result = 1003
}
'x' => [ 5, sub {
my ($type, $s) = @_;
my $result = 0;
+
+ # Check to see if someone put an IP address in a hostname
+ # field. The motivation for this was MX records where many
+ # people expect an IP address to be a valid response, but I
+ # see no harm in enforcing it elsewhere.
+ return 1011 if $s =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\.?$/;
+
# check all parts
for (split /\./, $s)
{
's' => [ 10, sub {
my ($type, $s) = @_;
my $result = 0;
- # TODO : Validation needed?
+ # TODO : Validation needed?
return $result;
}],
'p' => [ 11, sub {
}
return $result;
}],
- 'mname' => [ 12, sub {
+ 'mname' => [ 12, sub {
my ($type, $s) = @_;
my $result = 0;
# check all parts
'rname' => [ 13, sub {
my ($type, $s) = @_;
my $result = 0;
-
+
# check all parts
my @parts = split /\./, $s;
return 1009 if @parts < 3;
'n' => [ 19, sub {
my ($type, $s) = @_;
my $result = validate_integer($s, 65535);
-
+
return 1010 if ($s==2)||($s==5)||($s==6)||($s==12)||($s==15)||($s==252);
return $result;
}],
'rdata' => [ 20, sub {
my ($type, $s) = @_;
- # TODO : Validation needed?
+ # TODO : Validation needed?
my $result = 0;
return $result;
}],
{
$ip = $token;
}
-
+
#
if (length($ip) && ($mask[$c] eq 'x'))
{
$tmp =~ s/\.$//;
push @{$$result[3]}, $tmp;
}
-
+
# perform validation
-
+
my $tv = &{$$validator[1]}($type, $token);
if ($tv)
{
$$result[0] ^= (2 ** $$validator[0]);
- $$result[1] .=
+ $$result[1] .=
"\npos $c; $mask[$c]; $validation_msg{$tv}";
}
}
if ($mand)
{
- $$result[0] ^= (2 ** $$validator[0]);
+ $$result[0] ^= (2 ** $$validator[0]);
$$result[1] .= "\npos $c; $mask[$c]; ".
$token_name{$mask[$c]}.' is mandatory';
}
$c++;
}
}
-
+
if ($$result[0])
{
$$result[1] = "expected: ".$line_type{$type}->[1]."\n".
}
}
- else
+ else
{
$result = [ 1, sprintf("unknown record type: #%02x",
ord($type)) ];
$$result[1] =~ s/^\n+//;
$$result[1] =~ s/\n+/\n/g;
- # result is now [ iErrno, sErrtxt, sRecordType, [ sFQDN ] ]
+ # result is now [ iErrno, sErrtxt, sRecordType, [ sFQDN ] ]
return $result;
}
chomp;
s/^\s+//;
s/\s+$//;
-
+
if (/^(\w+)\s+(.+)$/)
{
my ($key, $value) = ($1, $2);
$$f{allowtype} = (keys %{$$f{allowtype}})[0];
$$f{allowtype} .= $opt{T};
-
+
my $allowtyperegex = make_char_regexp($$f{allowtype});
if ($$f{extralog})
{
next if $zonefile =~ /$FILESUFFIXREGEXP/i;
}
-
+
my $info = 0;
my $filehandle = \*STDIN;
my $fopen = 1;
{
my $temp = ($zonefile eq '-') ? '<STDIN>' : $zonefile;
p $output, "File $temp";
-
+
%loreg = ();
my $errs = 0;
my $lno = 0;
# Check $$v[3] against allowed fqdn:s:wq!
if (keys %{$$f{deny}})
{
- #
my $patterns = regexped_patterns($$f{deny});
# Default ALLOW ALL
$ok = $fqdnok = 1;
$reason = 'default allow ^.*$';
-
+
for my $pat (@{$patterns})
{
for (@{$$v[3]})
}
}
} # if deny/allow
- } # if fqdn
+ } # if fqdn
} # if recordtype ok
- } #
+ }
if ($ok && length($line))
{
{
$errs++;
$perrs_total++;
- p $output, " line $lno; err -2; $line";
+ p $output, " line $lno; err -2; $line";
p $output, " use of fqdn denied; $reason";
if ($opt{I})
{
- print STDOUT "# line $lno; err -2; $line\n";
+ print STDOUT "# line $lno; err -2; $line\n";
print STDOUT "# use of fqdn denied; $reason\n";
- }
+ }
}
}
}
}
}
-
- # Close all extra logfiles
+
+ # Close all extra logfiles
for my $el (@extralogs)
{
if (close($$el[0]))
if ($opt{h} || $opt{H} || $opt{'?'})
{
print <<"--EOT";
-valtz $VERSION, $COPYRIGHT
+valtz $VERSION, $COPYRIGHT
validates tinydns-data zone files
Usage:
- $0 [-hfFqrRiItTx] <file(s)>
+ $0 [-hfFqrRiItT] <file(s)>
-h shows this help.
-f filter (don't just validate) file and output accepted lines to STDOUT.
-
+
-F treat files as filter configuration files for more advanced filtering.
These filterfiles one or several of the following filter directives:
Multiple zonefile, allow- and deny-lines are allowed, but also the
alternative file:-line that points to a textfile containing one
value per line.
-
-
+
+
-r allows fqdn to be empty thus denoting the root.
This is also allowed per default when doing implict allow - see deny,
or when specifying 'allow .', i.e. explictly allowing root as such.
(cannot be combined with deny)
-
+
-R relaxes the validation and allows empty mname and p-fields.xi
This is probably not very useful.
-
+
-i allows the ip-fields to be empty as well. These will then not generate any
records.
-I Include rejected lines as comments in output (valid when filtering).
-
+
-q Do not echo valid lines to STDOUT.
-
+
-s DO NOT ignore files ending with ,v ~ .bak .log .old .swp .tmp
which is done per default.
A commandline way to explicitly set the allowed recordtypes.
This is _concatenated_ to the allowtype-allowed recordtypes.
- -x Exit with non-null exit code on errors; i.e. make errors detectable by
- e.g. shell scripts; 1 = validation error, 2 = permission error,
- 3 = combination of 1 and 2.
-
All errors in the zonefiles are sent to STDERR.
>/etc/tinydns/data.otto \
2>/var/log/tinydns/valtz.log
-
+
Example filterfile for using as import from primary (as above):
zonefile /var/zones/external/otto/zone-*
deny bodin.org
deny x42.com
- extralog /var/log/tinydns/external-otto.log
+ extralog /var/log/tinydns/external-otto.log
Example #2, strict filter for a certain user editing just A-records
zonefile /home/felix/zones/zone-fl3x-net
allow fl3x.net
- allowtype +
+ allowtype +
extralog /var/log/tinydns/fl3x-net.log
Example #3, export filter to secondary
elsif (@{$files} == 0)
{
print <<"--EOT";
-valtz $VERSION, $COPYRIGHT
+valtz $VERSION, $COPYRIGHT
validates tinydns-data zone files
Usage:
Simple validation:
{
next if $zonefile =~ /$FILESUFFIXREGEXP/i;
}
-
+
my $filehandle = \*STDIN;
my $fopen = 1;
if ($zonefile ne '-')
{
print STDOUT "# line $lno; err $$v[0] $line
print STDOUT "# $$v[1]; \n";
- }
+ }
}
else
{
}
}
-if ($opt{x} && ($verrs_total + $perrs_total))
+if ($verrs_total + $perrs_total)
{
my $exitcode = $verrs_total > 0 ? 1 : 0;
$exitcode += $perrs_total > 0 ? 2 : 0;
projects / valtz.git / blobdiff