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

added slave sync; bugfix for deletion; added a list-all

Browse Source
This commit is contained in:
Jorj Bauer
2016-02-22 12:42:57 -05:00
parent dd45d2fdda
commit ecf4d0c7da
5 changed files with 95 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
DDNS.pm
View File

@ -43,10 +43,10 @@ sub _validateOrDie {
}
sub _lookupOrDie {
my ($dom) = @_;
my ($dom, $type) = @_;
_validateOrDie($dom);
my $fqdn = _fqdn($dom, '_vhosts');
my $fqdn = _fqdn($dom, $type);
my $res = Net::DNS::Resolver->new;
my $query = $res->query($fqdn, "TXT");
@ -91,7 +91,9 @@ sub __docmd {
sub _gethosts {
my ($this, $type) = @_;
_validateTypeOrDie($type);
unless (!defined($type)) {
_validateTypeOrDie($type);
}
my $fh;
open($fh, "dig -t AXFR \@127.0.0.1 private.invalid. |")
@ -100,9 +102,19 @@ sub _gethosts {
my @vh;
while (<$fh>) {
if (/^(\S+).$type.private.invalid.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
push (@vh, { zone => $1,
master => $2 });
if ($type) {
if (/^(\S+)\.$type\.private\.invalid\.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
push (@vh, { zone => $1,
type => $type,
master => $2 });
}
} else {
# Querying everything
if (/^(\S+)\.(\S+)\.private\.invalid\.\s+\d+\s+IN\s+TXT\s+\"(.+)\"$/) {
push (@vh, { zone => $1,
type => $2,
master => $3 });
}
}
}
@ -121,7 +133,7 @@ sub add {
sub del {
my ($this, $dom, $type) = @_;
_lookupOrDie($dom);
_lookupOrDie($dom, $type);
my $fqdn = _fqdn($dom, $type);
$this->__docmd("update delete $fqdn TXT");