update-serial.pl
changeset 26 3145999d34e3
parent 24 7526e8355cc7
child 29 49003d3e8a99
equal deleted inserted replaced
25:893de11770ac 26:3145999d34e3
    24 use Pod::Usage;
    24 use Pod::Usage;
    25 
    25 
    26 #my $dnssec_sign = "../dnstools/dnssec-sign";
    26 #my $dnssec_sign = "../dnstools/dnssec-sign";
    27 my $ME      = basename $0;
    27 my $ME      = basename $0;
    28 my $VERSION = '__VERSION__';
    28 my $VERSION = '__VERSION__';
       
    29 my $URL     = "https://keller.schlittermann.de/hg/ius/update-serial";
    29 
    30 
    30 my $master_dir  = "/etc/bind/master";
    31 my $master_dir  = "/etc/bind/master";
    31 my $opt_verbose = 0;
    32 my $opt_verbose = 0;
    32 my $opt_reload  = 0;
    33 my $opt_reload  = 0;
    33 my $opt_dnssec  = 0;
    34 my $opt_dnssec  = 0;
    60                 -noperldoc => system("perldoc -V &>/dev/null"),
    61                 -noperldoc => system("perldoc -V &>/dev/null"),
    61                 -exit      => 0,
    62                 -exit      => 0,
    62                 -verbose   => 2
    63                 -verbose   => 2
    63             );
    64             );
    64         },
    65         },
    65         "version" => sub { print "$0 $VERSION\n"; exit 0; },
    66         "version" => sub { print "$0 version:$VERSION from $URL\n"; exit 0; },
    66     ) or pod2usage();
    67     ) or pod2usage();
    67 
    68 
    68     warn "DNSSEC support is currently disabled!\n"
    69     warn "DNSSEC support is currently disabled!\n"
    69       if not $opt_dnssec;
    70       if not $opt_dnssec;
    70 
    71 
   217 
   218 
   218 =back
   219 =back
   219 
   220 
   220 =head1 AUTHOR
   221 =head1 AUTHOR
   221 
   222 
       
   223 The latest sources might be found on
       
   224 L<https://keller.schlittermann.de/hg/ius/update-serial>
       
   225 
   222  Heiko Schlittermann <hs@schlittermann.de>
   226  Heiko Schlittermann <hs@schlittermann.de>
   223  Andre Suess (dnssec specific parts)
   227  Andre Suess (dnssec specific parts)
   224 
   228 
       
   229 
   225 =cut
   230 =cut
   226 
   231 
   227 # vim:ts=4:sw=4:ai:aw:
   232 # vim:ts=4:sw=4:ai:aw: