fixed hostname regex

2016-02-22 09:22:56 -05:00
parent 1a0768b779
commit 5c54c53911
3 changed files with 3 additions and 3 deletions
--- a/bin/del-vhost
+++ b/bin/del-vhost
@ -8,7 +8,7 @@ use Regexp::Common qw/net/;
 my $host = shift || die "No vhost provided";

 die "Hostname must end in a dot"
-    unless ($host =~ /^[a-zA-Z0-9\.]+\.$/);
+    unless ($host =~ /^[a-zA-Z0-9\-\_\.]+\.$/);

 my $ddns = Martnet::DDNS->new();
 $ddns->delvhost($host);