Return to geo2nginx.pl CVS log

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

Annotation of embedaddon/nginx/contrib/geo2nginx.pl, revision 1.1.1.1

1.1       misho       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: }