- Timestamp:
- 09/01/16 17:54:34 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/main.cgi
r888 r889 706 706 if ($cidr->masklen() ne $webvar{maskbits}) { 707 707 my $maskbits = $cidr->masklen(); 708 my @subblocks; 708 # we reset $cidr each time around the loop to better allow for the huge 709 # address space of IPv6; many allocation schemes in v6 will break NetAddr::IP's 710 # hard limit of 65536 subnets from a split() 709 711 while ($maskbits++ < $webvar{maskbits}) { 710 @subblocks = $cidr->split($maskbits);712 $cidr = ($cidr->split($maskbits))[0]; 711 713 } 712 $cidr = $subblocks[0];713 714 } 714 715 } # check for freeblocks assignment or IPDB-controlled assignment
Note:
See TracChangeset
for help on using the changeset viewer.