From 6669f020b17779cc6767a30ca2e7c51de766b9b8 Mon Sep 17 00:00:00 2001 From: Joachim Tingvold Date: Sat, 21 Mar 2015 22:48:32 +0100 Subject: Spring cleaning for TG15. Preparing for DHCP6. Cleanup of old files. --- tools/dlink-ng2dns.pl | 77 ------------------------------------------------ tools/generate-rowdns.pl | 77 ++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 77 insertions(+), 77 deletions(-) delete mode 100755 tools/dlink-ng2dns.pl create mode 100755 tools/generate-rowdns.pl (limited to 'tools') diff --git a/tools/dlink-ng2dns.pl b/tools/dlink-ng2dns.pl deleted file mode 100755 index 157d43b..0000000 --- a/tools/dlink-ng2dns.pl +++ /dev/null @@ -1,77 +0,0 @@ -#!/usr/bin/perl -use strict; - -BEGIN { - require "include/config.pm"; - eval { - require "include/config.local.pm"; - }; -} - -use Net::IP; -use Getopt::Long; - -my ($delete); - -if (@ARGV > 0) { - GetOptions( - 'del|delete' => \$delete, - ) -} - -print "server $nms::config::pri_v4\n"; - -while () -{ - my ( $sysname, $distro, $ponum, $cidr, $ipaddr, $gwaddr, $v6addr, @ports ) = split; - - - my $ip = new Net::IP($ipaddr); - - my $v4gw = new Net::IP($gwaddr); - - ( my $gw6 = $v6addr ) =~ s/\/.*//; - my $v6gw = new Net::IP($gw6); - - my $fqdn = $sysname . "." . $nms::config::tgname . ".gathering.org."; - my $sw_fqdn = $sysname . "-sw." . $fqdn; - 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 "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 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 "send\n"; - - # A and AAAA-record to the gateway/router - print "prereq nxrrset gw." . $fqdn . " IN A\n" unless $delete; - print "update add gw." . $fqdn . " \t 3600 IN A \t " . $gwaddr . "\n" unless $delete; - print "update delete gw." . $fqdn . " \t IN A\n" if $delete; - print "send\n"; - print "prereq nxrrset gw." . $fqdn . " IN AAAA\n" unless $delete; - print "update add gw." . $fqdn . " \t 3600 IN AAAA \t " . $gw6 . "\n" unless $delete; - print "update delete gw." . $fqdn . " \t IN AAAA\n" if $delete; - print "send\n"; - - # PTR to the gateway/router - print "prereq nxdomain " . $v4gw->reverse_ip() . "\n" unless $delete; - print "update add " . $v4gw->reverse_ip() . " \t 3600 IN PTR \t gw." . $fqdn . "\n" unless $delete; - print "update delete " . $v4gw->reverse_ip() . " \t IN PTR\n" if $delete; - print "send\n"; - print "prereq nxdomain " . $v6gw->reverse_ip() . "\n" unless $delete; - print "update add " . $v6gw->reverse_ip() . " \t 3600 IN PTR \t gw." . $fqdn . "\n" unless $delete; - print "update delete " . $v6gw->reverse_ip() . " \t IN PTR\n" if $delete; - print "send\n"; -} diff --git a/tools/generate-rowdns.pl b/tools/generate-rowdns.pl new file mode 100755 index 0000000..157d43b --- /dev/null +++ b/tools/generate-rowdns.pl @@ -0,0 +1,77 @@ +#!/usr/bin/perl +use strict; + +BEGIN { + require "include/config.pm"; + eval { + require "include/config.local.pm"; + }; +} + +use Net::IP; +use Getopt::Long; + +my ($delete); + +if (@ARGV > 0) { + GetOptions( + 'del|delete' => \$delete, + ) +} + +print "server $nms::config::pri_v4\n"; + +while () +{ + my ( $sysname, $distro, $ponum, $cidr, $ipaddr, $gwaddr, $v6addr, @ports ) = split; + + + my $ip = new Net::IP($ipaddr); + + my $v4gw = new Net::IP($gwaddr); + + ( my $gw6 = $v6addr ) =~ s/\/.*//; + my $v6gw = new Net::IP($gw6); + + my $fqdn = $sysname . "." . $nms::config::tgname . ".gathering.org."; + my $sw_fqdn = $sysname . "-sw." . $fqdn; + 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 "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 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 "send\n"; + + # A and AAAA-record to the gateway/router + print "prereq nxrrset gw." . $fqdn . " IN A\n" unless $delete; + print "update add gw." . $fqdn . " \t 3600 IN A \t " . $gwaddr . "\n" unless $delete; + print "update delete gw." . $fqdn . " \t IN A\n" if $delete; + print "send\n"; + print "prereq nxrrset gw." . $fqdn . " IN AAAA\n" unless $delete; + print "update add gw." . $fqdn . " \t 3600 IN AAAA \t " . $gw6 . "\n" unless $delete; + print "update delete gw." . $fqdn . " \t IN AAAA\n" if $delete; + print "send\n"; + + # PTR to the gateway/router + print "prereq nxdomain " . $v4gw->reverse_ip() . "\n" unless $delete; + print "update add " . $v4gw->reverse_ip() . " \t 3600 IN PTR \t gw." . $fqdn . "\n" unless $delete; + print "update delete " . $v4gw->reverse_ip() . " \t IN PTR\n" if $delete; + print "send\n"; + print "prereq nxdomain " . $v6gw->reverse_ip() . "\n" unless $delete; + print "update add " . $v6gw->reverse_ip() . " \t 3600 IN PTR \t gw." . $fqdn . "\n" unless $delete; + print "update delete " . $v6gw->reverse_ip() . " \t IN PTR\n" if $delete; + print "send\n"; +} -- cgit v1.2.3