1#!/usr/bin/perl
2#
3# Copyright (C) 2014  Internet Systems Consortium, Inc. ("ISC")
4#
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.
8#
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.
16
17# Id
18
19my $arg;
20my $ext;
21my $file;
22
23foreach $arg (@ARGV) {
24    if ($arg =~ /^\+/) {
25        next;
26    }
27    if ($arg =~ /^-t/) {
28        next;
29    }
30    if ($arg =~ /^ds$/i) {
31        $ext = "ds";
32        next;
33    }
34    if ($arg =~ /^dlv$/i) {
35        $ext = "dlv";
36        next;
37    }
38    if ($arg =~ /^dnskey$/i) {
39        $ext = "dnskey";
40        next;
41    }
42    $file = $arg;
43    next;
44}
45
46open F, $file . "." . $ext . ".db" || die $!;
47while (<F>) {
48    print;
49}
50close F;
51