#!/usr/bin/env perl

use strict;

BEGIN {@INC = (@INC, "/afs/sipb.mit.edu/project/zoned/src");}

use ZoneFile;

my $zonefile = shift(@ARGV);

if (!defined($zonefile)) {
    print STDERR "Usage: $0 <zone source file>\n";
    exit(1);
}

eval {
  ZoneFile::get_verified_zone_data($zonefile);
} ;

if ($@) {
    print STDERR "Error reading zone source file $zonefile:\n";
    print STDERR "$@\n";
    exit(1);
}

print STDERR "Zone source file $zonefile appears valid\n";
exit(0);