xt_geoip_build: Script to convert GeoIP CSV into compatible binary databases.

This is a cleaned up version of the original build script shipped by the
xtables-addons source code.

The following abilities have been removed:
* IPv6 support
* Big Endian

diff --git a/src/scripts/xt_geoip_build b/src/scripts/xt_geoip_build
new file mode 100644 (file)
index 0000000..202156f
--- /dev/null
+++ b/src/scripts/xt_geoip_build
@@ -0,0 +1,89 @@
+#!/usr/bin/perl
+#
+#      Converter for MaxMind CSV database to binary, for xt_geoip
+#      Copyright © Jan Engelhardt, 2008-2011
+#
+use Getopt::Long;
+use IO::Handle;
+use Text::CSV_XS; # or trade for Text::CSV
+use strict;
+
+my $csv = Text::CSV_XS->new({
+       allow_whitespace => 1,
+       binary => 1,
+       eol => $/,
+}); # or Text::CSV
+my $target_dir = ".";
+
+&Getopt::Long::Configure(qw(bundling));
+&GetOptions(
+       "D=s" => \$target_dir,
+);
+
+if (!-d $target_dir) {
+       print STDERR "Target directory $target_dir does not exist.\n";
+       exit 1;
+}
+
+my $dir = "$target_dir/LE";
+if (!-e $dir && !mkdir($dir)) {
+       print STDERR "Could not mkdir $dir: $!\n";
+       exit 1;
+}
+
+&dump(&collect());
+
+sub collect
+{
+       my %country;
+
+       while (my $row = $csv->getline(*ARGV)) {
+               if (!defined($country{$row->[4]})) {
+                       $country{$row->[4]} = {
+                               name => $row->[5],
+                               pool_v4 => [],
+                               pool_v6 => [],
+                       };
+               }
+               my $c = $country{$row->[4]};
+
+               push(@{$c->{pool_v4}}, [$row->[2], $row->[3]]);
+
+               if ($. % 4096 == 0) {
+                       print STDERR "\r\e[2K$. entries";
+               }
+       }
+
+       print STDERR "\r\e[2K$. entries total\n";
+       return \%country;
+}
+
+sub dump
+{
+       my $country = shift @_;
+
+       foreach my $iso_code (sort keys %$country) {
+               &dump_one($iso_code, $country->{$iso_code});
+       }
+}
+
+sub dump_one
+{
+       my($iso_code, $country) = @_;
+       my($file, $fh_le, $fh_be);
+
+       printf "%5u IPv4 ranges for %s %s\n",
+               scalar(@{$country->{pool_v4}}),
+               $iso_code, $country->{name};
+
+       $file = "$target_dir/LE/".uc($iso_code).".iv4";
+       if (!open($fh_le, "> $file")) {
+               print STDERR "Error opening $file: $!\n";
+               exit 1;
+       }
+       foreach my $range (@{$country->{pool_v4}}) {
+               print $fh_le pack("VV", $range->[0], $range->[1]);
+               #print $fh_be pack("NN", $range->[0], $range->[1]);
+       }
+       close $fh_le;
+}