Пинг скрипт
Имхо полезный пинг-скриптик, может кому и пригодиться.
На авторство не претендую — взял скрипт на умакс форуме «Пинг-Сервисы»
<?set_time_limit(0);
$pingi_urli=array(
‘http://pingoat.com/goat/RPC2’,
‘http://blogsearch.google.com/ping/RPC2’
‘http://ping.blogg.de’
);
function MYBlog_ping ($url_ping=«», $name = «BlogName», $url = «http://name.blogger.com»)
{$url_ping=str_replace(«http://»,«»,$url_ping);
if ($firstslash = strpos($url_ping, «/»))
{
$p_host = substr($url_ping, 0, $firstslash);
$p_file =substr($url_ping, $firstslash, strlen($url_ping) — $firstslash);
}if($ping = @fsockopen($p_host, 80, $errno, $errstr, 15)) {
$p=«<?xml version=\»1.0\»?><methodCall>
<methodName>weblogUpdates.ping</methodName>
<params><param><value>».$name.«</value></param>
<param><value>».$url.«</value></param></params></methodCall>»;$pl=strlen($p);
fputs ($ping, «POST «.$p_file.» HTTP/1.0\r\n» .
«User-Agent: MYBlogPing\r\n».
«Host: «.$p_host.«\r\n».
«Content-Type: text/xml\r\n».
«Content-length: $pl\r\n\r\n»);fputs ($ping, $p);
/* $page=»;
while(!feof($ping))
{
$page.=fgets($ping);
}
print «<br><font color=green>$page</font><br>»;flush();print «endddd!!!!<br><br>»;flush();
*/
fclose ($ping);
return true;
} else {
return false;
}
}
for($i=0;$i<count($pingi_urli);$i++)
{$url_ping=$pingi_urli[$i];
// print «<br><font color=red>/// i=».$i.» url_ping=».$url_ping.»
MYBlog_ping ($url_ping,«Blog name», «http://user.blogger.net/»);
}
?>Немного подправил и отладил скриптик — забираем: Пинг скрипт
рубрики: SEO, Полезности, Программирование | 20 комментариев