Source for file _functions_pingback.php

Documentation is available at _functions_pingback.php

<?php
/**
* Pingback support functions
*
* b2evolution - {@link http://b2evolution.net/}
* Released under GNU GPL License - {@link http://b2evolution.net/about/license.html}
*
* @package evocore
* @author This file built upon code from original b2 - http://cafelog.com/
*/
if( !defined('DB_USER') ) die( 'Please, do not access this page directly.' );
/**
* Sending pingback
*
* original code by Mort (http://mort.mine.nu:8080)
*
* {@internal pingback(-)}}
*/
function pingback(
$post_pingback,
$content,
$post_title,
$post_url,
$post_ID,
& $blogparams,
$display = true)
{
global $b2_version, $debug, $ItemCache;
if( $display )
{
echo "<div class=\"panelinfo\">\n";
echo '<h3>', T_('Sending pingbacks...'), '</h3>', "\n";
}
if( ! $post_pingback )
{
if( $display ) echo '<p>', T_('No pingback to be done.'), '</p>', "\n";
}
else
{
$log = debug_fopen('./pingback.log', 'a');
$post_links = array();
debug_fwrite($log, T_('BEGIN').' '.time()."\n");
// Variables
$ltrs = '\w';
$gunk = '/#~:.?+=&%@!\-';
$punc = '.:?\-';
$any = $ltrs.$gunk.$punc;
$pingback_str_dquote = 'rel="pingback"';
$pingback_str_squote = 'rel=\'pingback\'';
$x_pingback_str = 'x-pingback: ';
$pingback_href_original_pos = 27;
$Item = $ItemCache->get_by_ID( $post_ID );
$pagelinkedfrom = $Item->gen_permalink();
if( !empty($post_url) )
{
$content = '<a href="'.$post_url.'">'.$post_title.'</a>'.$post_url;
}
// Step 1
// Parsing the post, external links (if any) are stored in the $post_links array
// This regexp comes straigth from phpfreaks.com
// http://www.phpfreaks.com/quickcode/Extract_All_URLs_on_a_Page/15.php
// preg_match_all("{\b http : [$any] +? (?= [$punc] * [^$any] | $)}x", $content, $post_links_temp);
// fplanque: \b is for word boundary
// trailing x is to ignore whitespace
// we need to simplify and allow ; in the URL
preg_match_all("{\b http:// [0-9A-Za-z:/_~+\-%.?&=;]+}x", $content, $post_links_temp);
// Debug
debug_fwrite($log, T_('Post contents').':');
debug_fwrite($log, $content."\n");
// Step 2.
// Walking thru the links array
// first we get rid of links pointing to sites, not to specific files
// Example:
// http://dummy-weblog.org
// http://dummy-weblog.org/
// http://dummy-weblog.org/post.php
// We don't wanna ping first and second types, even if they have a valid <link/>
foreach($post_links_temp[0] as $link_test)
{
//echo "testing: $link_test <br />";
$test = parse_url($link_test);
if( $test['scheme'] == 'http' )
{
if (isset($test['query']))
{
$post_links[] = $link_test;
}
elseif(($test['path'] != '/') && ($test['path'] != ''))
{
$post_links[] = $link_test;
}
}
}
foreach ($post_links as $pagelinkedto)
{
if( $display ) echo '<p>', T_('Processing:'), ' ', $pagelinkedto, "<br />\n";
debug_fwrite($log, T_('Processing:').' '.$pagelinkedto."\n\n");
$bits = parse_url($pagelinkedto);
if (!isset($bits['host'])) {
if( $display ) echo T_('Couldn\'t find a hostname for:'),' ',$pagelinkedto, "<br />\n";
debug_fwrite($log, T_('Couldn\'t find a hostname for:').' '.$pagelinkedto."\n\n");
continue;
}
$host = $bits['host'];
$path = isset($bits['path']) ? $bits['path'] : '';
if (isset($bits['query'])) {
$path .= '?'.$bits['query'];
}
if (!$path) {
$path = '/';
}
$port = isset($bits['port']) ? $bits['port'] : 80;
// Try to connect to the server at $host
if( $display ) echo T_('Connect to server at:'), ' ',$host;
$fp = fsockopen($host, $port, $errno, $errstr, 30);
if (!$fp)
{
if( $display ) echo T_('Couldn\'t open a connection to:'), ' ', $pagelinkedto, "<br />\n";
debug_fwrite($log, T_('Couldn\'t open a connection to:').' '.$host."\n\n");
continue;
}
echo "<br />\n";
// Send the GET request
$request = "GET $path HTTP/1.1\r\nHost: $host\r\nUser-Agent: b2evolution/$b2_version PHP/" . phpversion() . "\r\n\r\n";
ob_end_flush();
fputs($fp, $request);
// Start receiving headers and content
debug_fwrite($log, T_('Start receiving headers and content')."\n");
$contents = '';
$headers = '';
$gettingHeaders = true;
$found_pingback_server = 0;
while (!feof($fp))
{
$line = fgets($fp, 4096);
// echo "line (".strlen($line)."): [",htmlspecialchars($line),"] <br />\n";
if (trim($line) == '') // ligne blanche = fin des headers
{
$gettingHeaders = false;
}
$pingback_link_offset_dquote = 0;
$pingback_link_offset_squote = 0;
$x_pingback_header_offset = 0;
if (!$gettingHeaders)
{
// echo 'CONTENT';
$contents .= trim($line)."\n";
// localise rel="'pingback"' :
$pingback_link_offset_dquote = strpos($contents, $pingback_str_dquote);
$pingback_link_offset_squote = strpos($contents, $pingback_str_squote);
}
else
{
// echo 'HEADER';
$headers .= trim($line)."\n";
$x_pingback_header_offset = strpos(strtolower($headers), $x_pingback_str);
}
if ($x_pingback_header_offset)
{ // on a trouvé dans les headers
preg_match('#x-pingback: (.+)#is', $headers, $matches);
$pingback_server_url = trim($matches[1]);
echo T_('Pingback server found from X-Pingback header:'), ' ', $pingback_server_url, "<br />\n";
debug_fwrite($log, T_('Pingback server found from X-Pingback header:').' '.$pingback_server_url."\n");
$found_pingback_server = 1;
break;
}
if( $pingback_link_offset_dquote || $pingback_link_offset_squote )
{ // on a trouvé dans les données
$quote = ($pingback_link_offset_dquote) ? '"' : '\'';
$pingback_link_offset = ($quote=='"') ? $pingback_link_offset_dquote : $pingback_link_offset_squote;
$pingback_href_pos = strpos($contents, 'href=', $pingback_link_offset);
$pingback_href_start = $pingback_href_pos+6;
$pingback_href_end = strpos($contents, $quote, $pingback_href_start);
$pingback_server_url_len = $pingback_href_end-$pingback_href_start;
$pingback_server_url = substr($contents, $pingback_href_start, $pingback_server_url_len);
echo T_('Pingback server found from Pingback <link /> tag:'), ' ', $pingback_server_url, "<br />\n";
debug_fwrite($log, T_('Pingback server found from Pingback <link /> tag:').' '.$pingback_server_url."\n");
$found_pingback_server = 1;
break;
}
}
if(!$found_pingback_server)
{
if( $display ) echo T_('Pingback server not found in headers and content'), "<br />\n";
debug_fwrite($log, T_('Pingback server not found in headers and content'). "\n\n*************************\n\n");
@fclose($fp);
}
elseif( empty($pingback_server_url) )
{
if( $display ) echo T_('Pingback server URL is empty (may be an internal PHP fgets error)'), "<br />\n";
debug_fwrite($log, T_('Pingback server URL is empty (may be an internal PHP fgets error)'). "\n\n*************************\n\n");
@fclose($fp);
}
else
{
debug_fwrite($log,"\n\n". T_('Pingback server data'). "\n");
$parsed_url = parse_url( $pingback_server_url );
debug_fwrite($log, 'host: '.$parsed_url['host']."\n");
$port = isset($parsed_url['port']) ? $parsed_url['port'] : 80;
debug_fwrite($log, 'port: '.$port."\n");
debug_fwrite($log, 'path: '.$parsed_url['path']."\n\n");
// Now, the RPC call
$method = 'pingback.ping';
if( $display ) echo T_('Page Linked To:'), " $pagelinkedto<br />\n";
debug_fwrite($log, T_('Page Linked To:').' '.$pagelinkedto."\n");
if( $display ) echo T_('Page Linked From:'), " $pagelinkedfrom<br />\n";
debug_fwrite($log, T_('Page Linked From:').' '.$pagelinkedfrom."\n");
$client = new xmlrpc_client( $parsed_url['path'], $parsed_url['host'], $port);
$client->setDebug( $debug );
$message = new xmlrpcmsg($method, array(new xmlrpcval($pagelinkedfrom), new xmlrpcval($pagelinkedto)));
printf( T_('Pinging %s...')."<br />\n", $host );
$result = $client->send($message);
// Display response
$ret = xmlrpc_displayresult( $result, $log );
@fclose($fp);
}
if( $display ) echo "</p>\n";
}
debug_fwrite($log, "\n". T_('END'). ": ".time()."\n****************************\n\r");
debug_fclose($log);
if( $display ) echo "<p>", T_('Pingbacks done.'), "<p>\n";
}
if( $display ) echo "</div>\n";
}
/*
* TEMPLATE FUNCTIONS:
*/
/*****
* Pingback tags
*****/
/**
* pingback_number(-)
* @deprecated deprecated by {@link Item::feedback_link()}
*/
function pingback_number($zero='#', $one='#', $more='#' )
{
if( $zero == '#' ) $zero = T_('Pingback (0)');
if( $one == '#' ) $one = T_('Pingback (1)');
if( $more == '#' ) $more = T_('Pingbacks (%d)');
global $id, $tablecomments, $tb, $querycount, $cache_pingbacknumber, $use_cache;
$number = generic_ctp_number($id, 'pingbacks');
if ($number == 0) {
$blah = $zero;
} elseif ($number == 1) {
$blah = $one;
} elseif ($number > 1) {
$n = $number;
$more = str_replace('%d', $n, $more);
$blah = $more;
}
echo $blah;
}
/**
* Displays link to the pingback page
* @deprecated deprecated by {@link Item::feedback_link()}
*/
function pingback_link($file='',$c=0,$tb=0)
{
global $id;
if( ($file == '') || ($file == '/') )
$file = get_bloginfo('blogurl');
echo url_add_param( $file, 'p='.$id );
if( $c == 1 )
{ // include comments // fplanque: added
echo '&c=1';
}
if( $tb == 1 )
{ // include trackback // fplanque: added
echo '&tb=1';
}
echo '&pb=1#pingbacks';
}
/**
*
* @deprecated deprecated by {@link Item::feedback_link()}
*/
function pingback_popup_link($zero='#', $one='#', $more='#', $CSSclass='')
{
global $blog, $id, $b2pingbackpopupfile, $b2commentsjavascript;
echo '<a href="';
if ($b2commentsjavascript) {
echo url_add_param( get_bloginfo('blogurl'), 'template=popup&p='.$id.'&pb=1' );
echo '" onclick="b2open(this.href); return false"';
} else {
// if comments_popup_script() is not in the template, display simple comment link
pingback_link();
echo '"';
}
if (!empty($CSSclass)) {
echo ' class="'.$CSSclass.'"';
}
echo '>';
pingback_number($zero, $one, $more);
echo '</a>';
}
/***** // Pingback tags *****/
?>

Multilingual multiuser multiblog engine

Source for file _functions_pingback.php

Packages