8 open NAMES, "switches.txt"
9 or die "switches.txt: $!";
12 /81\.162\.(\d+\.\d+)\s+(\d+)\s+(\S+)/ or next;
19 // Autogenerated by make-named.pl. Do not edit manually!
22 directory "/etc/bind";
24 allow-transfer { 194.19.3.20; 81.162.254.76; };
28 forwarders { 194.19.2.11; 194.19.3.11; };
32 zone "." { type hint; file "db.root"; };
34 zone "0.0.127.in-addr.arpa" {
36 file "0.0.127.in-addr.arpa";
40 zone "tg05.gathering.org" {
42 file "tg05.gathering.org";
44 allow-transfer { 81.162.254.76; };
46 zone "www.gathering.org" {
48 file "www.gathering.org";
50 allow-transfer { 81.162.254.76; };
54 zone "254.162.81.in-addr.arpa" {
56 file "254.162.81.in-addr.arpa";
58 allow-transfer { 81.162.254.76; 193.0.0.0/22; };
61 zone "162.81.in-addr.arpa" {
63 allow-update { key DHCP_UPDATER; };
65 file "dynamic/162.81.in-addr.arpa";
66 allow-transfer { 194.19.3.20; 81.162.254.76; 193.0.0.0/22; };
70 algorithm HMAC-MD5.SIG-ALG.REG.INT;
77 my $domain = $netnames{$net};
79 my ($netmask, $numpc);
80 if ($netmasks{$net} == 24) {
81 $netmask = "255.255.255.0";
83 } elsif ($netmasks{$net} == 25) {
84 $netmask = "255.255.255.128";
86 } elsif ($netmasks{$net} == 26) {
87 $netmask = "255.255.255.192";
90 die "Unknown netmask /$netmasks{$net}";
93 $net =~ /(\d+)\.(\d+)/ or die "Unknown net $net";
94 my ($majorsubnet,$minorsubnet) = ($1,$2);
96 my $gw = "82.162.$majorsubnet." . ($minorsubnet + 1);
99 zone "$domain.tg05.gathering.org" {
101 allow-update { key DHCP_UPDATER; };
103 file "dynamic/$domain.tg05.gathering.org";
104 allow-transfer { 194.19.3.20; 81.162.254.76; };