From 570b57305c273a1d71e86fd44c50fb27d42aefbd Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@miketaylor.org.uk>
Date: Tue, 20 Jul 2010 14:45:40 +0100
Subject: [PATCH] Liberalise hostname regexp, I think.

---
 web/htdocs/details/edit.mc |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index f6ab56d..e0cb6e7 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -70,7 +70,7 @@ if (!defined $id) {
 	print qq[<p class="error">
 		Please specify name, protocol, host, port and database name.</p>\n];
 	undef $update;
-    } elsif ($host !~ /^\w+\.[\w.]*\w$/i) {
+    } elsif ($host !~ /^[\w-]+\.[\w.-]*\w$/i) {
 	print qq[<p class="error">
 		This host name is not valid.</p>\n];
 	undef $update;
-- 
1.7.10.4