--- a/zone-rm	Wed Jul 21 14:04:05 2010 +0200
+++ b/zone-rm	Thu Jul 22 12:44:14 2010 +0200
@@ -1,17 +1,20 @@
-#!/bin/bash
+#!/usr/bin/perl -w
+
+use strict;
 
-source dnstools.conf
+my $master_dir = "/etc/bind/master";
+my $conf_dir = "/etc/bind/zones.d";
 
-master_dir=$MASTER_DIR
-conf_dir=$ZONE_CONF_DIR
+foreach (@ARGV) {
+	chomp (my $domain = `idn --quiet $_`);
 
-for utf8domain in $@
-do
-
-	domain=$(idn --quiet $utf8domain ) 
-	echo $domain
-
-	test -d $master_dir/$domain && rm -rf $master_dir/$domain && echo "-> Zonedatei entfernt"
-	test -f $conf_dir/$domain && rm -f $conf_dir/$domain && echo "-> Konfiguration entfernt"
+	if (-e "$master_dir/$domain") {
+		`rm -rf $master_dir/$domain`;
+		print "zone-dir for $domain removed\n";
+	}
 	
-done
+	if (-e "$conf_dir/$domain") {
+		`rm -f $conf_dir/$domain`;
+		print "configuration-file for $domain removed\n";
+	}
+}