equal
deleted
inserted
replaced
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: |