--- a/zone-ls	Wed Jul 28 14:14:47 2010 +0200
+++ b/zone-ls	Thu Jul 29 14:19:56 2010 +0200
@@ -3,13 +3,12 @@
 use strict;
 
 my $master_dir = "/etc/bind/master";
-chomp (my @domains = `ls $master_dir`);
-
 
 printf "%-25s %1s/%1s %3s %7s\n", "Domain", "ZSK", "KSK", "Used", "Sig-end";
+foreach (<$master_dir/*>) {
+	s#($master_dir/)(.*)#$2#;
+	my $zone = $_;
 
-foreach (@domains) {
-	my $domain = $_;
 	my $info_zsk;
 	my $info_ksk;
 	my $info_kc;
@@ -17,20 +16,20 @@
 	my @temp;
 
 	#prueft wie viele zsks genutzt werden
-	open(FILE, "$master_dir/$domain/.index.zsk");
+	open(FILE, "$master_dir/$zone/.index.zsk");
 	@temp = <FILE>;
 	close(FILE);
 	$info_zsk = @temp;
 
 	#prueft wie viele ksks genutzt werden
-	open(FILE, "$master_dir/$domain/.index.ksk");
+	open(FILE, "$master_dir/$zone/.index.ksk");
 	@temp = <FILE>;
 	close(FILE);
 	$info_ksk = @temp;
 
 	#prueft wie oft die schluessel zum signieren genutzt wurden
-	if (-e "$master_dir/$domain/.keycounter") {
-		open(FILE, "$master_dir/$domain/.keycounter");
+	if (-e "$master_dir/$zone/.keycounter") {
+		open(FILE, "$master_dir/$zone/.keycounter");
 		chomp ($info_kc = <FILE>);
 		close(FILE);
 	} else {
@@ -38,8 +37,8 @@
 	}
 
 	#prueft das ablaufdatum
-	if (-e "$master_dir/$domain/$domain.signed") {
-		open(FILE, "$master_dir/$domain/$domain.signed");
+	if (-e "$master_dir/$zone/$zone.signed") {
+		open(FILE, "$master_dir/$zone/$zone.signed");
 		@temp = <FILE>;
 		close (FILE);
 
@@ -53,6 +52,6 @@
 		$info_end = "-";
 	}
 	
-	printf "%-25s %1s/%1s %5s %19s\n", $domain, $info_zsk, $info_ksk, $info_kc, $info_end;
+	printf "%-25s %1s/%1s %5s %19s\n", $zone, $info_zsk, $info_ksk, $info_kc, $info_end;
 }