Changeset 208
- Timestamp:
- 12/19/11 17:25:28 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r202 r208 296 296 my $dbh = shift; 297 297 298 # load system-wide site defaults and things from config file 299 if (open SYSDEFAULTS, "</etc/dnsdb.conf") { 300 ##fixme - error check! 301 while (<SYSDEFAULTS>) { 302 next if /^\s*#/; 303 $def{contact} = $1 if /contact ?= ?([a-z0-9_.-]+)/i; 304 $def{prins} = $1 if /prins ?= ?([a-z0-9_.-]+)/i; 305 $def{soattl} = $1 if /soattl ?= ?([a-z0-9_.-]+)/i; 306 $def{refresh} = $1 if /refresh ?= ?([a-z0-9_.-]+)/i; 307 $def{retry} = $1 if /retry ?= ?([a-z0-9_.-]+)/i; 308 $def{expire} = $1 if /expire ?= ?([a-z0-9_.-]+)/i; 309 $def{minttl} = $1 if /minttl ?= ?([a-z0-9_.-]+)/i; 310 $def{ttl} = $1 if /ttl ?= ?([a-z0-9_.-]+)/i; 311 ##fixme? load DB user/pass from config file? 312 } 313 } 314 # load from database 298 # load record types from database 315 299 my $sth = $dbh->prepare("select val,name from rectypes"); 316 300 $sth->execute;
Note:
See TracChangeset
for help on using the changeset viewer.