14 # ToDo:

    14 # ToDo:

    15 # . test against an md5 sum, not just the date of the stamp file

    15 # . test against an md5 sum, not just the date of the stamp file

    16 

    16 

    17 use strict;

    17 use strict;

    18 use warnings;

    18 use warnings;

    19 

    20 

    20 use File::Copy;

    21 use File::Copy;

    21 use File::Basename;

    22 use File::Basename;

    22 use Getopt::Long;

    23 use Getopt::Long;

    23 use Pod::Usage;

    24 use Pod::Usage;

    51     GetOptions(

    52     GetOptions(

    52         "v|verbose!"    => \$opt_verbose,

    53         "v|verbose!"    => \$opt_verbose,

    53         "y|r|yes|reload!" => \$opt_reload,

    54         "y|r|yes|reload!" => \$opt_reload,

    54         "dnssec!"     => \$opt_dnssec,

    55         "dnssec!"     => \$opt_dnssec,

    55 		"h|help"	  => sub { pod2usage(-exit => 0, -verbose => 1) },

    56 		"h|help"	  => sub { pod2usage(-exit => 0, -verbose => 1) },

    57 		"version"     => sub { print "$0 $VERSION\n"; exit 0; },

    58 		"version"     => sub { print "$0 $VERSION\n"; exit 0; },

    58     ) or pod2usage();

    59     ) or pod2usage();

    59 

    60 

    60     warn "DNSSEC support is currently disabled!\n"

    61     warn "DNSSEC support is currently disabled!\n"

    61       if not $opt_dnssec;

    62       if not $opt_dnssec;