nik/whois
1
0
Fork 0
mirror of https://github.com/rfc1036/whois.git synced 2026-05-03 06:51:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix make_ip_del_recovered.pl

Browse Source 
The old code was totally broken because it created first_ip-last_ip pairs
while the search code expects first_ip-netmask pairs like in ip_del.h.
Spotted by Rob Mosher.
This commit is contained in:
Marco d'Itri 2016-10-30 15:45:54 +01:00
parent e322f5cd4d
commit c87e6a593c
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
make_ip_del_recovered.pl
View File

@ -6,6 +6,8 @@ use strict;
use autodie;
use Text::CSV;
use Net::CIDR;
use Net::IP;
my $csv = Text::CSV->new;
@ -16,14 +18,15 @@ while (my $row = $csv->getline($in)) {
next if $row->[0] eq 'Start address';
next if $row->[5] ne 'ALLOCATED';
my ($b1, $b2, $b3, $b4) = split(/\./, $row->[0]);
my ($e1, $e2, $e3, $e4) = split(/\./, $row->[1]);
die if not defined $b4 or not defined $e4;
print $out '{ ' .
(($b1 << 24) + ($b2 << 16) + ($b3 << 8) + $b4) . 'UL, ' .
(($e1 << 24) + ($e2 << 16) + ($e3 << 8) + $e4) . 'UL, ' .
'"' . $row->[4] . qq|" },\n|;
print $out '/* ' . $row->[0] . ' - ' . $row->[1] . " */\n";
my @networks =
map { Net::IP->new($_) }
Net::CIDR::range2cidr($row->[0] . '-' . $row->[1]);
print $out sprintf(qq|{ %sUL, %sUL, "%s" },\n|,
$_->intip,
((~(0xffffffff >> $_->prefixlen)) & 0xffffffff),
$row->[4]
) foreach @networks;
}
close($in);