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-dhcpd.pl. Do not edit manually!
21 option domain-name "tg05.gathering.org";
22 option domain-name-servers 81.162.254.2, 81.162.254.76;
24 ddns-update-style interim;
27 algorithm HMAC-MD5.SIG-ALG.REG.INT;
31 default-lease-time 14400;
35 subnet 81.162.254.0 netmask 255.255.255.192 {
37 subnet 81.162.254.64 netmask 255.255.255.192 {
40 zone 162.81.in-addr.arpa. {
48 my $domain = $netnames{$net};
50 my ($netmask, $numpc);
51 if ($netmasks{$net} == 24) {
52 $netmask = "255.255.255.0";
54 } elsif ($netmasks{$net} == 25) {
55 $netmask = "255.255.255.128";
57 } elsif ($netmasks{$net} == 26) {
58 $netmask = "255.255.255.192";
61 die "Unknown netmask /$netmasks{$net}";
64 $net =~ /(\d+)\.(\d+)/ or die "Unknown net $net";
65 my ($majorsubnet,$minorsubnet) = ($1,$2);
67 my $gw = "81.162.$majorsubnet." . ($minorsubnet + 1);
68 my $rangestart = "81.162.$majorsubnet." . ($minorsubnet + 10);
69 my $rangeend = "81.162.$majorsubnet." . ($minorsubnet + $numpc - 2);
72 zone $domain.tg05.gathering.org. {
76 subnet 81.162.$net netmask $netmask {
78 range $rangestart $rangeend;
81 option domain-name "$domain.tg05.gathering.org";
82 ddns-domainname "$domain.tg05.gathering.org";
83 ignore client-updates;
87 if ($net eq '250.0') {
90 hardware ethernet 00:0e:0c:36:a7:66;
91 filename "/pxelinux.0";
92 next-server 81.162.254.89;