From 19b0254f03da475d56a5d6e1b6a39a23f26ddcb8 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Sun, 9 Apr 2006 19:42:04 +0000 Subject: [PATCH] Add make-missing-zones.pl from TG05, adjusting for TG06. --- config/make-missing-zones.pl | 46 ++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100755 config/make-missing-zones.pl diff --git a/config/make-missing-zones.pl b/config/make-missing-zones.pl new file mode 100755 index 0000000..060a0c4 --- /dev/null +++ b/config/make-missing-zones.pl @@ -0,0 +1,46 @@ +#! /usr/bin/perl -w +use strict; + +# les inn nettnavn +my %netnames = (); +open NAMES, "switches.txt" + or die "switches.txt: $!"; +while () { + chomp; + /194\.0\.(\d+\.\d+)\s+(\S+)\s+(\S+)/ or next; + $netnames{$1} = $3; +} +close NAMES; + +for my $net (keys %netnames) { + my $domain = $netnames{$net}; + my @domains; + if ($domain =~ /^split:(.*)/) { + @domains = split /,/, $1; + } else { + @domains = ($domain); + } + + for my $d (@domains) { + -f "/etc/bind/dynamic/$domain.tg06.gathering.org" and next; + + print "/etc/bind/dynamic/$domain.tg06.gathering.org\n"; + open ZONE, ">/etc/bind/dynamic/$domain.tg06.gathering.org" + or die "/etc/bind/dynamic/$domain.tg06.gathering.org"; + + print ZONE <<"EOF"; +; autogenerated and updated from dhcpd -- DO NOT TOUCH! +\$TTL 3600 +@ IN SOA fortran.tg06.gathering.org. postmaster.fortran.tg06.gathering.org. ( + 3 ; serial + 3600 ; refresh + 1800 ; retry + 608400 ; expire + 3600 ) ; minimum and default TTL + + IN NS fortran.tg06.gathering.org. + IN NS lisp.tg06.gathering.org. + +EOF + } +} -- 2.39.2