Changeset 196 for trunk

Timestamp:

12/12/11 17:55:02 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Minor fix on SRV validation; accept uppercase in the domain part
of the hostname. Found when trying to add a default SRV record.

File:

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

trunk/DNSDB.pm

@@ -1397 +1397 @@
     # check for _service._protocol.  NB:  RFC2782 does not say "MUST"...  nor "SHOULD"...
     # it just says (paraphrased) "... is prepended with _ to prevent DNS collisions"
-    return ('FAIL',"SRV records must begin with _service._protocol")
-        if $host !~ /^_[A-Za-z]+\._[A-Za-z]+\.[a-z0-9-]+/;
+    return ('FAIL',"SRV records must begin with _service._protocol [$host]")
+        if $host !~ /^_[A-Za-z]+\._[A-Za-z]+\.[a-zA-Z0-9-]+/;
     $weight = shift;
     $port = shift;