WordPressを読む　45-5 /blog/wp-includes/comment.php 5

2014/11/30 2015/01/11

1 /blog/wp-includes/comment.php 5
2 関数　wp_update_comment_count()
3 関数　wp_update_comment_count_now()
4 関数　discover_pingback_server_uri()
5 関数　do_all_pings()
6 関数　do_trackbacks()
7 関数　generic_ping()
8 関数　pingback()
9 関数　privacy_ping_filter()
10 関数　trackback()
11 関数　weblog_ping()
12 関数　pingback_ping_source_uri()
13 関数　xmlrpc_pingback_error()
14 関数　clean_comment_cache()
15 関数　update_comment_cache()
16 関数　_close_comments_for_old_posts()
17 関数　_close_comments_for_old_post()

/blog/wp-includes/comment.php 5

関数　wp_update_comment_count()

/**
 * Updates the comment count for post(s).
 *
 * When $do_deferred is false (is by default) and the comments have been set to
 * be deferred, the post_id will be added to a queue, which will be updated at a
 * later date and only updated once per post ID.
 *
 * If the comments have not be set up to be deferred, then the post will be
 * updated. When $do_deferred is set to true, then all previous deferred post
 * IDs will be updated along with the current $post_id.
 *
 * @since 2.1.0
 * @see wp_update_comment_count_now() For what could cause a false return value
 *
 * @param int $post_id Post ID
 * @param bool $do_deferred Whether to process previously deferred post comment counts
 * @return bool True on success, false on failure
 */
function wp_update_comment_count($post_id, $do_deferred=false) {
	static $_deferred = array();

	if ( $do_deferred ) {
		$_deferred = array_unique($_deferred);
		foreach ( $_deferred as $i => $_post_id ) {
			wp_update_comment_count_now($_post_id);
			unset( $_deferred[$i] ); /** @todo Move this outside of the foreach and reset $_deferred to an array instead */
		}
	}

	if ( wp_defer_comment_counting() ) {
		$_deferred[] = $post_id;
		return true;
	}
	elseif ( $post_id ) {
		return wp_update_comment_count_now($post_id);
	}

}

/**

* Updates the comment count for post(s).

* When $do_deferred is false (is by default) and the comments have been set to

* be deferred, the post_id will be added to a queue, which will be updated at a

* later date and only updated once per post ID.

* If the comments have not be set up to be deferred, then the post will be

* updated. When $do_deferred is set to true, then all previous deferred post

* IDs will be updated along with the current $post_id.

* @since 2.1.0

* @see wp_update_comment_count_now() For what could cause a false return value

* @param int $post_id Post ID

* @param bool $do_deferred Whether to process previously deferred post comment counts

* @return bool True on success, false on failure

function wp_update_comment_count($post_id, $do_deferred=false) {

static $_deferred = array();

if ( $do_deferred ) {

$_deferred = array_unique($_deferred);

foreach ( $_deferred as $i => $_post_id ) {

wp_update_comment_count_now($_post_id);

unset( $_deferred[$i] ); /** @todo Move this outside of the foreach and reset $_deferred to an array instead */

}

if ( wp_defer_comment_counting() ) {

$_deferred[] = $post_id;

return true;

}

elseif ( $post_id ) {

return wp_update_comment_count_now($post_id);

}

関数　wp_update_comment_count_now()

/**
 * Updates the comment count for the post.
 *
 * @since 2.5.0
 * @uses $wpdb
 *
 * @param int $post_id Post ID
 * @return bool True on success, false on '0' $post_id or if post with ID does not exist.
 */
function wp_update_comment_count_now($post_id) {
	global $wpdb;
	$post_id = (int) $post_id;
	if ( !$post_id )
		return false;
	if ( !$post = get_post($post_id) )
		return false;

	$old = (int) $post->comment_count;
	$new = (int) $wpdb->get_var( $wpdb->prepare("SELECT COUNT(*) FROM $wpdb->comments WHERE comment_post_ID = %d AND comment_approved = '1'", $post_id) );
	$wpdb->update( $wpdb->posts, array('comment_count' => $new), array('ID' => $post_id) );

	clean_post_cache( $post );

	/**
	 * Fires immediately after a post's comment count is updated in the database.
	 *
	 * @since 2.3.0
	 *
	 * @param int $post_id Post ID.
	 * @param int $new     The new comment count.
	 * @param int $old     The old comment count.
	 */
	do_action( 'wp_update_comment_count', $post_id, $new, $old );
	/** This action is documented in wp-includes/post.php */
	do_action( 'edit_post', $post_id, $post );

	return true;
}

