update-serial.pl
branchhs12
changeset 72 d3d2108f07da
parent 71 e25fc893e203
child 73 9c304b77cf02
equal deleted inserted replaced
71:e25fc893e203 72:d3d2108f07da
    10 use Getopt::Long;
    10 use Getopt::Long;
    11 use File::Temp;
    11 use File::Temp;
    12 use IO::File;
    12 use IO::File;
    13 use POSIX qw(strftime);
    13 use POSIX qw(strftime);
    14 use if $ENV{DEBUG} => "Smart::Comments";
    14 use if $ENV{DEBUG} => "Smart::Comments";
    15 use my::Config qw(get_config);
    15 use dnstools::Config qw(get_config);
    16 
    16 
    17 sub uniq(@);
    17 sub uniq(@);
    18 sub zones(@);
    18 sub zones(@);
    19 sub changed_zones();
    19 sub changed_zones();
    20 sub update_index($);
    20 sub update_index($);