1 files changed, 0 insertions, 58 deletions
diff --git a/app/nginx/contrib/geo2nginx.pl b/app/nginx/contrib/geo2nginx.pl
deleted file mode 100644
index 29243ec..0000000
--- a/app/nginx/contrib/geo2nginx.pl
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/perl -w
-
-# (c) Andrei Nigmatulin, 2005
-#
-# this script provided "as is", without any warranties. use it at your own risk.
-#
-# special thanx to Andrew Sitnikov for perl port
-#
-# this script converts CSV geoip database (free download at http://www.maxmind.com/app/geoip_country)
-# to format, suitable for use with nginx_http_geo module (http://sysoev.ru/nginx)
-#
-# for example, line with ip range
-#
-#   "62.16.68.0","62.16.127.255","1041253376","1041268735","RU","Russian Federation"
-#
-# will be converted to four subnetworks:
-#
-#   62.16.68.0/22 RU;
-#   62.16.72.0/21 RU;
-#   62.16.80.0/20 RU;
-#   62.16.96.0/19 RU;
-
-
-use warnings;
-use strict;
-
-while( <STDIN> ){
-	if (/"[^"]+","[^"]+","([^"]+)","([^"]+)","([^"]+)"/){
-		print_subnets($1, $2, $3);
-	}
-}
-
-sub  print_subnets {
-	my ($a1, $a2, $c) = @_;
-	my $l;
-    while ($a1 <= $a2) {
-		for ($l = 0; ($a1 & (1 << $l)) == 0 && ($a1 + ((1 << ($l + 1)) - 1)) <= $a2; $l++){};
-		print long2ip($a1) . "/" . (32 - $l) . " " . $c . ";\n";
-    	$a1 += (1 << $l);
-	}
-}
-
-sub long2ip {
-	my $ip = shift;
-
-	my $str = 0;
-
-	$str = ($ip & 255);
-
-	$ip >>= 8;
-	$str = ($ip & 255).".$str";
-
-	$ip >>= 8;
-	$str = ($ip & 255).".$str";
-
-	$ip >>= 8;
-	$str = ($ip & 255).".$str";
-}