Страна по ip - помогите разобраться

[Eric Gurt]

Ниже приведен код функции, возвращающей страну по ip адресу:

function country_by_ip ($ip) 
{ 
	$sock = fsockopen ("whois.ripe.net", 43, $errno, $errstr); 
	if (!$sock) 
	{ 
		return "??"; 
	} 
	else 
	{ 
		fputs($sock, $ip."\r\n"); // Здесь ошибка?
		while (!feof($sock)) 
		{ 
			$str=fgets ($sock, 128); 
			//echo $str; // И видим, что что-то не так с fputs
			$country=substr(strstr($str,"country:"), 8); 
			if ($country) 
			{ 
				$country=trim($country); 
				$country=substr($country, 0, 2); 
				return strtoupper($country); 
			} 
		} 
		return "??";
	} 
	fclose ($sock);
}

Эта функция возвразает EU (Европу) (!?) вместо UA, RU или PL. Причем год назад все работало.
Кто знает - просьба помочь. Нужно, чтобы возвращались страны (UA, RU, PL).

[etc]

Найти другой сервак, который выдает нужное.

[Eric Gurt]

если в этом коде добавить "echo $str;" перед "if ($country) " то видим, что ip адрес тут не передался:

fputs($sock, $ip."\r\n");

а разве есть другой?

[etc]

Ну вместо whois.ripe.net использовать что-нибудь иное. Что именно — не знаю.

[Kikasso]

Нарой где-нить базу айпишников, и whois не понадобится.

[anant]

Сообщение от Kikasso

Нарой где-нить базу айпишников, и whois не понадобится.

Это действительно лучше

[FFFantik]

Сообщение от Eric Gurt

Кто знает - просьба помочь. Нужно, чтобы возвращались страны (UA, RU, PL).

Так а в чем сложность? =) Тут буквально пару строк и писать..
Ну, вот я написал функцию....проверил на RU, выдает что надо...примерно так в общем:

function getCountry($ip) {                       

$adress='http://www.ripe.net/fcgi-bin/whois?form_type=simple&full_query_string=&searchtext='.$ip.'&do_search=Search';
        
        $str = file_get_contents($adress);
        $ar = explode('country:         ',$str);
        $country = $ar[1];
        $country = substr($country,0,2);
        $country = trim($country);
        return $country;
}

[etc]

А откуда такая уверенность, что символов в названии страны только два?

[FFFantik]

Хм =) Ну просто автор упомянул только три страны...и у всех двубуквенное обозначаение...

Сообщение от Eric Gurt

Нужно, чтобы возвращались страны (UA, RU, PL).

и я воспринял это (то, что ему нужна инфа только о трех странах) буквально...видимо зря =)
А сколько вообще максимально в буквенном коде стране может быть букв?
Думаю...больше 4 не будет всяко? Тогда исправить 2 на 4 :

$country = substr($country,0,4);

и дальше как было..

[Skubent]

Вырезать от "country:" до "#" или до конца строки, обтримать.
Задача на регулярные выражения для начинающих.

Что характерно, автор вопроса скорее всего о нем уже забыл.