--- a/dnssec-sign	Wed Jul 28 14:14:47 2010 +0200
+++ b/dnssec-sign	Thu Jul 29 14:19:56 2010 +0200
@@ -11,7 +11,7 @@
 my $kc;
 
 # prueft zonen aus ARGV und fuegt sie in die liste @manu ein
-foreach (@ARGV) {
+for (@ARGV) {
 	chomp ($zone = `idn --quiet $_`);
 	if (-e "$master_dir/$zone") {
 		push @manu, $zone;
@@ -30,8 +30,9 @@
 # vergleicht fuer alle zonen im ordner $master_dir mit einer
 # <zone>.signed-datei den zeitpunkt in $time mit dem ablaufdatum der
 # signatur, welcher aus der datei <zone>.signed ausgelesen wird.
-foreach (`ls $master_dir`) {
-	chomp ($zone = $_);
+for (<$master_dir/*>) {
+	s#($master_dir/)(.*)#$2#;
+	$zone = $_;
 
 	if (-e "$master_dir/$zone/$zone.signed") {
 
@@ -51,9 +52,12 @@
 }
 
 #gibt zonen mit schluessel aber ohne signatur in die liste @auto
-foreach (`ls $master_dir`) {
-	chomp ($zone = $_);
+for (<$master_dir/*>) {
+	s#($master_dir/)(.*)#$2#;
+	$zone = $_;
 
+
+	print $zone;
 	if (-e "$master_dir/$zone/.keycounter") {
 
 		open (KC, "$master_dir/$zone/.keycounter" );
@@ -68,7 +72,7 @@
 
 # signiert alle zonen in @auto und @manu und erhoeht den wert in
 # der keycounter-datei
-foreach (@auto, @manu) {
+for (@auto, @manu) {
 	$zone = $_ ;
 
 	chdir "$master_dir/$zone";