/**

* Updates the comment count for the post.

* @since 2.5.0

* @uses $wpdb

* @param int $post_id Post ID

* @return bool True on success, false on '0' $post_id or if post with ID does not exist.

function wp_update_comment_count_now($post_id) {

global $wpdb;

$post_id = (int) $post_id;

if ( !$post_id )

return false;

if ( !$post = get_post($post_id) )

return false;

$old = (int) $post->comment_count;

$new = (int) $wpdb->get_var( $wpdb->prepare("SELECT COUNT(*) FROM $wpdb->comments WHERE comment_post_ID = %d AND comment_approved = '1'", $post_id) );

$wpdb->update( $wpdb->posts, array('comment_count' => $new), array('ID' => $post_id) );

clean_post_cache( $post );

/**

* Fires immediately after a post's comment count is updated in the database.

* @since 2.3.0

* @param int $post_id Post ID.

* @param int $new The new comment count.

* @param int $old The old comment count.

do_action( 'wp_update_comment_count', $post_id, $new, $old );

/** This action is documented in wp-includes/post.php */

do_action( 'edit_post', $post_id, $post );

return true;

}

関数　discover_pingback_server_uri()

//
// Ping and trackback functions.
//

/**
 * Finds a pingback server URI based on the given URL.
 *
 * Checks the HTML for the rel="pingback" link and x-pingback headers. It does
 * a check for the x-pingback headers first and returns that, if available. The
 * check for the rel="pingback" has more overhead than just the header.
 *
 * @since 1.5.0
 *
 * @param string $url URL to ping.
 * @param int $deprecated Not Used.
 * @return bool|string False on failure, string containing URI on success.
 */
function discover_pingback_server_uri( $url, $deprecated = '' ) {
	if ( !empty( $deprecated ) )
		_deprecated_argument( __FUNCTION__, '2.7' );

	$pingback_str_dquote = 'rel="pingback"';
	$pingback_str_squote = 'rel=\'pingback\'';

	/** @todo Should use Filter Extension or custom preg_match instead. */
	$parsed_url = parse_url($url);

	if ( ! isset( $parsed_url['host'] ) ) // Not an URL. This should never happen.
		return false;

	//Do not search for a pingback server on our own uploads
	$uploads_dir = wp_upload_dir();
	if ( 0 === strpos($url, $uploads_dir['baseurl']) )
		return false;

	$response = wp_safe_remote_head( $url, array( 'timeout' => 2, 'httpversion' => '1.0' ) );

	if ( is_wp_error( $response ) )
		return false;

	if ( wp_remote_retrieve_header( $response, 'x-pingback' ) )
		return wp_remote_retrieve_header( $response, 'x-pingback' );

	// Not an (x)html, sgml, or xml page, no use going further.
	if ( preg_match('#(image|audio|video|model)/#is', wp_remote_retrieve_header( $response, 'content-type' )) )
		return false;

	// Now do a GET since we're going to look in the html headers (and we're sure it's not a binary file)
	$response = wp_safe_remote_get( $url, array( 'timeout' => 2, 'httpversion' => '1.0' ) );

	if ( is_wp_error( $response ) )
		return false;

	$contents = wp_remote_retrieve_body( $response );

	$pingback_link_offset_dquote = strpos($contents, $pingback_str_dquote);
	$pingback_link_offset_squote = strpos($contents, $pingback_str_squote);
	if ( $pingback_link_offset_dquote || $pingback_link_offset_squote ) {
		$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);

		// We may find rel="pingback" but an incomplete pingback URL
		if ( $pingback_server_url_len > 0 ) { // We got it!
			return $pingback_server_url;
		}
	}

	return false;
}

// Ping and trackback functions.

/**

* Finds a pingback server URI based on the given URL.

* Checks the HTML for the rel="pingback" link and x-pingback headers. It does

* a check for the x-pingback headers first and returns that, if available. The

* check for the rel="pingback" has more overhead than just the header.

* @since 1.5.0

* @param string $url URL to ping.

* @param int $deprecated Not Used.

* @return bool|string False on failure, string containing URI on success.

function discover_pingback_server_uri( $url, $deprecated = '' ) {

if ( !empty( $deprecated ) )

_deprecated_argument( __FUNCTION__, '2.7' );

$pingback_str_dquote = 'rel="pingback"';

$pingback_str_squote = 'rel=\'pingback\'';

/** @todo Should use Filter Extension or custom preg_match instead. */

$parsed_url = parse_url($url);

if ( ! isset( $parsed_url['host'] ) ) // Not an URL. This should never happen.

return false;

//Do not search for a pingback server on our own uploads

$uploads_dir = wp_upload_dir();

if ( 0 === strpos($url, $uploads_dir['baseurl']) )

return false;

$response = wp_safe_remote_head( $url, array( 'timeout' => 2, 'httpversion' => '1.0' ) );

if ( is_wp_error( $response ) )

return false;

if ( wp_remote_retrieve_header( $response, 'x-pingback' ) )

return wp_remote_retrieve_header( $response, 'x-pingback' );

// Not an (x)html, sgml, or xml page, no use going further.

if ( preg_match('#(image|audio|video|model)/#is', wp_remote_retrieve_header( $response, 'content-type' )) )

return false;

// Now do a GET since we're going to look in the html headers (and we're sure it's not a binary file)

$response = wp_safe_remote_get( $url, array( 'timeout' => 2, 'httpversion' => '1.0' ) );

if ( is_wp_error( $response ) )

return false;

$contents = wp_remote_retrieve_body( $response );

$pingback_link_offset_dquote = strpos($contents, $pingback_str_dquote);

$pingback_link_offset_squote = strpos($contents, $pingback_str_squote);

if ( $pingback_link_offset_dquote || $pingback_link_offset_squote ) {

$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);

// We may find rel="pingback" but an incomplete pingback URL

if ( $pingback_server_url_len > 0 ) { // We got it!

return $pingback_server_url;

}

return false;

}

関数　do_all_pings()

/**
 * Perform all pingbacks, enclosures, trackbacks, and send to pingback services.
 *
 * @since 2.1.0
 * @uses $wpdb
 */
function do_all_pings() {
	global $wpdb;

	// Do pingbacks
	while ($ping = $wpdb->get_row("SELECT ID, post_content, meta_id FROM {$wpdb->posts}, {$wpdb->postmeta} WHERE {$wpdb->posts}.ID = {$wpdb->postmeta}.post_id AND {$wpdb->postmeta}.meta_key = '_pingme' LIMIT 1")) {
		delete_metadata_by_mid( 'post', $ping->meta_id );
		pingback( $ping->post_content, $ping->ID );
	}

	// Do Enclosures
	while ($enclosure = $wpdb->get_row("SELECT ID, post_content, meta_id FROM {$wpdb->posts}, {$wpdb->postmeta} WHERE {$wpdb->posts}.ID = {$wpdb->postmeta}.post_id AND {$wpdb->postmeta}.meta_key = '_encloseme' LIMIT 1")) {
		delete_metadata_by_mid( 'post', $enclosure->meta_id );
		do_enclose( $enclosure->post_content, $enclosure->ID );
	}

	// Do Trackbacks
	$trackbacks = $wpdb->get_col("SELECT ID FROM $wpdb->posts WHERE to_ping <> '' AND post_status = 'publish'");
	if ( is_array($trackbacks) )
		foreach ( $trackbacks as $trackback )
			do_trackbacks($trackback);

	//Do Update Services/Generic Pings
	generic_ping();
}

/**

* Perform all pingbacks, enclosures, trackbacks, and send to pingback services.

* @since 2.1.0

* @uses $wpdb

function do_all_pings() {

global $wpdb;

// Do pingbacks

while ($ping = $wpdb->get_row("SELECT ID, post_content, meta_id FROM {$wpdb->posts}, {$wpdb->postmeta} WHERE {$wpdb->posts}.ID = {$wpdb->postmeta}.post_id AND {$wpdb->postmeta}.meta_key = '_pingme' LIMIT 1")) {

delete_metadata_by_mid( 'post', $ping->meta_id );

pingback( $ping->post_content, $ping->ID );

}

// Do Enclosures

while ($enclosure = $wpdb->get_row("SELECT ID, post_content, meta_id FROM {$wpdb->posts}, {$wpdb->postmeta} WHERE {$wpdb->posts}.ID = {$wpdb->postmeta}.post_id AND {$wpdb->postmeta}.meta_key = '_encloseme' LIMIT 1")) {

delete_metadata_by_mid( 'post', $enclosure->meta_id );

do_enclose( $enclosure->post_content, $enclosure->ID );

}

// Do Trackbacks

$trackbacks = $wpdb->get_col("SELECT ID FROM $wpdb->posts WHERE to_ping <> '' AND post_status = 'publish'");

if ( is_array($trackbacks) )

foreach ( $trackbacks as $trackback )

do_trackbacks($trackback);

//Do Update Services/Generic Pings

generic_ping();

}

関数　do_trackbacks()

/**
 * Perform trackbacks.
 *
 * @since 1.5.0
 * @uses $wpdb
 *
 * @param int $post_id Post ID to do trackbacks on.
 */
