first fully functional version for vhosts

This commit is contained in:
2016-02-22 11:35:44 -05:00
parent 5c54c53911
commit 31b1b9ba58
6 changed files with 136 additions and 8 deletions

View File

@ -6,7 +6,8 @@ use Martnet::DDNS;
use Regexp::Common qw/net/;
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";
my $master = '74.109.12.14';
die "Hostname must end in a dot"
unless ($host =~ /^[a-zA-Z0-9\.\-\_]+\.$/);