File geoip_csv_iv0.pl of Package xtables-geoip

Overview Repositories Revisions Requests Users Attributes Meta

File geoip_csv_iv0.pl of Package xtables-geoip (Revision dcfdd4142a271546182cf865195b0889)

Currently displaying revision dcfdd4142a271546182cf865195b0889 , Show latest

#!/usr/bin/perl
#
#	Converter for MaxMind CSV database to binary, for xt_geoip
#	written by Jan Engelhardt <jengelh@computergmbh.de>, 2009
#	This script is released into the Public Domain.
#
#	Use -b argument to create big-endian tables.
#
use Getopt::Long;
use IO::Handle;
use Text::CSV_XS; # or trade for Text::CSV
use strict;

my %country;
my %names;
my $csv = Text::CSV_XS->new({binary => 0, eol => $/}); # or Text::CSV
my $mode = "VV";

&Getopt::Long::Configure(qw(bundling));
&GetOptions("b" => sub { $mode = "NN"; });

while (my $row = $csv->getline(*ARGV)) {
	if (!defined($country{$row->[4]})) {
		$country{$row->[4]} = [];
		$names{$row->[4]} = $row->[5];
	}
	my $c = $country{$row->[4]};
	push(@$c, [$row->[2], $row->[3]]);
	if ($. % 4096 == 0) {
		print STDERR "\r\e[2K$. entries";
	}
}

print STDERR "\r\e[2K$. entries total\n";

foreach my $iso_code (sort keys %country) {
	printf "%5u ranges for %s %s\n",
		scalar(@{$country{$iso_code}}),
		$iso_code, $names{$iso_code};

open(my $fh, ">".uc($iso_code).".iv0");
	foreach my $range (@{$country{$iso_code}}) {
		print $fh pack($mode, $range->[0], $range->[1]);
	}
	close $fh;
}

Places

File geoip_csv_iv0.pl of Package xtables-geoip (Revision dcfdd4142a271546182cf865195b0889)

Places