anonfunc/xtables-addons
1
0
Fork 0
mirror of git://git.code.sf.net/p/xtables-addons/xtables-addons synced 2025-09-13 16:14:57 +02:00
Code Issues Releases Wiki Activity

geoipdb builder: separate into functions

Browse Source
This commit is contained in:
Jan Engelhardt
2011-01-27 02:55:10 +01:00
parent f180c0e5c6
commit 80444b0d31
1 changed files with 34 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
geoip/xt_geoip_build
View File

@@ -35,6 +35,11 @@ foreach (qw(LE BE)) {
} }
} }
&collect();
&dump();
sub collect
{
while (my $row = $csv->getline(*ARGV)) { while (my $row = $csv->getline(*ARGV)) {
if (!defined($country{$row->[4]})) { if (!defined($country{$row->[4]})) {
$country{$row->[4]} = { $country{$row->[4]} = {
@@ -56,8 +61,18 @@ while (my $row = $csv->getline(*ARGV)) {
} }
print STDERR "\r\e[2K$. entries total\n"; print STDERR "\r\e[2K$. entries total\n";
}
sub dump
{
foreach my $iso_code (sort keys %country) { foreach my $iso_code (sort keys %country) {
&dump_one($iso_code);
}
}
sub dump_one
{
my $iso_code = shift @_;
my($file, $fh_le, $fh_be); my($file, $fh_le, $fh_be);
printf "%5u IPv6 ranges for %s %s\n", printf "%5u IPv6 ranges for %s %s\n",