Changeset 686 for trunk/dns-rpc.cgi
- Timestamp:
- 07/27/15 17:39:44 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dns-rpc.cgi
r684 r686 538 538 my $cidr = new NetAddr::IP $args{cidr}; 539 539 540 ##fixme: Minor edge case; if we receive calls one after the other to update 541 # to the same thing, we bulk out the log with useless notices. Leaving this 542 # for future development since this should be rare in practice. 543 540 544 my $zonelist = $dnsdb->getZonesByCIDR(%args); 541 545 if (scalar(@$zonelist) == 0) { … … 803 807 next if $iplist{$ip}; 804 808 my $newhost = $host; 805 DNSDB::_template4_expand(\$newhost, $ip->addr);809 $dnsdb->_template4_expand(\$newhost, $ip->addr); 806 810 $insth->execute($domid, $zid, $newhost, $type, $ip->addr, $ttl, $loc); 807 811 $iplist{$ip}++; … … 871 875 my ($code,$msg) = $dnsdb->delRec('n', 'y', $rec->{record_id}); 872 876 } else { 877 ##fixme: AAAA+PTR? 873 878 my $ret = $dnsdb->downconvert($rec->{record_id}, $DNSDB::reverse_typemap{A}); 874 879 }
Note:
See TracChangeset
for help on using the changeset viewer.