- Timestamp:
- 08/13/19 17:49:57 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r781 r782 4942 4942 eval { 4943 4943 $dbh->do("DELETE FROM "._rectable($defrec,$revrec)." WHERE record_id=?", undef, ($id)); 4944 if ($revrec eq 'y') { 4945 $dbh->do("UPDATE revzones SET changed = 'y',zserial = ? WHERE rdns_id = ?", undef, (scalar(time), $oldrec->{domain_id}) ); 4946 } else { 4947 $dbh->do("UPDATE domains SET changed = 'y',zserial = ? WHERE domain_id = ?", undef, (scalar(time), $oldrec->{rdns_id}) ); 4948 } 4944 _updateserial(%logdata); 4949 4945 $self->_log(%logdata); 4950 4946 $dbh->commit; … … 4956 4952 $logdata{entry} = "Error deleting ".($defrec eq 'y' ? 'default record' : 'record'). 4957 4953 " '$oldrec->{host} $typemap{$oldrec->{type}} $oldrec->{val}', TTL $oldrec->{ttl} ($msg)"; 4958 _updateserial(%logdata);4959 4954 $self->_log(%logdata); 4960 4955 $dbh->commit;
Note:
See TracChangeset
for help on using the changeset viewer.