# POSSIBILITY OF SUCH DAMAGE.
# Copyright (c) 2010 Peter Palfrader <peter@palfrader.org>
+# - various fixes and cleanups
+# - do more than one zone
# usage
use List::Util qw ( shuffle );
my %opts = (t=>30);
-getopts('hZ:dt:', \%opts);
-usage() unless $opts{Z};
+getopts('hdt:', \%opts);
+usage() unless scalar @ARGV == 1;
usage() if $opts{h};
-my $zone = $opts{Z};
-$zone =~ s/^zone\.//;
+my $zone = $ARGV[0];
my $data;
my $start;
}
sub usage {
- print STDERR "usage: $0 [-d] [-t=<timeout>] -Z zone\n";
+ print STDERR "usage: $0 [-d] [-t=<timeout>] <zone>\n";
exit 3;
}