/**
* Constructor
*
* @param object vBulletin Registry Object
*/
function vB_XMLRPC_Server_Pingback(&$registry)
{
parent::vB_XMLRPC_Server($registry);
// Add our methods
$this->add_method('pingback.ping', 'pingback_ping');
}
/**
* Send a pingback / trackback request
*
* @param array Bloginfo
* @param string Destination URL
* @param string Title of the blog
*
* @return mixed error string on failure, true on success or apparent success
*/
function send_ping_notification(&$bloginfo, $desturl, $blogtitle)
{
global $vbulletin;
if (!intval($bloginfo['blogid']))
{
return false;
}
$ourblogurl = $vbulletin->options['bburl'] . '/blog.php?blogid=' . $bloginfo['blogid'];
$pingback_dest = '';
$trackback_dest = $desturl;
require_once(DIR . '/includes/functions_file.php');
if ($headresult = fetch_head_request($desturl))
{
if (!empty($headresult['x-pingback']))
{
$pingback_dest = $headresult['x-pingback'];
}
else if ($headresult['http-response']['statuscode'] == 200 AND preg_match('#text\/html#si', $headresult['content-type']))
{
// Limit to 5KB
// Consider adding the ability to Kill the transfer on </head>\s+*<body to class_vurl.php
if ($bodyresult = fetch_body_request($desturl, 5120))
{
// search head for <link rel="pingback" href="pingback server">
if (preg_match('<link rel="pingback" href="([^"]+)" ?/?>', $bodyresult, $matches))
{
$pingback_dest = $matches[0];
}
else if (preg_match('#<rdf:Description((?!<\/rdf:RDF>).)*dc:identifier="' . preg_quote($desturl, '#') . '".*<\/rdf:RDF>#siU', $bodyresult))
{
if (preg_match('#<rdf:Description(?:(?!<\/rdf:RDF>).)*trackback:ping="([^"]+)".*<\/rdf:RDF>#siU', $bodyresult, $matches))
{
$trackback_dest = trim($matches[1]);
}
}
}
}
if (!empty($pingback_dest))
{
// Client
require_once(DIR . '/includes/class_xmlrpc.php');
$xmlrpc = new vB_XMLRPC_Client($vbulletin);
$xmlrpc->build_xml_call('pingback.ping', $ourblogurl, $desturl);
if ($pingresult = $xmlrpc->send_xml_call($pingback_dest))
{
require_once(DIR . '/includes/class_xmlrpc.php');
$xmlrpc_server = new vB_XMLRPC_Server($vbulletin);
$xmlrpc_server->parse_xml($pingresult['body']);
$xmlrpc_server->parse_xmlrpc();
}
// NOT FINSIHED
write_trackback_log('pingback', 'out', 0, $pingresult, $bloginfo, $desturl);
// Not always a success but we can't know for sure
return true;
}
else
{
// Client
require_once(DIR . '/includes/class_trackback.php');
$tb = new vB_Trackback_Client($vbulletin);
$excerpt = fetch_censored_text(fetch_trimmed_title(strip_bbcode(strip_quotes($bloginfo['pagetext']), false, true), 255));
if ($result = $tb->send_ping($trackback_dest, $ourblogurl, $bloginfo['title'], $excerpt, $blogtitle))
{
require_once(DIR . '/includes/class_xml.php');
$xml_object = new vB_XML_Parser($result['body']);
$xml_object->include_first_tag = true;
if ($xml_object->parse_xml() AND $xml_object->parseddata['response']['error'] === '0')
{
write_trackback_log('trackback', 'out', 0, $result, $bloginfo, $desturl);
return true;
}
}
write_trackback_log('trackback', 'out', 3, $result, $bloginfo, $desturl);
// Not always a success but we can't know for sure
return true;
}
}
write_trackback_log('none', 'out', 1, '', $bloginfo, $desturl);
return false;
}
