--- a/zone-mk.pl	Mon Jan 03 16:13:54 2011 +0100
+++ b/zone-mk.pl	Mon Jan 03 16:49:56 2011 +0100
@@ -3,6 +3,9 @@
 use warnings;
 use strict;
 use FindBin;
+use my::Config qw(get_config);
+
+my %config;
 
 if (@ARGV < 2) {
     print "usage: zone-mk kundennummer domain ... \n";
@@ -17,14 +20,6 @@
 );
 my @templz =
   ("$FindBin::Bin/templates/named.zone", "/etc/dnstools/templates/named.zone");
-my %config;
-
-for (grep { -f } @configs) {
-    open(CONFIG, $_) or die "Can't open $_: $!\n";
-}
-unless (seek(CONFIG, 0, 0)) {
-    die "Can't open config (searched: @configs)\n";
-}
 
 for (grep { -f } @templc) {
     open(TEMPCONF, $_) or die "Can't open $_: $!\n";
@@ -40,16 +35,8 @@
     die "Can't open template (searched: @templz)\n";
 }
 
-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);
+
+%config = get_config(@configs);
 
 my $primary       = $config{primary};
 my $secondary     = $config{secondary};