model: domain name type

1 files changed, 8 insertions, 4 deletions

diff --git a/aconf/model/net.lua b/aconf/model/net.lua
index 7d7a00f..39ca756 100644
--- a/aconf/model/net.lua
+++ b/aconf/model/net.lua
@@ -189,13 +189,17 @@ function M.Port:validate(context, value)
 end
 
 
-M.EmailAddress = class(String)
+local domain_pattern = '[A-Za-z%d%.%-]+%.[A-Za-z][A-Za-z]+'
+
+M.DomainName = class(String)
+function M.DomainName:init(params)
+   super(self, M.DomainName):init(update(params, {pattern=domain_pattern}))
+end
 
+M.EmailAddress = class(String)
 function M.EmailAddress:init(params)
    super(self, M.EmailAddress):init(
-      update(
-	 params, {pattern='[A-Za-z0-9%.%+%-]+@[A-Za-z0-9%.%+%-]+%.%w%w+'}
-      )
+      update(params, {pattern='[A-Za-z%d%.%+%-]+@'..domain_pattern})
    )
 end