diff -r 7c48ae30987c -r 35905799cfd1 bin/zone-rm --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/zone-rm Thu Jan 13 00:20:26 2011 +0100 @@ -0,0 +1,33 @@ +#!/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"; + } +}