Скрипт массовой проверка Бэклинки (Yahoo)

<title>Проверка беков через Yahoo</title>
<form method="get" enctype="text/plain">
<input type="text" name="url" /><br />
<input type="submit" value="ok" />
</form>

<?php
/**
* @author weee
* @copyright 2010
*/

set_time_limit(0);
error_reporting(0);
$url = $_GET
$fileload = pars($url2[36], 'Export first 1000 results to <a href="',
'">TSV</a></li>');
$file = file($fileload);
unset($file[0]);
unset($file[1]);

foreach ($file as $file) {
$pattern = '/[ ]\d{1,7}[ text\/html]*/';
preg_match($pattern, $file, $matches);
$a = pars($file, 'http://', $matches[0]);
echo Tiz($a).' ';
echo $a . '<br>';
flush();
}
}
function pars($s, $a, $b)
{
$z = strpos($s, $a);
if ($z !== false) {
$z += strlen($a);
$y = strpos($s, $b);
if ($y !== false)
return substr($s, $z, $y - $z);
}
return 0;
}

function Tiz($Url)
{
$URI = parse_url($Url);
if (!$Domain = $URI['host'])
$Domain = $Url;
$Content = file_get_contents("http://bar-navig.yandex.ru/u?ver=2&url=" .
urlencode("http://" . $Domain) . "&show=1");
preg_match("/<tcy rang=\"(.*)\" value=\"(.*)\"\/>/isU", $Content, $cy);
return intval($cy[2]);
}
?>" title=";
if ($url) {
$url2 = file("http://siteexplorer.search.yahoo.com/search?p=$url&bwm=i&bwmo=d&bwmf=s");
$fileload = pars($url2[36], 'Export first 1000 results to <a href="',
'">TSV</a></li>');
$file = file($fileload);
unset($file[0]);
unset($file[1]);

foreach ($file as $file) {
$pattern = '/[ ]\d{1,7}[ text\/html]*/';
preg_match($pattern, $file, $matches);
$a = pars($file, 'http://', $matches[0]);
echo Tiz($a).' ';
echo $a . '<br>';
flush();
}
}
function pars($s, $a, $b)
{
$z = strpos($s, $a);
if ($z !== false) {
$z += strlen($a);
$y = strpos($s, $b);
if ($y !== false)
return substr($s, $z, $y - $z);
}
return 0;
}

function Tiz($Url)
{
$URI = parse_url($Url);
if (!$Domain = $URI['host'])
$Domain = $Url;
$Content = file_get_contents("http://bar-navig.yandex.ru/u?ver=2&url=" .
urlencode("http://" . $Domain) . "&show=1");
preg_match("/<tcy rang=\"(.*)\" value=\"(.*)\"\/>/isU", $Content, $cy);
return intval($cy[2]);
}
?>" target="_blank">;
if ($url) {
$url2 = file("http://siteexplorer.search.yahoo.com/search?p=$url&bwm=i&bwmo=d&bwmf=s");
$fileload = pars($url2[36], 'Export first 1000 results to <a href="',
'">TSV</a></li>');
$file = file($fileload);
unset($file[0]);
unset($file[1]);

foreach ($file as $file) {
$pattern = '/[ ]\d{1,7}[ text\/html]*/';
preg_match($pattern, $file, $matches);
$a = pars($file, 'http://', $matches[0]);
echo Tiz($a).' ';
echo $a . '<br>';
flush();
}
}
function pars($s, $a, $b)
{
$z = strpos($s, $a);
if ($z !== false) {
$z += strlen($a);
$y = strpos($s, $b);
if ($y !== false)
return substr($s, $z, $y - $z);
}
return 0;
}

function Tiz($Url)
{
$URI = parse_url($Url);
if (!$Domain = $URI['host'])
$Domain = $Url;
$Content = file_get_contents("http://bar-navig.yandex.ru/u?ver=2&url=" .
urlencode("http://" . $Domain) . "&show=1");
preg_match("/<tcy rang=\"(.*)\" value=\"(.*)\"\/>/isU", $Content, $cy);
return intval($cy[2]);
}
?>

Otvali:
Написал отличный скрипт проверка на клей на беки на тиц и на пр скоро покажу...