Changeset 625 for trunk

Timestamp:

04/29/14 16:56:52 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Fine-tuning in _check_hostname_form()

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -1531 +1531 @@
       return;
     }
+  } elsif ($rectype == $reverse_typemap{CNAME}) {
+    # Allow / in reverse CNAME hostnames for sub-/24 delegation
+    if (lc($hname) !~ m|^[0-9a-z_./-]+$|) {
+      # error message is deliberately restrictive;  special cases are SPECIAL and not for general use
+      $errstr = "Hostnames may not contain anything other than (0-9 a-z . _)";
+      return;
+    }
   } elsif ($revrec eq 'y') {
     # Reverse zones don't support @ in hostnames
-    # Also skip failure on revzone TXT records;  the hostname contains the TXT content in that case.
-    if ($rectype != $reverse_typemap{TXT} && lc($hname) !~ /^(?:\*\.)?[0-9a-z_.-]+$/) {
+    if (lc($hname) !~ /^(?:\*\.)?[0-9a-z_.-]+$/) {
+      # error message is deliberately restrictive;  special cases are SPECIAL and not for general use
       $errstr = "Hostnames may not contain anything other than (0-9 a-z . _)";
       return;