$| = 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 '-')