Нужен скрипт для работы с ipgeo-base

кто-нибудь пользуется этой базой http://ipgeo-base.ru/cgi-bin/Archive.cgi ? если есть у кого поделитесь php-скриптом для работы с этой БД, а то на сайте есть только perl-версия.

 

короче уже не надо , сам слепил

Код (Text):

1.  
2. $gf = file(”cidr_ru_block_20080805.txt”);
3. $ipl = sprintf(”%u”, ip2long($_SERVER['REMOTE_ADDR']));}
4. $gfl = count($gf);
5. for($i=$gfl; $i>0; $i–)
6. {
7.    $data = strtok($gf[$i],” \t”);
8.    $ip1 = $data;
9.    if($ipl>=$ip1){
10.       $ip2 = strtok(” \t”);
11.       if($ipl<=$ip2){
12.          strtok(” \t”);
13.          strtok(” \t”);
14.          strtok(” \t”);
15.          strtok(” \t”);
16.          $gorod = strtok(”\t”);
17.          $oblast = strtok(”\t”);
18.          break;
19.       }
20.    }
21. }
22. $gf = array();
23. unset($gf);