From 23cadae831d91954468208e01faf27c0b95eb83e Mon Sep 17 00:00:00 2001 From: Joachim Tingvold Date: Tue, 31 Mar 2015 05:17:26 +0200 Subject: Proper addresses. --- tools/generate-rowdns.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'tools/generate-rowdns.pl') diff --git a/tools/generate-rowdns.pl b/tools/generate-rowdns.pl index abc8780..04a8a77 100755 --- a/tools/generate-rowdns.pl +++ b/tools/generate-rowdns.pl @@ -36,7 +36,7 @@ while (){ my $fqdn = $swname . "." . $nms::config::tgname . ".gathering.org."; my $sw_fqdn = "sw." . $fqdn; my $gw_fqdn = "gw." . $fqdn; - my $text_info = $distro . "(VLAN $vlan): " . join(' + ', @ports); + my $text_info = $distro . ", vlan $vlan, " . join(' + ', @ports); # A and AAAA-record to the switch print "prereq nxdomain $sw_fqdn\n" unless $delete; @@ -75,12 +75,12 @@ while (){ print "send\n"; # PTR to the gateway/router - print "prereq nxdomain " . Net::IP->new($v4mgmt)->reverse_ip() . "\n" unless $delete; - print "update add " . Net::IP->new($v4mgmt)->reverse_ip() . " \t 3600 IN PTR \t $gw_fqdn\n" unless $delete; - print "update delete " . Net::IP->new($v4mgmt)->reverse_ip() . " \t IN PTR\n" if $delete; + print "prereq nxdomain " . Net::IP->new($v4gw)->reverse_ip() . "\n" unless $delete; + print "update add " . Net::IP->new($v4gw)->reverse_ip() . " \t 3600 IN PTR \t $gw_fqdn\n" unless $delete; + print "update delete " . Net::IP->new($v4gw)->reverse_ip() . " \t IN PTR\n" if $delete; print "send\n"; - print "prereq nxdomain " . Net::IP->new($v6mgmt)->reverse_ip() . "\n" unless $delete; - print "update add " . Net::IP->new($v6mgmt)->reverse_ip() . " \t 3600 IN PTR \t $gw_fqdn\n" unless $delete; - print "update delete " . Net::IP->new($v6mgmt)->reverse_ip() . " \t IN PTR\n" if $delete; + print "prereq nxdomain " . Net::IP->new($v6gw)->reverse_ip() . "\n" unless $delete; + print "update add " . Net::IP->new($v6gw)->reverse_ip() . " \t 3600 IN PTR \t $gw_fqdn\n" unless $delete; + print "update delete " . Net::IP->new($v6gw)->reverse_ip() . " \t IN PTR\n" if $delete; print "send\n"; } -- cgit v1.2.3