updated@19:40msk 10Jul2008
source:code.txt

<html>
<head><title>icheck by LazutovAlexander</title></head>
<body>
<form method=post>
urls:<textarea name="list" cols="100" rows="25"><? if (isset($_POST['list']))  echo $_POST['list']; else echo "http://lazutov.ru/"."\n"."mywhois.net.ru"."\n"."www2.mywhois.net.ru/err/"."\n"."http://ya.ru/"."\n"."http://rambler.ru"; ?> </textarea>
<br><input type="submit" value="Отправить">
</form>
<?
// Проверка индексированнорсти страниц Яндексом.
// Alexander N Lazutov (c) 2009
// При публикации активная ссылка на  http://lazutov.ru/ обязательна.

function pget($url){  // функция получения определенной стрницы
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_HEADER, 0);   // нем не нужен заголовок
curl_setopt($ch, CURLOPT_USERAGENT, "User-Agent=Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14"); // мы - обычный юзер
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);  // Уважаемый(ая?) курл, заверните нам в переменную!
$ret=curl_exec($ch); // взяли  нашу страницу.
curl_close($ch);
return $ret;         // и вернули
}


if (isset($_POST['list'])){
$list= $_POST['list'];
 $list = explode("\n", $list); // далее explode по \n ,
 for ($i=0; $i<count($list);$i++) {
  $list[$i]=str_replace("http://",'',$list[$i]);
  $list[$i]=str_replace("www.",'',$list[$i]);
  $list[$i]=str_replace("\n",'',$list[$i]);
  $list[$i]=str_replace(" ",'',$list[$i]);
  $list[$i]=str_replace("\r",'',$list[$i]);
    $url=$list[$i];
   $r=pget('http://yandex.ru/yandsearch?rpt=rad&text=url%3D%22'.urlencode($url).'%22|url%3D%22www.'.urlencode($url).'%22');
   echo '<pre>';
   if (strpos($r,'Искомая комбинация слов нигде не встречается')===false) echo ($list[$i]."\n"); //else  echo ($list[$i]." <b> NO </b>"); echo "<br>\n"; 
   echo '<pre>';
   flush();

}

}
  ?>
<br>
<a href="http://lazutov.ru"> icheck by Lazutov Alexander</a>
</body>
</html>