Changeset 941 for branches

Timestamp:

12/11/25 17:53:31 (22 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Correct "how did past me set up this hash anyway?"-ism
Move call to collision check sub to end of CNAME validator
See #72

File:

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

branches/cname-collision/DNSDB.pm

@@ -635 +635 @@
 #  my $msg = 'OK';
 
-  if ($args{type} == 5) {
+  if (${$args{rectype}} == 5) {
     # First, check for non-CNAME collisions.
     my @t = $dbh->selectrow_array("SELECT count(*) FROM "._rectable($args{defrec}, $args{revrec}).
@@ -876 +876 @@
       return ('FAIL', $errstr) if ! _check_hostname_form(${$args{val}}, ${$args{rectype}}, $args{defrec}, $args{revrec});
 
-      return ('FAIL', $errstr) unless $self->_cname_collision(%args);
-
     } # $zname !~ .rpz
   } # revzone eq 'n'
+
+  return ('FAIL', $errstr) unless $self->_cname_collision(%args);
 
   return ('OK','OK');