diff -r bffb3f2cca90 -r e25fc893e203 zone-rm.pl --- a/zone-rm.pl Mon Jan 03 16:13:54 2011 +0100 +++ b/zone-rm.pl Mon Jan 03 16:49:56 2011 +0100 @@ -4,29 +4,10 @@ use strict; use File::Path; use FindBin; +use my::Config qw(get_config); # liest die Konfiguration ein -my @configs = ("$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf"); -my %config; - -foreach (grep { -f } @configs) { - open(CONFIG, $_) or die "Can't open $_: $!\n"; -} - -unless (seek(CONFIG, 0, 0)) { - die "Can't open config (searched: @configs)\n"; -} - -while () { - chomp; - s/#.*//; - s/\t//g; - s/\s//g; - next unless length; - my ($cname, $ccont) = split(/\s*=\s*/, $_, 2); - $config{$cname} = $ccont; -} -close(CONFIG); +my %config = get_config("$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf"); my $master_dir = $config{"master_dir"}; my $conf_dir = $config{"zone_conf_dir"};