--- a/zone-ls	Thu Jul 29 14:19:56 2010 +0200
+++ b/zone-ls	Mon Aug 02 11:15:18 2010 +0200
@@ -2,10 +2,24 @@
 
 use strict;
 
-my $master_dir = "/etc/bind/master";
+my %config;
+open (CONFIG, "dnstools.conf");
+while (<CONFIG>) {
+        chomp;
+        s/#.*//;
+        s/\t//g;
+        s/\s//g;
+
+        next unless length;
+        my ($cname, $ccont) = split (/\s*=\s*/, $_,2);
+        $config{$cname} = $ccont;
+}
+close (CONFIG);
+
+my $master_dir = $config{master_dir};
 
 printf "%-25s %1s/%1s %3s %7s\n", "Domain", "ZSK", "KSK", "Used", "Sig-end";
-foreach (<$master_dir/*>) {
+for (<$master_dir/*>) {
 	s#($master_dir/)(.*)#$2#;
 	my $zone = $_;
 
@@ -42,7 +56,7 @@
 		@temp = <FILE>;
 		close (FILE);
 
-		foreach (@temp) {
+		for (@temp) {
 			if (m/RSIG.*SOA.*\s(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)\d+\s\(/i) {
 			$info_end = "$3.$2.$1 $4:$5";
 			}