updated@9:40msk 10Jul2008
source:code.txt
<html>
<head><title>Scheck by LazutovAlexander</title></head>
<body>
<form method=post>
<textarea name="list" cols="40" 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>
<?
// Програма для проверки кодов ответа сервера.
// Важно: чекать может все, однако url должен оканчиватся на конечный /. При запуске скрипта предоставляется дефалтный пример. При отсутствии слеща код ответа не получается.
// Полный код ответв содержится в коментариях к результату, чаще заглядывайте в исходный код выданной html-страницы.
// Alexander N Lazutov (c) 2008
// При публикации активная ссылка на http://lazutov.ru/ обязательна.
function hget($in){
$in=str_replace("\n",'',$in);
$in=str_replace("\r",'',$in);
$in=str_replace(" ",'',$in);
//if (substr($in, -1)!=='/') {$in.='/';}
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $in); // что чекаем
curl_setopt($ch, CURLOPT_HEADER, 1); // нам _нужен_ заголовок
curl_setopt($ch, CURLOPT_NOBODY, 1); // нам _НЕ_ нужно мертвое тело ответа
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
curl_setopt($ch, CURLOPT_REFERER, $in);
curl_setopt($ch, CURLINFO_HEADER_OUT, true);
/*
$hrs[0]='Accept-Language:ru,en-us;q=0.7,en;q=0.3';
$hrs[1]='Accept-Charset:windows-1251,utf-8;q=0.7,*;q=0.7';
$hrs[2]='Keep-Alive:300';
$hrs[3]='Connection:keep-alive';
curl_setopt($ch, CURLOPT_HTTPHEADER, $hrs); */
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");
$result=curl_exec($ch);// загрузка страницы
echo '<!--['.$in."]\n".$result.'-->';
/*echo '<pre>';
var_dump(curl_getinfo($ch,CURLINFO_HEADER_OUT));
echo"</pre>"; */
return curl_getinfo($ch,CURLINFO_HTTP_CODE);
curl_close($ch);
//var_dump($codes);
//return $codes[0];
}
if (isset($_POST['list'])){
$list= $_POST['list'];
$list = explode("\n", $list); // далее explode по \n ,
for ($i=0; $i<count($list);$i++) {
$list[$i]=str_replace("\n",'',$list[$i]);
$r=hget($list[$i]);
echo ($list[$i]." <b>".$r."</b>"); if ($r=='') echo '<b>no</b> (пропущен конечный "/" )'; echo "<br>\n"; flush();
}
}
?>
<br>
<a href="http://lazutov.ru"> Scheck by Lazutov Alexander</a>
</body>
</html>
1