use File::Copy qw/ move /;
-my $VERSION = $1 if '$Revision: 0.7 $' =~ /(\d+\.\d+)/;
-my $COPYRIGHT = '; (C) 2003 Magnus Bodin, http://x42.com/software/';
+my $VERSION = '0.8';
+
$| = 1;
my %opt;
if ($opt{h} || $opt{H} || $opt{'?'})
{
print <<"--EOT";
-valtz $VERSION, $COPYRIGHT
+valtz $VERSION
validates tinydns-data zone files
Usage:
$0 [-hfFqrRiItT] <file(s)>
elsif (@{$files} == 0)
{
print <<"--EOT";
-valtz $VERSION, $COPYRIGHT
+valtz $VERSION
validates tinydns-data zone files
Usage:
Simple validation: