#!/usr/bin/perl 

use warnings;
use strict;
use File::Path;
use FindBin;
use DNStools::Config qw(get_config);

# liest die Konfiguration ein
my %config = get_config("$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf");

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

for (@ARGV) {
    chomp(my $zone = `idn --quiet "$_"`);

    if (-d "$master_dir/$zone") {
        rmtree "$master_dir/$zone/"
          and print "zone-dir for $zone removed\n";
    }
    else {
        print "$master_dir/$zone: $!\n";
    }

    if (-e "$conf_dir/$zone") {
        unlink "$conf_dir/$zone"
          and print "configuration-file for $zone removed\n";
    }
    else {
        print "$conf_dir/$zone: $!\n";
    }
}
