1 #!/usr/bin/perl 

     1 #!/usr/bin/perl 

     2 

     2 

     3 use warnings;

     3 use warnings;

     4 use strict;

     4 use strict;

     5 use File::Path;

     5 use File::Path;

     7 use DNStools::Config qw(get_config);

     6 use DNStools::Config qw(get_config);

     8 

     7 

     9 # liest die Konfiguration ein

     8 # liest die Konfiguration ein

    11 

    10 

    12 my $master_dir = $config{"master_dir"};

    11 my $master_dir = $config{"master_dir"};

    13 my $conf_dir   = $config{"zone_conf_dir"};

    12 my $conf_dir   = $config{"zone_conf_dir"};

    14 

    13 

    15 for (@ARGV) {

    14 for (@ARGV) {