Return to geo2nginx.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / nginx / contrib

v 1.4.3

    1: #!/usr/bin/perl -w
    2: 
    3: # (c) Andrei Nigmatulin, 2005
    4: #
    5: # this script provided "as is", without any warranties. use it at your own risk.
    6: #
    7: # special thanx to Andrew Sitnikov for perl port
    8: #
    9: # this script converts CSV geoip database (free download at http://www.maxmind.com/app/geoip_country)
   10: # to format, suitable for use with nginx_http_geo module (http://sysoev.ru/nginx)
   11: #
   12: # for example, line with ip range
   13: #
   14: #   "62.16.68.0","62.16.127.255","1041253376","1041268735","RU","Russian Federation"
   15: #
   16: # will be converted to four subnetworks:
   17: #
   18: #   62.16.68.0/22 RU;
   19: #   62.16.72.0/21 RU;
   20: #   62.16.80.0/20 RU;
   21: #   62.16.96.0/19 RU;
   22: 
   23: 
   24: use warnings;
   25: use strict;
   26: 
   27: while( <STDIN> ){
   28: 	if (/"[^"]+","[^"]+","([^"]+)","([^"]+)","([^"]+)"/){
   29: 		print_subnets($1, $2, $3);
   30: 	}
   31: }
   32: 
   33: sub  print_subnets {
   34: 	my ($a1, $a2, $c) = @_;
   35: 	my $l;
   36:     while ($a1 <= $a2) {
   37: 		for ($l = 0; ($a1 & (1 << $l)) == 0 && ($a1 + ((1 << ($l + 1)) - 1)) <= $a2; $l++){};
   38: 		print long2ip($a1) . "/" . (32 - $l) . " " . $c . ";\n";
   39:     	$a1 += (1 << $l);
   40: 	}
   41: }
   42: 
   43: sub long2ip {
   44: 	my $ip = shift;
   45: 
   46: 	my $str = 0;
   47: 
   48: 	$str = ($ip & 255);
   49: 
   50: 	$ip >>= 8;
   51: 	$str = ($ip & 255).".$str";
   52: 
   53: 	$ip >>= 8;
   54: 	$str = ($ip & 255).".$str";
   55: 
   56: 	$ip >>= 8;
   57: 	$str = ($ip & 255).".$str";
   58: }
   59: