- my $domain = $netnames{$net};
-
- my ($netmask, $numpc);
- if ($netmasks{$net} == 24) {
- $netmask = "255.255.255.0";
- $numpc = 256;
- } elsif ($netmasks{$net} == 25) {
- $netmask = "255.255.255.128";
- $numpc = 128;
- } elsif ($netmasks{$net} == 26) {
- $netmask = "255.255.255.192";
- $numpc = 64;
- } else {
- die "Unknown netmask /$netmasks{$net}";
- }
-
- $net =~ /(\d+)\.(\d+)/ or die "Unknown net $net";
- my ($majorsubnet,$minorsubnet) = ($1,$2);
-
- my $gw = "82.162.$majorsubnet." . ($minorsubnet + 1);
-