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;