function do_trackbacks($post_id) {
	global $wpdb;

	$post = get_post( $post_id );
	$to_ping = get_to_ping($post_id);
	$pinged  = get_pung($post_id);
	if ( empty($to_ping) ) {
		$wpdb->update($wpdb->posts, array('to_ping' => ''), array('ID' => $post_id) );
		return;
	}

	if ( empty($post->post_excerpt) ) {
		/** This filter is documented in wp-includes/post-template.php */
		$excerpt = apply_filters( 'the_content', $post->post_content, $post->ID );
	} else {
		/** This filter is documented in wp-includes/post-template.php */
		$excerpt = apply_filters( 'the_excerpt', $post->post_excerpt );
	}

	$excerpt = str_replace(']]>', ']]&gt;', $excerpt);
	$excerpt = wp_html_excerpt($excerpt, 252, '&#8230;');

	/** This filter is documented in wp-includes/post-template.php */
	$post_title = apply_filters( 'the_title', $post->post_title, $post->ID );
	$post_title = strip_tags($post_title);

	if ( $to_ping ) {
		foreach ( (array) $to_ping as $tb_ping ) {
			$tb_ping = trim($tb_ping);
			if ( !in_array($tb_ping, $pinged) ) {
				trackback($tb_ping, $post_title, $excerpt, $post_id);
				$pinged[] = $tb_ping;
			} else {
				$wpdb->query( $wpdb->prepare("UPDATE $wpdb->posts SET to_ping = TRIM(REPLACE(to_ping, %s, '')) WHERE ID = %d", $tb_ping, $post_id) );
			}
		}
	}
}

/**

* Perform trackbacks.

* @since 1.5.0

* @uses $wpdb

* @param int $post_id Post ID to do trackbacks on.

function do_trackbacks($post_id) {

global $wpdb;

$post = get_post( $post_id );

$to_ping = get_to_ping($post_id);

$pinged = get_pung($post_id);

if ( empty($to_ping) ) {

$wpdb->update($wpdb->posts, array('to_ping' => ''), array('ID' => $post_id) );

return;

}

if ( empty($post->post_excerpt) ) {

/** This filter is documented in wp-includes/post-template.php */

$excerpt = apply_filters( 'the_content', $post->post_content, $post->ID );

} else {

/** This filter is documented in wp-includes/post-template.php */

$excerpt = apply_filters( 'the_excerpt', $post->post_excerpt );

}

$excerpt = str_replace(']]>', ']]>', $excerpt);

$excerpt = wp_html_excerpt($excerpt, 252, '…');

/** This filter is documented in wp-includes/post-template.php */

$post_title = apply_filters( 'the_title', $post->post_title, $post->ID );

$post_title = strip_tags($post_title);

