jorj/martnet-ddns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed hostname regex

Browse Source
This commit is contained in:
Jorj Bauer
2016-02-22 09:22:56 -05:00
parent 1a0768b779
commit 5c54c53911
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DDNS.pm
View File

@ -29,7 +29,7 @@ sub _validateOrDie {
die "No domain provided" die "No domain provided"
unless $dom; unless $dom;
die "Invalid domain name (must end in a dot)" die "Invalid domain name (must end in a dot)"
unless ($dom =~ /^[a-zA-Z0-9\.]+\.$/); unless ($dom =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
} }
sub _lookupOrDie { sub _lookupOrDie {

2
bin/add-vhost
View File

@ -9,7 +9,7 @@ my $host = shift || die "No vhost provided";
my $master = shift || die "No master DNS IP provided"; my $master = shift || die "No master DNS IP provided";
die "Hostname must end in a dot" die "Hostname must end in a dot"
unless ($host =~ /^[a-zA-Z0-9\.]+\.$/); unless ($host =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
my $regex = $RE{net}{IPv4} . '|' . $RE{net}{IPv6}; my $regex = $RE{net}{IPv4} . '|' . $RE{net}{IPv6};
die "Master must be an IPv4 or IPv6 address" die "Master must be an IPv4 or IPv6 address"

2
bin/del-vhost
View File

@ -8,7 +8,7 @@ use Regexp::Common qw/net/;
my $host = shift || die "No vhost provided"; my $host = shift || die "No vhost provided";
die "Hostname must end in a dot" die "Hostname must end in a dot"
unless ($host =~ /^[a-zA-Z0-9\.]+\.$/); unless ($host =~ /^[a-zA-Z0-9\-\_\.]+\.$/);
my $ddns = Martnet::DDNS->new(); my $ddns = Martnet::DDNS->new();
$ddns->delvhost($host); $ddns->delvhost($host);