Fix a typo.

[nms] / config / make-named.pl

diff --git a/config/make-named.pl b/config/make-named.pl
index e8d8780a1e1202313902bbf05d686b47b2862a7e..58eef853a97b292b030e4bb5bd33eadebc29723b 100755 (executable)
--- a/config/make-named.pl
+++ b/config/make-named.pl
@@ -9,7 +9,7 @@ open NAMES, "switches.txt"
 or die "switches.txt: $!";
 while (<NAMES>) {
        chomp;
-       /81\.162\.(\d+\.\d+)\s+(\d+)\s+(\S+)/ or next;
+       /194\.0\.(\d+\.\d+)\s+(\d+)\s+(\S+)/ or next;
        $netmasks{$1} = $2;
        $netnames{$1} = $3;
        push @nets, $1;
@@ -21,7 +21,7 @@ print <<"EOF";
 options {
         directory "/etc/bind";
        allow-query { any; };
-       allow-transfer { 194.19.3.20; 81.162.254.76; }; 
+       allow-transfer { 194.19.3.20; 194.0.255.2; }; 
        auth-nxdomain no;
        recursion yes;
 
@@ -37,71 +37,60 @@ zone "0.0.127.in-addr.arpa" {
        notify no;
 };
 
-zone "tg05.gathering.org" {
+zone "tg06.gathering.org" {
        type master;
-       file "tg05.gathering.org";
+       file "tg06.gathering.org";
        notify yes;
-       allow-transfer { 81.162.254.76; };
+       allow-transfer { 194.0.255.2; };
 };
 zone "www.gathering.org" {
        type master;
        file "www.gathering.org";
        notify yes;
-       allow-transfer { 81.162.254.76; };
+       allow-transfer { 194.0.255.2; };
 };
 
 // serversubnett
-zone "254.162.81.in-addr.arpa" {
+zone "255.0.194.in-addr.arpa" {
        type master;
-       file "254.162.81.in-addr.arpa";
+       file "254.0.194.in-addr.arpa";
        notify yes;
-       allow-transfer { 81.162.254.76; 193.0.0.0/22; };
+       allow-transfer { 194.0.255.2; 193.0.0.0/22; };
 };
 
-zone "162.81.in-addr.arpa" {
+zone "0.194.in-addr.arpa" {
        type master;
        allow-update { key DHCP_UPDATER; };
        notify yes;
-       file "dynamic/162.81.in-addr.arpa";     
-       allow-transfer { 194.19.3.20; 81.162.254.76; 193.0.0.0/22; };
+       file "dynamic/0.194.in-addr.arpa";      
+       allow-transfer { 194.19.3.20; 194.0.255.2; 193.0.0.0/22; };
 };
 
 key DHCP_UPDATER {
        algorithm HMAC-MD5.SIG-ALG.REG.INT;
-       secret removed;
+       secret 5Yz1azvh7mE0IRGffTvtKg==;
 };
 
 EOF
 
 for my $net (@nets) {
        my $domain = $netnames{$net};
-
-       my ($netmask, $numpc);
-       if ($netmasks{$net} == 24) {
-              $netmask = "255.255.255.0";
-              $numpc = 256;
-       } elsif ($netmasks{$net} == 25) {
-              $netmask = "255.255.255.128";
-              $numpc = 128;
-       } elsif ($netmasks{$net} == 26) {
-              $netmask = "255.255.255.192";
-              $numpc = 64;
-       } else {
-              die "Unknown netmask /$netmasks{$net}";
-       }
-
-       $net =~ /(\d+)\.(\d+)/ or die "Unknown net $net";
-       my ($majorsubnet,$minorsubnet) = ($1,$2);
-
-       my $gw = "82.162.$majorsubnet." . ($minorsubnet + 1);
-
-       print <<"EOF";
-zone "$domain.tg05.gathering.org" {
+       my @domains;
+       if ($domain =~ /^split:(.*)/) {
+               @domains = split /,/, $1;
+       } else {
+               @domains = ($domain);
+       }
+
+       for my $d (@domains) {
+               print <<"EOF";
+zone "$d.tg06.gathering.org" {
        type master;
        allow-update { key DHCP_UPDATER; };
        notify yes;
-       file "dynamic/$domain.tg05.gathering.org";
-       allow-transfer { 194.19.3.20; 81.162.254.76; };
+       file "dynamic/$d.tg06.gathering.org";
+       allow-transfer { 194.19.3.20; 194.0.255.2; };
 };
 EOF
+       }
 }