update-serial.pl
branchhs12
changeset 75 4c0f518fd1be
parent 73 9c304b77cf02
equal deleted inserted replaced
74:8b8735676881 75:4c0f518fd1be
    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 dnstools::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($);