author | Heiko Schlittermann <hs@schlittermann.de> |
Mon, 02 Aug 2010 13:45:47 +0200 | |
changeset 24 | b1234b9824f0 |
parent 23 | 9dc00aa49452 |
child 25 | c02caf4e0eb6 |
dnssec-sign | file | annotate | diff | comparison | revisions |
--- 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/#.*//;