scripts/dyndns
1
0
Fork 0
Code Issues Pull Requests Activity

Suppress displaying unsupported records so that DNSSEC (RRSIG records) are no issue

Browse Source 
(closes #2)
This commit is contained in:
Frederik Lindenaar
2019-08-01 15:34:39 +02:00
parent 348b8d9a29
commit 47a697d458
1 changed files with 19 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
dyndns.pl
View File

@@ -3,10 +3,10 @@
#
# dyndns.pl - CGI-BIN script to handle Dynamic DNS updates through http
#
# Version 1.0, latest version, documentation and bugtracker available at:
# Version 1.1, latest version, documentation and bugtracker available at:
# https://gitlab.lindenaar.net/scripts/dyndns
#
# Copyright (c) 2013 Frederik Lindenaar
# Copyright (c) 2013 - 2019 Frederik Lindenaar
#
# This script is free software: you can redistribute and/or modify it under the
# terms of version 3 of the GNU General Public License as published by the Free
@@ -104,7 +104,7 @@ sub DNS_decode_rr($) {
return $rr->nsdname if($rr->type eq 'NS');
return $rr->exchange.' (priority '.$rr->preference.')' if($rr->type eq 'MX');
return $rr->cpu.', '.$rr->os if($rr->type eq 'HINFO');
die "No support for $rr->type in DNS_get()!, aborted!";
die "No support for $rr " . $rr->type . " in DNS_decode_rr()!, aborted!";
}
# Retrieve a single value from the DNS server of a given type or everything
@@ -285,9 +285,9 @@ sub handle_view($$$$$$) {
$cgi->th(['Field', 'Value'])
]);
foreach my $rr (DNS_get($dnshost)->answer) {
print $cgi->Tr([
$cgi->td([$DNS_label{$rr->type}, DNS_decode_rr($rr)])
]);
if(my $label = $DNS_label{$rr->type}) {
print $cgi->Tr([ $cgi->td([$label, DNS_decode_rr($rr)]) ]);
}
}
print $cgi->end_table();
@@ -310,11 +310,11 @@ sub handle_list($$$$$$) {
my $lastname = '';
foreach my $rr (getResolver->axfr($dnsdomain)) {
next if($rr->name eq $dnsdomain);
print $cgi->Tr([
$cgi->td([ ($lastname cmp $rr->name) ? $rr->name : '',
$DNS_label{$rr->type}, DNS_decode_rr($rr)])
]);
$lastname = $rr->name;
if(my $label = $DNS_label{$rr->type}) {
print $cgi->Tr([ $cgi->td([ ($lastname cmp $rr->name) ? $rr->name : '',
$label, DNS_decode_rr($rr)]) ]);
$lastname = $rr->name;
}
}
print $cgi->end_table();
@@ -374,3 +374,4 @@ if($host eq '' and $mode cmp 'list' and $mode cmp 'expire') {
-type=>'text/plain'),
"ERROR - File Not Found / Invalid Mode '$mode' specified\n";
}