etc/services - sync with NetBSD-8
[minix.git] / external / bsd / bind / dist / bin / tests / system / checkds / dig.pl
blob53ed6bc61c756fe645a648be7f1cf046e8b81199
1 #!/usr/bin/perl
3 # Copyright (C) 2014 Internet Systems Consortium, Inc. ("ISC")
5 # Permission to use, copy, modify, and/or distribute this software for any
6 # purpose with or without fee is hereby granted, provided that the above
7 # copyright notice and this permission notice appear in all copies.
9 # THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
10 # REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
11 # AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
12 # INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
13 # LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
14 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
15 # PERFORMANCE OF THIS SOFTWARE.
17 # Id
19 my $arg;
20 my $ext;
21 my $file;
23 foreach $arg (@ARGV) {
24 if ($arg =~ /^\+/) {
25 next;
27 if ($arg =~ /^-t/) {
28 next;
30 if ($arg =~ /^ds$/i) {
31 $ext = "ds";
32 next;
34 if ($arg =~ /^dlv$/i) {
35 $ext = "dlv";
36 next;
38 if ($arg =~ /^dnskey$/i) {
39 $ext = "dnskey";
40 next;
42 $file = $arg;
43 next;
46 open F, $file . "." . $ext . ".db" || die $!;
47 while (<F>) {
48 print;
50 close F;