blob: 63cf1d0123b3c6a0875baf2ecdab410e8c7d6bcc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
#!/usr/bin/perl -I /root/tgmanage
use strict;
use Net::IP;
use NetAddr::IP;
use POSIX qw(strftime);
BEGIN {
require "include/config.pm";
eval {
require "include/config.local.pm";
};
}
my $base = "/etc";
$base = $ARGV[0] if $#ARGV > -1;
$base .= "/" if not $base =~ m/\/$/ and not $base eq "";
my $serial = strftime("%Y%m%d", localtime(time())) . "01";
my $zonefile;
$zonefile = $base . "bind/" . $nms::config::tgname . ".gathering.org.zone";
if ( not -f $zonefile )
{
print $zonefile . "\n";
open MAINZONE, ">" . $zonefile or die $! . " " . $zonefile;
print MAINZONE <<"EOF";
\$TTL 3600
@ IN SOA $nms::config::pri_hostname.$nms::config::tgname.gathering.org. abuse.gathering.org. (
$serial; serial
3600 ; refresh
1800 ; retry
608400 ; expire
3600 ) ; minimum and default TTL
IN NS $nms::config::pri_hostname.$nms::config::tgname.gathering.org.
IN NS $nms::config::sec_hostname.$nms::config::tgname.gathering.org.
$nms::config::pri_hostname IN A $nms::config::pri_v4
$nms::config::pri_hostname IN AAAA $nms::config::pri_v6
$nms::config::sec_hostname IN A $nms::config::sec_v4
$nms::config::sec_hostname IN AAAA $nms::config::sec_v6
ns1 IN CNAME $nms::config::pri_hostname.$nms::config::tgname.gathering.org.
ns2 IN CNAME $nms::config::sec_hostname.$nms::config::tgname.gathering.org.
; Generated by make-all-config.sh on the bootstrapping/nms server.
; Will not be overwritten unless it is missing ;)
EOF
close MAINZONE;
}
else { print "Skipped TG-zone, file exists.\n"; }
$zonefile = $base . "bind/infra." . $nms::config::tgname . ".gathering.org.zone";
if ( not -f $zonefile )
{
print $zonefile . "\n";
open MAINZONE, ">" . $zonefile or die $! . " " . $zonefile;
print MAINZONE <<"EOF";
\$TTL 3600
@ IN SOA $nms::config::pri_hostname.$nms::config::tgname.gathering.org. abuse.gathering.org. (
$serial; serial
3600 ; refresh
1800 ; retry
608400 ; expire
3600 ) ; minimum and default TTL
IN NS $nms::config::pri_hostname.$nms::config::tgname.gathering.org.
IN NS $nms::config::sec_hostname.$nms::config::tgname.gathering.org.
; Generated by make-all-config.sh on the bootstrapping/nms server.
; Will not be overwritten unless it is missing ;)
EOF
close MAINZONE;
}
else { print "Skipped infra-zone, file exists.\n"; }
# IPv6 PTR
foreach my $ipv6_net (NetAddr::IP->new($nms::config::base_ipv6net)->split(32)){
my $ipv6 = Net::IP->new($ipv6_net);
(my $ipv6zone = $ipv6->reverse_ip()) =~ s/\.$//;
$zonefile = $base . "bind/" . $ipv6zone . ".zone";
if ( not -f $zonefile )
{
print $zonefile . "\n";
open IPV6ZONE, ">" . $zonefile or die $! . " " . $zonefile;
print IPV6ZONE <<"EOF";
; autogenerated, and updated from dhcpd -- DO NOT TOUCH!
\$TTL 3600
@ IN SOA $nms::config::pri_hostname.$nms::config::tgname.gathering.org. abuse.gathering.org. (
$serial; serial
3600 ; refresh
1800 ; retry
608400 ; expire
3600 ) ; minimum and default TTL
IN NS $nms::config::pri_hostname.$nms::config::tgname.gathering.org.
IN NS $nms::config::sec_hostname.$nms::config::tgname.gathering.org.
; WARNING! Do not edit this file directly!
; on the bootstrapping/nms server!
EOF
# print NS reverse
my $ipv6addr = NetAddr::IP->new($ipv6_net);
my $ip_pri_1 = NetAddr::IP->new($nms::config::pri_v6);
if($ipv6addr->contains($ip_pri_1)){
my $ip_pri = Net::IP->new( $nms::config::pri_v6 ) or die ( "Error, new Net::IP for " . $nms::config::pri_v6 );
print IPV6ZONE $ip_pri->reverse_ip() . " IN PTR $nms::config::pri_hostname.$nms::config::tgname.gathering.org.\n";
}
my $ip_sec_1 = NetAddr::IP->new($nms::config::sec_v6);
if($ipv6addr->contains($ip_sec_1)){
my $ip_sec = Net::IP->new( $nms::config::sec_v6 ) or die ( "Error, new Net::IP for " . $nms::config::sec_v6 );
print IPV6ZONE $ip_sec->reverse_ip() . " IN PTR $nms::config::sec_hostname.$nms::config::tgname.gathering.org.\n";
}
close IPV6ZONE;
}
else { print "Skipped v6-reverse-zone, file exists.\n"; }
}
|
