- Timestamp:
- 10/04/11 16:45:40 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r130 r131 139 139 140 140 # System defaults 141 __cfgload("$configroot/dnsdb.conf") or $deferr = $errstr; 142 143 # Per-site-ish settings 144 unless (__cfgload("$configroot/$basename")) { 145 $errstr = ($deferr ? "Error opening default config file $defconfig: $deferr\n" : ''). 141 __cfgload("$defconfig") or $deferr = $errstr; 142 143 # Per-site-ish settings. 144 if ($basename ne '.conf') { 145 unless (__cfgload("$siteconfig")) { 146 $errstr = ($deferr ? "Error opening default config file $defconfig: $deferr\n" : ''). 146 147 "Error opening site config file $siteconfig"; 147 return; 148 return; 149 } 148 150 } 149 151 … … 160 162 $errstr = ''; 161 163 my $cfgfile = shift; 164 162 165 if (open CFG, "<$cfgfile") { 163 # my $mode = '';164 166 while (<CFG>) { 165 167 chomp;
Note:
See TracChangeset
for help on using the changeset viewer.