11     print "usage: zone-mk kundennummer domain ... \n";

    11     print "usage: zone-mk kundennummer domain ... \n";

    12     exit 1;

    12     exit 1;

    13 }

    13 }

    14 

    14 

    15 # oeffnet Konfigurations- und Templatefiles - relativ oder absolut

    15 # oeffnet Konfigurations- und Templatefiles - relativ oder absolut

    17 my @templc = (

    16 my @templc = (

    18     "$FindBin::Bin/templates/named.config",

    17     "$FindBin::Bin/templates/named.config",

    19     "/etc/dnstools/templates/named.config"

    18     "/etc/dnstools/templates/named.config"

    20 );

    19 );

    21 my @templz =

    20 my @templz =

    34 unless (seek(TEMPZONE, 0, 0)) {

    33 unless (seek(TEMPZONE, 0, 0)) {

    35     die "Can't open template (searched: @templz)\n";

    34     die "Can't open template (searched: @templz)\n";

    36 }

    35 }

    37 

    36 

    38 

    37 

    40 

    39 

    41 my $primary       = $config{primary};

    40 my $primary       = $config{primary};

    42 my $secondary     = $config{secondary};

    41 my $secondary     = $config{secondary};

    43 my $zone_conf_dir = $config{zone_conf_dir};

    42 my $zone_conf_dir = $config{zone_conf_dir};

    44 my $master_dir    = $config{master_dir};

    43 my $master_dir    = $config{master_dir};