diff options
Diffstat (limited to 'tools/make-first-zones.pl')
| -rwxr-xr-x | tools/make-first-zones.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tools/make-first-zones.pl b/tools/make-first-zones.pl index 1227129..b36dc1a 100755 --- a/tools/make-first-zones.pl +++ b/tools/make-first-zones.pl @@ -15,7 +15,7 @@ $base = $ARGV[0] if $#ARGV > -1; $base .= "/" if not $base =~ m/\/$/ and not $base eq ""; my $tgname = $nms::config::tgname; -my $pri_a = $nms::config::pri_a; +my $pri_hostname = $nms::config::pri_hostname; my $pri_ptr = $nms::config::pri_ptr; my $pri_v6 = $nms::config::pri_v6; my $sec_a = $nms::config::sec_a; @@ -38,7 +38,7 @@ if ( not -f $zonefile ) print MAINZONE <<"EOF"; \$TTL 3600 -@ IN SOA $pri_a.$tgname.gathering.org. abuse.gathering.org. ( +@ IN SOA $pri_hostname.$tgname.gathering.org. abuse.gathering.org. ( $serial; serial 3600 ; refresh 1800 ; retry @@ -52,8 +52,8 @@ ns1 IN A $pri_ptr ns1 IN AAAA $pri_v6 ns2 IN A $sec_ptr ns2 IN AAAA $sec_v6 -$pri_a IN A $pri_ptr -$pri_a IN AAAA $pri_v6 +$pri_hostname IN A $pri_ptr +$pri_hostname IN AAAA $pri_v6 $sec_a IN A $sec_ptr $sec_a IN AAAA $sec_v6 @@ -73,14 +73,14 @@ if ( not -f $zonefile ) print MAINZONE <<"EOF"; \$TTL 3600 -@ IN SOA $pri_a.$tgname.gathering.org. abuse.gathering.org. ( +@ IN SOA $pri_hostname.$tgname.gathering.org. abuse.gathering.org. ( $serial; serial 3600 ; refresh 1800 ; retry 608400 ; expire 3600 ) ; minimum and default TTL - IN NS $pri_a.$tgname.gathering.org. + IN NS $pri_hostname.$tgname.gathering.org. IN NS $sec_a.$tgname.gathering.org. ; Generated by make-all-config.sh on the bootstrapping/nms server. @@ -116,7 +116,7 @@ EOF my $ip_pri = new Net::IP( $pri_v6 ) or die ( "Error, new Net::IP for " . $pri_v6 ); my $ip_sec = new Net::IP( $sec_v6 ) or die ( "Error, new Net::IP for " . $sec_v6 ); print IPV6ZONE $ip_pri->reverse_ip() . " IN PTR ns1.$tgname.gathering.org.\n"; - print IPV6ZONE $ip_pri->reverse_ip() . " IN PTR $pri_a.$tgname.gathering.org.\n"; + print IPV6ZONE $ip_pri->reverse_ip() . " IN PTR $pri_hostname.$tgname.gathering.org.\n"; print IPV6ZONE $ip_sec->reverse_ip() . " IN PTR ns2.$tgname.gathering.org.\n"; print IPV6ZONE $ip_sec->reverse_ip() . " IN PTR $sec_a.$tgname.gathering.org.\n"; close IPV6ZONE; |