Changeset 202 for trunk/DNSDB.pm
- Timestamp:
- 12/15/11 17:18:17 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r201 r202 1229 1229 1230 1230 my ($recid,$host,$val,$ttl,$serial) = $sth->fetchrow_array() or return; 1231 my ($ prins,$contact) = split /:/, $host;1231 my ($contact,$prins) = split /:/, $host; 1232 1232 my ($refresh,$retry,$expire,$minttl) = split /:/, $val; 1233 1233 … … 1932 1932 # val is abused to contain refresh:retry:expire:minttl 1933 1933 ##fixme: "manual" serial vs tinydns-autoserial 1934 print $datafile "Z$host"."::$val:$ttl:$stamp:$loc\n"; 1934 # let's be explicit about abusing $host and $val 1935 my ($email, $primary) = (split /:/, $host)[0,1]; 1936 my ($refresh, $retry, $expire, $min_ttl) = (split /:/, $val)[0,1,2,3]; 1937 print $datafile "Z$dom:$primary:$email"."::$refresh:$retry:$expire:$min_ttl:$ttl:$stamp:$loc\n"; 1935 1938 1936 1939 } elsif ($typemap{$type} eq 'A') {
Note:
See TracChangeset
for help on using the changeset viewer.