//script basado en el que aparece en http://www.yaysoft.com/pingweblogs.php
$default_name = "Blogpocket";
$default_url = "http://www.blogpocket.com/";
$default_directory = "http://www.bitacoras.net/ping/";
$default_dom = "bitacoras.net";
function pingWeblogs($name="", $url="") {
global $default_name, $default_url;
if (!$name) $name = $default_name;
if (!$url) $url = $default_url;
$fp = fsockopen("$default_dom", 80, &$errnum, &$errstr);
if(!$fp) {
echo "$errstr ($errnum)
\n";
$output = "ERROR!";
} else {
$len = strlen($name) + strlen($url) + strlen("weblogUpdates.ping");
fputs($fp,"POST $default_directory HTTP/1.0\r\n");
fputs($fp,"User-Agent: Bean's Weblogs.com Updater (PHP Stylin')\r\n");
fputs($fp,"Content-Type: text/xml\r\n");
fputs($fp,"Content-length: $len\r\n\r\n");
fputs($fp,"weblogUpdates.ping$name$url");
$output="";
while(!feof($fp)) $output.=fgets($fp,4096);
fclose($fp);
}
$output = preg_replace("/.*<\/boolean>/si","",$output);
$output = preg_replace("/.*/si","",$output);
$output = preg_replace("/<\/value>.*/si","",$output);
return $output;
}
$result = pingWeblogs("Blogpocket", "http://www.blogpocket.com/");
echo "Weblogs.com contesta: $result";
?>