8 open NAMES, "switches.txt"
9 or die "switches.txt: $!";
12 /194\.0\.(\d+\.\d+)\s+(\d+)\s+(\S+)/ or next;
19 # Autogenerated by make-dhcpd.pl. Do not edit manually!
21 option domain-name "tg06.gathering.org";
22 option domain-name-servers 194.0.254.2;
24 # ddns-update-style none;
25 ddns-update-style interim;
28 algorithm HMAC-MD5.SIG-ALG.REG.INT;
32 default-lease-time 14400;
36 subnet 194.0.254.0 netmask 255.255.255.0 {
40 subnet 194.0.255.0 netmask 255.255.255.0 {
43 zone 0.194.in-addr.arpa. {
51 my $domain = $netnames{$net};
53 my ($netmask, $numpc);
54 if ($netmasks{$net} == 24) {
55 $netmask = "255.255.255.0";
57 } elsif ($netmasks{$net} == 25) {
58 $netmask = "255.255.255.128";
60 } elsif ($netmasks{$net} == 26) {
61 $netmask = "255.255.255.192";
64 die "Unknown netmask /$netmasks{$net}";
67 $net =~ /(\d+)\.(\d+)/ or die "Unknown net $net";
68 my ($majorsubnet,$minorsubnet) = ($1,$2);
70 my $gw = "194.0.$majorsubnet." . ($minorsubnet + 1);
71 my $rangestart = "194.0.$majorsubnet." . ($minorsubnet + 10);
72 my $rangeend = "194.0.$majorsubnet." . ($minorsubnet + $numpc - 2);
75 zone $domain.tg06.gathering.org. {
79 subnet 194.0.$net netmask $netmask {
81 range $rangestart $rangeend;
84 option domain-name "$domain.tg06.gathering.org";
85 ddns-domainname "$domain.tg06.gathering.org";
86 ignore client-updates;
90 # if ($net eq '250.0') {
93 # hardware ethernet 00:0e:0c:36:a7:66;
94 # filename "/pxelinux.0";
95 # next-server 194.0.254.89;