updated@11:40msk 16Jul2008
source:code.txt

<html>
<head><title>imcheck by LazutovAlexander</title></head>
<body>
<form method=post>
Проверяет, какие страницы находятся в индексе Яндекса, а какие нет.Желательно работать небольшими порциями по 5-10 страниц.<br>
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="checkbox" name="show" value="yes">Выводить ответ яндекса.<br>
<input type="submit" value="Отправить"><br> Если проверяется Главная страница - закрывающий "/" не нужен.
</form>
<?
// Проверка индексированнорсти страниц Яндексом.
// Alexander N Lazutov (c) 2008
// При публикации активная ссылка на  http://lazutov.ru/ обязательна.
function utf8_win ($s){
$out="";
$c1="";
$byte2=false;
for ($c=0;$c<strlen($s);$c++){
$i=ord($s[$c]);
if ($i<=127) $out.=$s[$c];
if ($byte2){
$new_c2=($c1&3)*64+($i&63);
$new_c1=($c1>>2)&5;
$new_i=$new_c1*256+$new_c2;
if ($new_i==1025){
$out_i=168;
}else{
if ($new_i==1105){
$out_i=184;
}else {
$out_i=$new_i-848;
}
}
$out.=chr($out_i);
$byte2=false;
}
if (($i>>5)==6) {
$c1=$i;
$byte2=true;
}
}
return $out;
}

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=utf8_win(pget('http://yandex.ru/yandsearch?rpt=rad&text=url%3D%22'.urlencode($url).'%22|url%3D%22www.'.urlencode($url).'%22'));
   if (strpos($r,'Искомая комбинация слов нигде не встречается')===false) echo ($list[$i]." <b> OK </b>"); else  echo ($list[$i]." <b> NO </b>"); echo "<br>\n"; flush();
if($_POST['show']=='yes')  echo $r;
}

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