6 open NAMES, "switches.txt"
7 or die "switches.txt: $!";
10 /194\.0\.(\d+\.\d+)\s+(\S+)\s+(\S+)/ or next;
15 for my $net (keys %netnames) {
16 my $domain = $netnames{$net};
18 if ($domain =~ /^split:(.*)/) {
19 @domains = split /,/, $1;
24 for my $d (@domains) {
25 -f "/etc/bind/dynamic/$d.tg06.gathering.org" and next;
27 print "/etc/bind/dynamic/$d.tg06.gathering.org\n";
28 open ZONE, ">/etc/bind/dynamic/$d.tg06.gathering.org"
29 or die "/etc/bind/dynamic/$d.tg06.gathering.org";
32 ; autogenerated and updated from dhcpd -- DO NOT TOUCH!
34 @ IN SOA fortran.tg06.gathering.org. postmaster.fortran.tg06.gathering.org. (
39 3600 ) ; minimum and default TTL
41 IN NS fortran.tg06.gathering.org.
42 IN NS lisp.tg06.gathering.org.