diff options
| author | Joachim Tingvold <joachim@tingvold.com> | 2015-03-31 05:17:26 +0200 |
|---|---|---|
| committer | Joachim Tingvold <joachim@tingvold.com> | 2015-03-31 05:17:26 +0200 |
| commit | 23cadae831d91954468208e01faf27c0b95eb83e (patch) | |
| tree | 82916bd61c19329397cf225bc73ca99f87a9740a | |
| parent | 06e7a9661fff929fb5f230d34bac94aaa85af6bf (diff) | |
Proper addresses.
| -rwxr-xr-x | tools/generate-rowdns.pl | 14 |
1 files changed, 7 insertions, 7 deletions
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 (<STDIN>){ 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 (<STDIN>){ 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"; } |