#!/usr/bin/perl
#
-# $Id: valtz,v 0.7 2003/07/10 16:39:30 magnus Exp $
-#
# <BSD-license>
#
-# Copyright (c) 2003, Magnus Bodin, <magnus@bodin.org>, http://x42.com
+# Copyright (c) 2020, the valtz authors
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
-# Neither the name of Magnus Bodin, x42.com nor the names of its
-# contributors may be used to endorse or promote products derived from
-# this software without specific prior written permission.
+# Neither the name of valtz nor the names of its contributors may be
+# used to endorse or promote products derived from this software
+# without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
$| = 1;
my %opt;
-getopts('?fFhHiIqrRstT:', \%opt);
-
+getopts('?fFhHiIqrRtT:', \%opt);
-my $FILESUFFIXREGEXP = '('.join('|', qw/
- ,v ~ .bak .log .old .swp .tmp
- /).')$';
# Validation errors
my $verrs_total = 0;
}
for my $zonefile (@zonefiles)
{
- unless ($opt{s})
- {
- next if $zonefile =~ /$FILESUFFIXREGEXP/i;
- }
-
my $info = 0;
my $filehandle = \*STDIN;
my $fopen = 1;
Usage:
$0 [-r] [-R] [-i] tinydns-file1 [tinydns-file2...]
- $0 [-HiIqrRst] [-T types] -f tinydns-file1 [tinydns-file2 ...]
+ $0 [-HiIqrRt] [-T types] -f tinydns-file1 [tinydns-file2 ...]
- $0 valtz [-fHiIqrRst] [-T types] -F filter-file1 [filter-file2 ...]
+ $0 valtz [-fHiIqrRt] [-T types] -F filter-file1 [filter-file2 ...]
Flags:
-h print usage information
-i allow "ip" fields to be empty
-I include rejected lines as comments (filtering only)
-q don't print valid lines to standard out (filtering only)
- -s don't skip temporary and backup files
-t don't ignore comment lines (filtering only)
-T <types> allow additional record types (advanced filtering only)
for my $zonefile (sort @{$files})
{
- unless ($opt{s})
- {
- next if $zonefile =~ /$FILESUFFIXREGEXP/i;
- }
-
my $filehandle = \*STDIN;
my $fopen = 1;
if ($zonefile ne '-')