; Copyright (C) 2004, 2007 Internet Systems Consortium, Inc. ("ISC")

; Copyright (C) 2000, 2001 Internet Software Consortium.

;

; Permission to use, copy, modify, and/or distribute this software for any

; purpose with or without fee is hereby granted, provided that the above

; copyright notice and this permission notice appear in all copies.

;

; THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH

; REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY

; AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,

; INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM

; LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE

; OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

; PERFORMANCE OF THIS SOFTWARE.

$file1 = $ARGV[0];

$file2 = $ARGV[1];

$count = 0;

$firstname = "";

$status = 0;

$rcode1 = "none";

$rcode2 = "none";

open(FILE1, $file1) || die("open: $file1: $!\n");

while (<FILE1>) {

chomp;

if (/^;.+status:\s+(\S+).+$/) {

$rcode1 = $1;

}

next if (/^;/);

if (/^(\S+)\s+\S+\s+(\S+)\s+(\S+)\s+(.+)$/) {

$name = $1;

$class = $2;

$type = $3;

$value = $4;

if ($type eq "SOA") {

$firstname = $name if ($firstname eq "");

if ($name eq $firstname) {

$name = "$name$count";

$count++;

}

}

if ($entry{"$name ; $class.$type ; $value"} ne "") {

$line = $entry{"$name ; $class.$type ; $value"};

print("Duplicate entry in $file1:\n> $_\n< $line\n");

} else {

$entry{"$name ; $class.$type ; $value"} = $_;

}

}

}

close(FILE1);

$printed = 0;

open(FILE2, $file2) || die("open: $file2: $!\n");

while (<FILE2>) {

chomp;

if (/^;.+status:\s+(\S+).+$/) {

$rcode2 = $1;

}

next if (/^;/);

if (/^(\S+)\s+\S+\s+(\S+)\s+(\S+)\s+(.+)$/) {

$name = $1;

$class = $2;

$type = $3;

$value = $4;

if (($name eq $firstname) && ($type eq "SOA")) {

$count--;

$name = "$name$count";

}

if ($entry{"$name ; $class.$type ; $value"} ne "") {

$entry{"$name ; $class.$type ; $value"} = "";

} else {

print("Only in $file2 (missing from $file1):\n")

if ($printed == 0);

print("> $_\n");

$printed++;

$status = 1;

}

}

}

close(FILE2);

$printed = 0;

foreach $key (keys(%entry)) {

if ($entry{$key} ne "") {

print("Only in $file1 (missing from $file2):\n")

if ($printed == 0);

print("< $entry{$key}\n");

$status = 1;

$printed++;

}

}

if ($rcode1 ne $rcode2) {

print("< status: $rcode1\n");

print("> status: $rcode2\n");

$status = 1;

}

exit($status);