first fully functional version for vhosts
This commit is contained in:
@ -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\.\-\_]+\.$/);
|
||||
|
||||
Reference in New Issue
Block a user