Changeset 939 for branches/cname-collision

Timestamp:

12/11/25 16:34:27 (23 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Logic bug checking the CNAME record count
Fix up call to collision sub so it might actually run
See #72

File:

• branches/cname-collision/DNSDB.pm (modified) (2 diffs)

branches/cname-collision/DNSDB.pm

@@ -651 +651 @@
         " WHERE "._recparent($args{defrec}, $args{revrec})." = ? AND type = 5 AND $hfield = ?",
         undef, $args{id}, $hcheck);
-  if ($t[0] > 1) {
+  if ($t[0] > 0) {
     $errstr = "There is already a CNAME present for ".($args{revrec} eq 'y' ? $arpaname : $hcheck).
         ".  Only one CNAME may be present for a given name.";
@@ -876 +876 @@
       return ('FAIL', $errstr) if ! _check_hostname_form(${$args{val}}, ${$args{rectype}}, $args{defrec}, $args{revrec});
 
-my ($code,$msg) = self->_cname_collision(%args);
+      return ('FAIL', $errstr) unless $self->_cname_collision(%args);
 
     } # $zname !~ .rpz