added list of config files
authorHeiko Schlittermann <hs@schlittermann.de>
Mon, 02 Aug 2010 13:45:47 +0200
changeset 24 b1234b9824f0
parent 23 9dc00aa49452
child 25 c02caf4e0eb6
added list of config files
dnssec-sign
--- a/dnssec-sign	Mon Aug 02 13:45:24 2010 +0200
+++ b/dnssec-sign	Mon Aug 02 13:45:47 2010 +0200
@@ -1,9 +1,17 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl 
 
 use strict;
+use warnings;
+
+my @configs = qw(dnstools.conf /etc/dnstools.conf);
+
+foreach (grep {-f} @configs) {
+	open(CONFIG, $_) or die "Can't open $_: $!\n";
+}
+die "Can't open config (searched: @configs)\n"
+	if not seek(CONFIG, 0, 0);
 
 my %config;
-open (CONFIG, "dnstools.conf");
 while (<CONFIG>) {
         chomp;
         s/#.*//;