Allow uppercase letters in MX entries

[hcoop/zz_old/domtool.git] / src / util.sig

diff --git a/src/util.sig b/src/util.sig
index 036e068..ac58dfe 100644 (file)
--- a/src/util.sig
+++ b/src/util.sig
@@ -53,6 +53,9 @@ sig
     (* Either a validHost or a validHost followed by .ssl? *)
     val validDomain : string -> bool
     (* Valid domain name? *)
+    val validDomainUC : string -> bool
+    (* Like validDomain, but allows uppercase characters.
+     * Use when this wouldn't allow name clashes. *)
     val validDomainId : string -> bool
     (* Valid domain ID? (Allows "_ssl" at end of first part) *)
     val validLocation : string -> bool