[BACK]Return to dig.pl CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / src / external / mpl / bind / dist / bin / tests / system / checkds

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>