#! /usr/bin/perl -w
use strict;
-# les inn nettnavn
-my %netnames = ();
+my $date = `date --rfc-2822`;
+chomp $date;
+
+my @nets = ();
open NAMES, "switches.txt"
or die "switches.txt: $!";
while (<NAMES>) {
chomp;
- /194\.0\.(\d+\.\d+)\s+(\S+)\s+(\S+)/ or next;
- $netnames{$1} = $3;
-}
-close NAMES;
+ /87\.76\.(\d+\.\d+)\s+(\d+)\s+(\S+)/ or next;
+ push @nets, {
+ net => $1,
+ netmask => $2,
+ name => $3
+ };
+}
-for my $net (keys %netnames) {
- my $domain = $netnames{$net};
- my @domains;
- if ($domain =~ /^split:(.*)/) {
- @domains = split /,/, $1;
- } else {
- @domains = ($domain);
- }
+for my $net (@nets) {
+ my $d = $net->{name};
- for my $d (@domains) {
- -f "/etc/bind/dynamic/$d.tg06.gathering.org" and next;
+ -f "/etc/bind/dynamic/$d.tg07.gathering.org" and next;
- print "/etc/bind/dynamic/$d.tg06.gathering.org\n";
- open ZONE, ">/etc/bind/dynamic/$d.tg06.gathering.org"
- or die "/etc/bind/dynamic/$d.tg06.gathering.org";
+ print "/etc/bind/dynamic/$d.tg07.gathering.org\n";
+ open ZONE, ">/etc/bind/dynamic/$d.tg07.gathering.org"
+ or die "/etc/bind/dynamic/$d.tg07.gathering.org";
- print ZONE <<"EOF";
+ print ZONE <<"EOF";
; autogenerated and updated from dhcpd -- DO NOT TOUCH!
\$TTL 3600
-@ IN SOA fortran.tg06.gathering.org. postmaster.fortran.tg06.gathering.org. (
+@ IN SOA sysrq.tg07.gathering.org. abuse.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.
+ IN NS sysrq.tg07.gathering.org.
+ IN NS insert.tg07.gathering.org.
EOF
- }
}