diff options
| author | root <root@riffraff.tg14.gathering.org> | 2014-04-20 02:58:05 +0200 |
|---|---|---|
| committer | root <root@riffraff.tg14.gathering.org> | 2014-04-20 02:58:05 +0200 |
| commit | 8f4ae8e5833f0d26be5fad5160ae6ee0479b0712 (patch) | |
| tree | da5089e91fbe52fd7da57a1c431c9af64f6ac8af /tools/dlink-ng2dns.pl | |
| parent | 37a3b5d6ed97367989aecc875f1db1e9eb0458df (diff) | |
| parent | 19cd0064816a577b72577b9f21a5a946eb746f64 (diff) | |
Merge branch 'master' of https://github.com/tech-server/tgmanage
Diffstat (limited to 'tools/dlink-ng2dns.pl')
| -rwxr-xr-x | tools/dlink-ng2dns.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tools/dlink-ng2dns.pl b/tools/dlink-ng2dns.pl index a7e01a8..157d43b 100755 --- a/tools/dlink-ng2dns.pl +++ b/tools/dlink-ng2dns.pl @@ -38,21 +38,21 @@ while (<STDIN>) my $text_info = $distro . " - " . join(' + ', @ports) . ", po" . $ponum . ", gwaddr " . $gwaddr; # A-record to the switch - print "prereq nxdomain " . $sw_fqdn . "\n" unless $delete; - print "update add " . $sw_fqdn . " \t 3600 IN A \t " . $ipaddr . "\n" unless $delete; - print "update delete " . $sw_fqdn . " \t IN A\n" if $delete; + print "prereq nxdomain sw." . $fqdn . "\n" unless $delete; + print "update add sw." . $fqdn . " \t 3600 IN A \t " . $ipaddr . "\n" unless $delete; + print "update delete sw." . $fqdn . " \t IN A\n" if $delete; print "send\n"; # PTR to the switch print "prereq nxdomain " . $ip->reverse_ip() . "\n" unless $delete; - print "update add " . $ip->reverse_ip() . " \t 3600 IN PTR \t " . $sw_fqdn . "\n" unless $delete; + print "update add " . $ip->reverse_ip() . " \t 3600 IN PTR \t sw." . $fqdn . "\n" unless $delete; print "update delete " . $ip->reverse_ip() . " \t IN PTR\n" if $delete; print "send\n"; # TXT-record with details - print "update delete " . $sw_fqdn . " IN TXT\n" unless $delete; - print "update add " . $sw_fqdn . " \t 3600 IN TXT \t \"" . $text_info . "\"\n" unless $delete; - print "update delete " . $sw_fqdn . " \t IN TXT\n" if $delete; + print "update delete sw." . $fqdn . " IN TXT\n" unless $delete; + print "update add sw." . $fqdn . " \t 3600 IN TXT \t \"" . $text_info . "\"\n" unless $delete; + print "update delete sw." . $fqdn . " \t IN TXT\n" if $delete; print "send\n"; # A and AAAA-record to the gateway/router |