Есть ли у кого скрипт для проверки обратной ссылки?

Есть с проверкой вообще на все, кроме индексации....

типа роботс в файле, на странице, ноиндекс, каменты и прочее проверяет.

Стукнись в асю (в подписи)

AlexVenga добавил 23.03.2011 в 14:40

Вот, нашел функцию:

function check_url_str($url, $needle, $charset='utf-8')

{



	$contents = @file_get_contents($url);



	if (!$contents) 

		return '<a href="'.$url.'" target="_blank">Страница</a> недоступна! ';





	if (strtolower($charset) !== 'utf-8') $contents = iconv($charset, "utf-8", $contents);



	if (!$contents) 

		return 'Ошибка перекодировки! ';



	if (strpos(preg_replace("/[\r\n]+/", " ", $contents), $needle)===false)

		return 'На <a href="'.$url.'" target="_blank">странице</a> нет кода! ';



	$indexing='';

	if (preg_match('/<META([^>]*)\s+CONTENT=(?:")?NOINDEX(?:")?([^>]*)>.*<\/head>/siU', $contents)) {

		$indexing.='Индексация <a href="'.$url.'" target="_blank">страницы</a> запрещена в META тэгах! ';

	}





	$path = parse_url($url);

	$bn_url_link = basename($url);



	$dir_check = str_replace($path["host"], "", $url);

	$dir_check = str_replace($bn_url_link, "", $dir_check);

	if ($dir_check == "/") $dir_check = "";

	$dir_check = str_replace('/', '\/', $dir_check);



	$robot = @file("http://".$path["host"]."/robots.txt");

	$robot_check = @implode($robot, "\r\n");



	if (preg_match("/disallow:\s+\/\s*$/siU", $robot_check) || preg_match("/disallow:\s+\/$bn_url_link\s*/siU", $robot_check) || (preg_match("/disallow:\s+($dir_check)/siU", $robot_check) && !empty($dir_check))) {

		$indexing.='Индексация страницы <a href="'.$url.'" target="_blank">страницы</a> запрещена в файле robots.txt! ';

	}



	$tmp=(strpos($contents, $needle)!==false);

	$contents = preg_replace("/<!--(.*)-->/siU", '', $contents);

	if ($tmp && (strpos($contents, $needle)===false))

		$indexing.='Код '.$needle.' находится внутри комментария! ';



	$tmp=(strpos($contents, $needle)!==false);

	$contents = preg_replace("/<noindex>(.*)<\/noindex>/siU", '', $contents);

	if ($tmp && (strpos($contents, $needle)===false))

		$indexing.='Код '.$needle.' находится внутри тэга noindex! ';



	$tmp=(strpos($contents, $needle)!==false);

	$contents = preg_replace("/<nofollow>(.*)<\/nofollow>/siU", '', $contents);

	if ($tmp && (strpos($contents, $needle)===false))

		$indexing.='Код '.$needle.' находится внутри тэга nofollow! ';





	return $indexing;

}

if (strpos(preg_replace("/[\r\n]+/", " ", $contents), $needle) == false)