1 #!/bin/bash

     1 #!/usr/bin/perl -w

     3 source dnstools.conf

     3 use strict;

     5 master_dir=$MASTER_DIR

     5 my $master_dir = "/etc/bind/master";

     6 conf_dir=$ZONE_CONF_DIR

     6 my $conf_dir = "/etc/bind/zones.d";

     8 for utf8domain in $@

     8 foreach (@ARGV) {

     9 do

     9 	chomp (my $domain = `idn --quiet $_`);

    11 	domain=$(idn --quiet $utf8domain ) 

    11 	if (-e "$master_dir/$domain") {

    12 	echo $domain

    12 		`rm -rf $master_dir/$domain`;

    13 

    13 		print "zone-dir for $domain removed\n";

    14 	test -d $master_dir/$domain && rm -rf $master_dir/$domain && echo "-> Zonedatei entfernt"

    14 	}

    15 	test -f $conf_dir/$domain && rm -f $conf_dir/$domain && echo "-> Konfiguration entfernt"

    17 done

    16 	if (-e "$conf_dir/$domain") {

    17 		`rm -f $conf_dir/$domain`;

    18 		print "configuration-file for $domain removed\n";

    19 	}

    20 }