Annotation of src/external/mpl/bind/dist/bin/tests/system/checkds/dig.pl, Revision 1.1.1.1.2.2
1.1.1.1.2.2! pgoyette 1: #!/usr/bin/perl
! 2: #
! 3: # Copyright (C) Internet Systems Consortium, Inc. ("ISC")
! 4: #
! 5: # This Source Code Form is subject to the terms of the Mozilla Public
! 6: # License, v. 2.0. If a copy of the MPL was not distributed with this
! 7: # file, You can obtain one at http://mozilla.org/MPL/2.0/.
! 8: #
! 9: # See the COPYRIGHT file distributed with this work for additional
! 10: # information regarding copyright ownership.
! 11:
! 12: my $arg;
! 13: my $ext;
! 14: my $file;
! 15:
! 16: foreach $arg (@ARGV) {
! 17: if ($arg =~ /^\+/) {
! 18: next;
! 19: }
! 20: if ($arg =~ /^-t/) {
! 21: next;
! 22: }
! 23: if ($arg =~ /^ds$/i) {
! 24: $ext = "ds";
! 25: next;
! 26: }
! 27: if ($arg =~ /^dlv$/i) {
! 28: $ext = "dlv";
! 29: next;
! 30: }
! 31: if ($arg =~ /^dnskey$/i) {
! 32: $ext = "dnskey";
! 33: next;
! 34: }
! 35: $file = $arg;
! 36: next;
! 37: }
! 38:
! 39: open F, $file . "." . $ext . ".db" || die $!;
! 40: while (<F>) {
! 41: print;
! 42: }
! 43: close F;
CVSweb <webmaster@jp.NetBSD.org>