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

removed Net::DDNS and updated master

Browse Source
This commit is contained in:
Jorj Bauer
2023-11-12 17:29:33 +00:00
parent 23b5a19166
commit 3b5a21d819
5 changed files with 33 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/add-custom
View File

@ -7,7 +7,8 @@ use Regexp::Common qw/net/;
my $host = shift || die "No zonename provided";
my $master = shift;
$master ||= '198.251.79.234;2607:f1c0:86e:b66f:6b86:babb:c367:b0dc';
my $ddns = Martnet::DDNS->new();
$master ||= $ddns->default_master();
die "Zonename must end in a dot"
unless ($host =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
@ -16,5 +17,4 @@ my $regex = $RE{net}{IPv4} . '|' . $RE{net}{IPv6};
die "Master must be an IPv4 or IPv6 address"
unless ($master =~ /^$regex$/);
my $ddns = Martnet::DDNS->new();
$ddns->add($host, $master, '_custom');