if ( $to_ping ) {

foreach ( (array) $to_ping as $tb_ping ) {

$tb_ping = trim($tb_ping);

if ( !in_array($tb_ping, $pinged) ) {

trackback($tb_ping, $post_title, $excerpt, $post_id);

$pinged[] = $tb_ping;

} else {

$wpdb->query( $wpdb->prepare("UPDATE $wpdb->posts SET to_ping = TRIM(REPLACE(to_ping, %s, '')) WHERE ID = %d", $tb_ping, $post_id) );

}

関数　generic_ping()

/**
 * Sends pings to all of the ping site services.
 *
 * @since 1.2.0
 *
 * @param int $post_id Post ID.
 * @return int Same as Post ID from parameter
 */
function generic_ping( $post_id = 0 ) {
	$services = get_option('ping_sites');

	$services = explode("\n", $services);
	foreach ( (array) $services as $service ) {
		$service = trim($service);
		if ( '' != $service )
			weblog_ping($service);
	}

	return $post_id;
}

/**

* Sends pings to all of the ping site services.

* @since 1.2.0

* @param int $post_id Post ID.

* @return int Same as Post ID from parameter

function generic_ping( $post_id = 0 ) {

$services = get_option('ping_sites');

$services = explode("\n", $services);

foreach ( (array) $services as $service ) {

$service = trim($service);

if ( '' != $service )

weblog_ping($service);

}

return $post_id;

}

関数　pingback()

/**
 * Pings back the links found in a post.
 *
 * @since 0.71
 * @uses $wp_version
 * @uses IXR_Client
 *
 * @param string $content Post content to check for links.
 * @param int $post_ID Post ID.
 */
function pingback($content, $post_ID) {
	global $wp_version;
	include_once(ABSPATH . WPINC . '/class-IXR.php');
	include_once(ABSPATH . WPINC . '/class-wp-http-ixr-client.php');

	// original code by Mort (http://mort.mine.nu:8080)
	$post_links = array();

	$pung = get_pung($post_ID);

	// Step 1
	// Parsing the post, external links (if any) are stored in the $post_links array
	$post_links_temp = wp_extract_urls( $content );

	// 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 ( (array) $post_links_temp as $link_test ) :
		if ( !in_array($link_test, $pung) && (url_to_postid($link_test) != $post_ID) // If we haven't pung it already and it isn't a link to itself
				&& !is_local_attachment($link_test) ) : // Also, let's never ping local attachments.
			if ( $test = @parse_url($link_test) ) {
				if ( isset($test['query']) )
					$post_links[] = $link_test;
				elseif ( isset( $test['path'] ) && ( $test['path'] != '/' ) && ( $test['path'] != '' ) )
					$post_links[] = $link_test;
			}
		endif;
	endforeach;

	$post_links = array_unique( $post_links );
	/**
	 * Fires just before pinging back links found in a post.
	 *
	 * @since 2.0.0
	 *
	 * @param array &$post_links An array of post links to be checked, passed by reference.
	 * @param array &$pung       Whether a link has already been pinged, passed by reference.
	 * @param int   $post_ID     The post ID.
	 */
	do_action_ref_array( 'pre_ping', array( &$post_links, &$pung, $post_ID ) );

	foreach ( (array) $post_links as $pagelinkedto ) {
		$pingback_server_url = discover_pingback_server_uri( $pagelinkedto );

		if ( $pingback_server_url ) {
			@ set_time_limit( 60 );
			// Now, the RPC call
			$pagelinkedfrom = get_permalink($post_ID);

			// using a timeout of 3 seconds should be enough to cover slow servers
			$client = new WP_HTTP_IXR_Client($pingback_server_url);
			$client->timeout = 3;
			/**
			 * Filter the user agent sent when pinging-back a URL.
			 *
			 * @since 2.9.0
			 *
			 * @param string $concat_useragent    The user agent concatenated with ' -- WordPress/'
			 *                                    and the WordPress version.
			 * @param string $useragent           The useragent.
			 * @param string $pingback_server_url The server URL being linked to.
			 * @param string $pagelinkedto        URL of page linked to.
			 * @param string $pagelinkedfrom      URL of page linked from.
			 */
			$client->useragent = apply_filters( 'pingback_useragent', $client->useragent . ' -- WordPress/' . $wp_version, $client->useragent, $pingback_server_url, $pagelinkedto, $pagelinkedfrom );
			// when set to true, this outputs debug messages by itself
			$client->debug = false;

			if ( $client->query('pingback.ping', $pagelinkedfrom, $pagelinkedto) || ( isset($client->error->code) && 48 == $client->error->code ) ) // Already registered
				add_ping( $post_ID, $pagelinkedto );
		}
	}
}

/**

* Pings back the links found in a post.

* @since 0.71

* @uses $wp_version

* @uses IXR_Client

* @param string $content Post content to check for links.

* @param int $post_ID Post ID.

function pingback($content, $post_ID) {

global $wp_version;

include_once(ABSPATH . WPINC . '/class-IXR.php');

include_once(ABSPATH . WPINC . '/class-wp-http-ixr-client.php');

// original code by Mort (http://mort.mine.nu:8080)

$post_links = array();

$pung = get_pung($post_ID);

// Step 1

// Parsing the post, external links (if any) are stored in the $post_links array

$post_links_temp = wp_extract_urls( $content );

// 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 ( (array) $post_links_temp as $link_test ) :

if ( !in_array($link_test, $pung) && (url_to_postid($link_test) != $post_ID) // If we haven't pung it already and it isn't a link to itself

&& !is_local_attachment($link_test) ) : // Also, let's never ping local attachments.

if ( $test = @parse_url($link_test) ) {

if ( isset($test['query']) )

$post_links[] = $link_test;

elseif ( isset( $test['path'] ) && ( $test['path'] != '/' ) && ( $test['path'] != '' ) )

$post_links[] = $link_test;

}

endif;

endforeach;

$post_links = array_unique( $post_links );

/**

* Fires just before pinging back links found in a post.

* @since 2.0.0

* @param array &$post_links An array of post links to be checked, passed by reference.

* @param array &$pung Whether a link has already been pinged, passed by reference.

* @param int $post_ID The post ID.

do_action_ref_array( 'pre_ping', array( &$post_links, &$pung, $post_ID ) );

foreach ( (array) $post_links as $pagelinkedto ) {

$pingback_server_url = discover_pingback_server_uri( $pagelinkedto );

if ( $pingback_server_url ) {

@ set_time_limit( 60 );

// Now, the RPC call

$pagelinkedfrom = get_permalink($post_ID);

// using a timeout of 3 seconds should be enough to cover slow servers

$client = new WP_HTTP_IXR_Client($pingback_server_url);

$client->timeout = 3;

/**

* Filter the user agent sent when pinging-back a URL.

* @since 2.9.0

* @param string $concat_useragent The user agent concatenated with ' -- WordPress/'

* and the WordPress version.

* @param string $useragent The useragent.

* @param string $pingback_server_url The server URL being linked to.

* @param string $pagelinkedto URL of page linked to.

* @param string $pagelinkedfrom URL of page linked from.

$client->useragent = apply_filters( 'pingback_useragent', $client->useragent . ' -- WordPress/' . $wp_version, $client->useragent, $pingback_server_url, $pagelinkedto, $pagelinkedfrom );

// when set to true, this outputs debug messages by itself

$client->debug = false;

if ( $client->query('pingback.ping', $pagelinkedfrom, $pagelinkedto) || ( isset($client->error->code) && 48 == $client->error->code ) ) // Already registered

add_ping( $post_ID, $pagelinkedto );

}

関数　privacy_ping_filter()

/**
 * Check whether blog is public before returning sites.
 *
 * @since 2.1.0
 *
 * @param mixed $sites Will return if blog is public, will not return if not public.
 * @return mixed Empty string if blog is not public, returns $sites, if site is public.
 */
function privacy_ping_filter($sites) {
	if ( '0' != get_option('blog_public') )
		return $sites;
	else
		return '';
}

/**

* Check whether blog is public before returning sites.

* @since 2.1.0

* @param mixed $sites Will return if blog is public, will not return if not public.

* @return mixed Empty string if blog is not public, returns $sites, if site is public.

function privacy_ping_filter($sites) {

if ( '0' != get_option('blog_public') )

return $sites;

else

return '';

}

関数　trackback()

/**
 * Send a Trackback.
 *
 * Updates database when sending trackback to prevent duplicates.
 *
 * @since 0.71
 * @uses $wpdb
 *
 * @param string $trackback_url URL to send trackbacks.
 * @param string $title Title of post.
 * @param string $excerpt Excerpt of post.
 * @param int $ID Post ID.
 * @return mixed Database query from update.
 */
function trackback($trackback_url, $title, $excerpt, $ID) {
	global $wpdb;

	if ( empty($trackback_url) )
		return;

	$options = array();
	$options['timeout'] = 4;
	$options['body'] = array(
		'title' => $title,
		'url' => get_permalink($ID),
		'blog_name' => get_option('blogname'),
		'excerpt' => $excerpt
	);

	$response = wp_safe_remote_post( $trackback_url, $options );

	if ( is_wp_error( $response ) )
		return;

	$wpdb->query( $wpdb->prepare("UPDATE $wpdb->posts SET pinged = CONCAT(pinged, '\n', %s) WHERE ID = %d", $trackback_url, $ID) );
	return $wpdb->query( $wpdb->prepare("UPDATE $wpdb->posts SET to_ping = TRIM(REPLACE(to_ping, %s, '')) WHERE ID = %d", $trackback_url, $ID) );
}

/**

* Send a Trackback.

* Updates database when sending trackback to prevent duplicates.

* @since 0.71

* @uses $wpdb

* @param string $trackback_url URL to send trackbacks.

* @param string $title Title of post.

* @param string $excerpt Excerpt of post.

* @param int $ID Post ID.

* @return mixed Database query from update.

function trackback($trackback_url, $title, $excerpt, $ID) {

global $wpdb;

if ( empty($trackback_url) )

return;

$options = array();

$options['timeout'] = 4;

$options['body'] = array(

'title' => $title,

'url' => get_permalink($ID),

'blog_name' => get_option('blogname'),

'excerpt' => $excerpt

);

$response = wp_safe_remote_post( $trackback_url, $options );

if ( is_wp_error( $response ) )

return;

$wpdb->query( $wpdb->prepare("UPDATE $wpdb->posts SET pinged = CONCAT(pinged, '\n', %s) WHERE ID = %d", $trackback_url, $ID) );

return $wpdb->query( $wpdb->prepare("UPDATE $wpdb->posts SET to_ping = TRIM(REPLACE(to_ping, %s, '')) WHERE ID = %d", $trackback_url, $ID) );

}

関数　weblog_ping()

/**
 * Send a pingback.
 *
 * @since 1.2.0
 * @uses $wp_version
 * @uses IXR_Client
 *
 * @param string $server Host of blog to connect to.
 * @param string $path Path to send the ping.
 */
function weblog_ping($server = '', $path = '') {
	global $wp_version;
	include_once(ABSPATH . WPINC . '/class-IXR.php');
	include_once(ABSPATH . WPINC . '/class-wp-http-ixr-client.php');

	// using a timeout of 3 seconds should be enough to cover slow servers
	$client = new WP_HTTP_IXR_Client($server, ((!strlen(trim($path)) || ('/' == $path)) ? false : $path));
	$client->timeout = 3;
	$client->useragent .= ' -- WordPress/'.$wp_version;

	// when set to true, this outputs debug messages by itself
	$client->debug = false;
	$home = trailingslashit( home_url() );
	if ( !$client->query('weblogUpdates.extendedPing', get_option('blogname'), $home, get_bloginfo('rss2_url') ) ) // then try a normal ping
		$client->query('weblogUpdates.ping', get_option('blogname'), $home);
}

/**

* Send a pingback.

* @since 1.2.0

* @uses $wp_version

* @uses IXR_Client

* @param string $server Host of blog to connect to.

* @param string $path Path to send the ping.

function weblog_ping($server = '', $path = '') {

global $wp_version;

include_once(ABSPATH . WPINC . '/class-IXR.php');

include_once(ABSPATH . WPINC . '/class-wp-http-ixr-client.php');

// using a timeout of 3 seconds should be enough to cover slow servers

$client = new WP_HTTP_IXR_Client($server, ((!strlen(trim($path)) || ('/' == $path)) ? false : $path));

$client->timeout = 3;

$client->useragent .= ' -- WordPress/'.$wp_version;

// when set to true, this outputs debug messages by itself

$client->debug = false;

$home = trailingslashit( home_url() );

if ( !$client->query('weblogUpdates.extendedPing', get_option('blogname'), $home, get_bloginfo('rss2_url') ) ) // then try a normal ping

$client->query('weblogUpdates.ping', get_option('blogname'), $home);

}

関数　pingback_ping_source_uri()

/**
 * Default filter attached to pingback_ping_source_uri to validate the pingback's Source URI
 *
 * @since 3.5.1
 * @see wp_http_validate_url()
 *
 * @param string $source_uri
 * @return string
 */
function pingback_ping_source_uri( $source_uri ) {
	return (string) wp_http_validate_url( $source_uri );
}

/**

* Default filter attached to pingback_ping_source_uri to validate the pingback's Source URI

* @since 3.5.1

* @see wp_http_validate_url()

* @param string $source_uri

* @return string

function pingback_ping_source_uri( $source_uri ) {

return (string) wp_http_validate_url( $source_uri );

}

関数　xmlrpc_pingback_error()

/**
 * Default filter attached to xmlrpc_pingback_error.
 *
 * Returns a generic pingback error code unless the error code is 48,
 * which reports that the pingback is already registered.
 *
 * @since 3.5.1
 * @link http://www.hixie.ch/specs/pingback/pingback#TOC3
 *
 * @param IXR_Error $ixr_error
 * @return IXR_Error
 */
function xmlrpc_pingback_error( $ixr_error ) {
	if ( $ixr_error->code === 48 )
		return $ixr_error;
	return new IXR_Error( 0, '' );
}

/**

* Default filter attached to xmlrpc_pingback_error.

* Returns a generic pingback error code unless the error code is 48,

* which reports that the pingback is already registered.

* @since 3.5.1

* @link http://www.hixie.ch/specs/pingback/pingback#TOC3

* @param IXR_Error $ixr_error

* @return IXR_Error

function xmlrpc_pingback_error( $ixr_error ) {

if ( $ixr_error->code === 48 )

return $ixr_error;

return new IXR_Error( 0, '' );

}

関数　clean_comment_cache()

//
// Cache
//

/**
 * Removes comment ID from the comment cache.
 *
 * @since 2.3.0
 *
 * @param int|array $ids Comment ID or array of comment IDs to remove from cache
 */
function clean_comment_cache($ids) {
	foreach ( (array) $ids as $id )
		wp_cache_delete($id, 'comment');

	wp_cache_set( 'last_changed', microtime(), 'comment' );
}

// Cache

/**

* Removes comment ID from the comment cache.

* @since 2.3.0

* @param int|array $ids Comment ID or array of comment IDs to remove from cache

function clean_comment_cache($ids) {

foreach ( (array) $ids as $id )

wp_cache_delete($id, 'comment');

wp_cache_set( 'last_changed', microtime(), 'comment' );

}

関数　update_comment_cache()

/**
 * Updates the comment cache of given comments.
 *
 * Will add the comments in $comments to the cache. If comment ID already exists
 * in the comment cache then it will not be updated. The comment is added to the
 * cache using the comment group with the key using the ID of the comments.
 *
 * @since 2.3.0
 *
 * @param array $comments Array of comment row objects
 */
function update_comment_cache($comments) {
	foreach ( (array) $comments as $comment )
		wp_cache_add($comment->comment_ID, $comment, 'comment');
}

/**

* Updates the comment cache of given comments.

* Will add the comments in $comments to the cache. If comment ID already exists

* in the comment cache then it will not be updated. The comment is added to the

* cache using the comment group with the key using the ID of the comments.

* @since 2.3.0

* @param array $comments Array of comment row objects

function update_comment_cache($comments) {

foreach ( (array) $comments as $comment )

wp_cache_add($comment->comment_ID, $comment, 'comment');

}

関数　_close_comments_for_old_posts()

//
// Internal
//

/**
 * Close comments on old posts on the fly, without any extra DB queries. Hooked to the_posts.
 *
 * @access private
 * @since 2.7.0
 *
 * @param object $posts Post data object.
 * @param object $query Query object.
 * @return object
 */
function _close_comments_for_old_posts( $posts, $query ) {
	if ( empty( $posts ) || ! $query->is_singular() || ! get_option( 'close_comments_for_old_posts' ) )
		return $posts;

	/**
	 * Filter the list of post types to automatically close comments for.
	 *
	 * @since 3.2.0
	 *
	 * @param array $post_types An array of registered post types. Default array with 'post'.
	 */
	$post_types = apply_filters( 'close_comments_for_post_types', array( 'post' ) );
	if ( ! in_array( $posts[0]->post_type, $post_types ) )
		return $posts;

	$days_old = (int) get_option( 'close_comments_days_old' );
	if ( ! $days_old )
		return $posts;

	if ( time() - strtotime( $posts[0]->post_date_gmt ) > ( $days_old * DAY_IN_SECONDS ) ) {
		$posts[0]->comment_status = 'closed';
		$posts[0]->ping_status = 'closed';
	}

	return $posts;
}

// Internal

/**

* Close comments on old posts on the fly, without any extra DB queries. Hooked to the_posts.

* @access private

* @since 2.7.0

* @param object $posts Post data object.

* @param object $query Query object.

* @return object

function _close_comments_for_old_posts( $posts, $query ) {

if ( empty( $posts ) || ! $query->is_singular() || ! get_option( 'close_comments_for_old_posts' ) )

return $posts;

/**

* Filter the list of post types to automatically close comments for.

* @since 3.2.0

* @param array $post_types An array of registered post types. Default array with 'post'.

$post_types = apply_filters( 'close_comments_for_post_types', array( 'post' ) );

if ( ! in_array( $posts[0]->post_type, $post_types ) )

return $posts;

$days_old = (int) get_option( 'close_comments_days_old' );

if ( ! $days_old )

return $posts;

if ( time() - strtotime( $posts[0]->post_date_gmt ) > ( $days_old * DAY_IN_SECONDS ) ) {

$posts[0]->comment_status = 'closed';

$posts[0]->ping_status = 'closed';

}

return $posts;

}

関数　_close_comments_for_old_post()

/**
 * Close comments on an old post. Hooked to comments_open and pings_open.
 *
 * @access private
 * @since 2.7.0
 *
 * @param bool $open Comments open or closed
 * @param int $post_id Post ID
 * @return bool $open
 */
function _close_comments_for_old_post( $open, $post_id ) {
	if ( ! $open )
		return $open;

	if ( !get_option('close_comments_for_old_posts') )
		return $open;

	$days_old = (int) get_option('close_comments_days_old');
	if ( !$days_old )
		return $open;

	$post = get_post($post_id);

	/** This filter is documented in wp-includes/comment.php */
	$post_types = apply_filters( 'close_comments_for_post_types', array( 'post' ) );
	if ( ! in_array( $post->post_type, $post_types ) )
		return $open;

	if ( time() - strtotime( $post->post_date_gmt ) > ( $days_old * DAY_IN_SECONDS ) )
		return false;

	return $open;
}

/**

* Close comments on an old post. Hooked to comments_open and pings_open.

* @access private

* @since 2.7.0

* @param bool $open Comments open or closed

* @param int $post_id Post ID

* @return bool $open

function _close_comments_for_old_post( $open, $post_id ) {

if ( ! $open )

return $open;

if ( !get_option('close_comments_for_old_posts') )

return $open;

$days_old = (int) get_option('close_comments_days_old');

if ( !$days_old )

return $open;

$post = get_post($post_id);

/** This filter is documented in wp-includes/comment.php */

$post_types = apply_filters( 'close_comments_for_post_types', array( 'post' ) );

if ( ! in_array( $post->post_type, $post_types ) )

return $open;

if ( time() - strtotime( $post->post_date_gmt ) > ( $days_old * DAY_IN_SECONDS ) )

return false;

return $open;

}

- Wordpress

月	火	水	木	金	土	日
« 4月
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

WordPressを読む 45-5 /blog/wp-includes/comment.php 5

/blog/wp-includes/comment.php 5

WordPressを読む　45-5 /blog/wp-includes/comment.php 5