| branch | hs12 |
| changeset 72 | d3d2108f07da |
| parent 71 | e25fc893e203 |
| child 75 | 4c0f518fd1be |
| 71:e25fc893e203 | 72:d3d2108f07da |
|---|---|
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 my::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: { |