| branch | hs12 |
| changeset 75 | 4c0f518fd1be |
| parent 72 | d3d2108f07da |
| 74:8b8735676881 | 75:4c0f518fd1be |
|---|---|
7 use File::Basename; |
7 use File::Basename; |
8 use FindBin; |
8 use FindBin; |
9 use Time::Local; |
9 use Time::Local; |
10 use Getopt::Long; |
10 use Getopt::Long; |
11 use if $ENV{DEBUG} => "Smart::Comments"; |
11 use if $ENV{DEBUG} => "Smart::Comments"; |
12 use dnstools::Config qw(get_config); |
12 use DNStools::Config qw(get_config); |
13 |
13 |
14 my %config; |
14 my %config; |
15 my $opt_expiry = undef; |
15 my $opt_expiry = undef; |
16 |
16 |
17 MAIN: { |
17 MAIN: { |