wp/wp-includes/class-http.php
author ymh <ymh.work@gmail.com>
Wed, 06 Nov 2013 03:21:17 +0000
changeset 0 d970ebf37754
child 5 5e2f62d02dcd
permissions -rw-r--r--
first import
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     1
<?php
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     2
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     3
 * Simple and uniform HTTP request API.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     5
 * Standardizes the HTTP requests for WordPress. Handles cookies, gzip encoding and decoding, chunk
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     6
 * decoding, if HTTP 1.1 and various other difficult HTTP protocol implementations.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     8
 * @link http://trac.wordpress.org/ticket/4779 HTTP API Proposal
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
 * @subpackage HTTP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    14
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    15
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    16
 * WordPress HTTP Class for managing HTTP Transports and making HTTP requests.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
 * This class is used to consistently make outgoing HTTP requests easy for developers
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    19
 * while still being compatible with the many PHP configurations under which
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
 * WordPress runs.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
 * Debugging includes several actions, which pass different variables for debugging the HTTP API.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
 * @subpackage HTTP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
class WP_Http {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    30
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
	 * Send a HTTP request to a URI.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
	 * The body and headers are part of the arguments. The 'body' argument is for the body and will
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
	 * accept either a string or an array. The 'headers' argument should be an array, but a string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
	 * is acceptable. If the 'body' argument is an array, then it will automatically be escaped
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    36
	 * using http_build_query().
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    38
	 * The only URI that are supported in the HTTP Transport implementation are the HTTP and HTTPS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
	 * protocols.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
	 * The defaults are 'method', 'timeout', 'redirection', 'httpversion', 'blocking' and
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
	 * 'user-agent'.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
	 * Accepted 'method' values are 'GET', 'POST', and 'HEAD', some transports technically allow
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
	 * others, but should not be assumed. The 'timeout' is used to sent how long the connection
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
	 * should stay open before failing when no response. 'redirection' is used to track how many
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
	 * redirects were taken and used to sent the amount for other transports, but not all transports
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
	 * accept setting that value.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
	 * The 'httpversion' option is used to sent the HTTP version and accepted values are '1.0', and
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
	 * '1.1' and should be a string. The 'user-agent' option is the user-agent and is used to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
	 * replace the default user-agent, which is 'WordPress/WP_Version', where WP_Version is the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
	 * value from $wp_version.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
	 * The 'blocking' parameter can be used to specify if the calling code requires the result of
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    56
	 * the HTTP request. If set to false, the request will be sent to the remote server, and
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
	 * processing returned to the calling code immediately, the caller will know if the request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
	 * suceeded or failed, but will not receive any response from the remote server.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    59
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    60
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    61
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
	 * @param string $url URI resource.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
	 * @param str|array $args Optional. Override the defaults.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
	 * @return array|object Array containing 'headers', 'body', 'response', 'cookies', 'filename'. A WP_Error instance upon error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    66
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
	function request( $url, $args = array() ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    68
		global $wp_version;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
		$defaults = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
			'method' => 'GET',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
			'timeout' => apply_filters( 'http_request_timeout', 5),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
			'redirection' => apply_filters( 'http_request_redirection_count', 5),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    74
			'httpversion' => apply_filters( 'http_request_version', '1.0'),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
			'user-agent' => apply_filters( 'http_headers_useragent', 'WordPress/' . $wp_version . '; ' . get_bloginfo( 'url' ) ),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
			'reject_unsafe_urls' => apply_filters( 'http_request_reject_unsafe_urls', false ),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    77
			'blocking' => true,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    78
			'headers' => array(),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    79
			'cookies' => array(),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    80
			'body' => null,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    81
			'compress' => false,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    82
			'decompress' => true,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    83
			'sslverify' => true,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    84
			'sslcertificates' => ABSPATH . WPINC . '/certificates/ca-bundle.crt',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    85
			'stream' => false,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    86
			'filename' => null,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    87
			'limit_response_size' => null,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    88
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    89
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    90
		// Pre-parse for the HEAD checks.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    91
		$args = wp_parse_args( $args );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    92
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
		// By default, Head requests do not cause redirections.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
		if ( isset($args['method']) && 'HEAD' == $args['method'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
			$defaults['redirection'] = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    97
		$r = wp_parse_args( $args, $defaults );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    98
		$r = apply_filters( 'http_request_args', $r, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    99
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
		// The transports decrement this, store a copy of the original value for loop purposes.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
		if ( ! isset( $r['_redirection'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   102
			$r['_redirection'] = $r['redirection'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   103
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   104
		// Allow plugins to short-circuit the request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   105
		$pre = apply_filters( 'pre_http_request', false, $r, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   106
		if ( false !== $pre )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   107
			return $pre;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   108
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   109
		if ( function_exists( 'wp_kses_bad_protocol' ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
			if ( $r['reject_unsafe_urls'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
				$url = wp_http_validate_url( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   112
			$url = wp_kses_bad_protocol( $url, array( 'http', 'https', 'ssl' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   113
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   114
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
		$arrURL = @parse_url( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   116
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
		if ( empty( $url ) || empty( $arrURL['scheme'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
			return new WP_Error('http_request_failed', __('A valid URL was not provided.'));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   120
		if ( $this->block_request( $url ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
			return new WP_Error( 'http_request_failed', __( 'User has blocked requests through HTTP.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   122
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
		// Determine if this is a https call and pass that on to the transport functions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
		// so that we can blacklist the transports that do not support ssl verification
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
		$r['ssl'] = $arrURL['scheme'] == 'https' || $arrURL['scheme'] == 'ssl';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
		// Determine if this request is to OUR install of WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
		$homeURL = parse_url( get_bloginfo( 'url' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
		$r['local'] = $homeURL['host'] == $arrURL['host'] || 'localhost' == $arrURL['host'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   130
		unset( $homeURL );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   131
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   132
		// If we are streaming to a file but no filename was given drop it in the WP temp dir
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   133
		// and pick its name using the basename of the $url
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
		if ( $r['stream']  && empty( $r['filename'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   135
			$r['filename'] = get_temp_dir() . basename( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   136
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
		// Force some settings if we are streaming to a file and check for existence and perms of destination directory
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
		if ( $r['stream'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
			$r['blocking'] = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   140
			if ( ! wp_is_writable( dirname( $r['filename'] ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
				return new WP_Error( 'http_request_failed', __( 'Destination directory for file streaming does not exist or is not writable.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   142
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   143
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   144
		if ( is_null( $r['headers'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   145
			$r['headers'] = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   146
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   147
		if ( ! is_array( $r['headers'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   148
			$processedHeaders = WP_Http::processHeaders( $r['headers'], $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   149
			$r['headers'] = $processedHeaders['headers'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   150
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   151
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   152
		if ( isset( $r['headers']['User-Agent'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   153
			$r['user-agent'] = $r['headers']['User-Agent'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   154
			unset( $r['headers']['User-Agent'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   155
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   156
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   157
		if ( isset( $r['headers']['user-agent'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   158
			$r['user-agent'] = $r['headers']['user-agent'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   159
			unset( $r['headers']['user-agent'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
		if ( '1.1' == $r['httpversion'] && !isset( $r['headers']['connection'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
			$r['headers']['connection'] = 'close';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
		// Construct Cookie: header if any cookies are set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
		WP_Http::buildCookieHeader( $r );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
		// Avoid issues where mbstring.func_overload is enabled
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
		mbstring_binary_safe_encoding();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
		if ( ! isset( $r['headers']['Accept-Encoding'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
			if ( $encoding = WP_Http_Encoding::accept_encoding( $url, $r ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
				$r['headers']['Accept-Encoding'] = $encoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
		if ( ( ! is_null( $r['body'] ) && '' != $r['body'] ) || 'POST' == $r['method'] || 'PUT' == $r['method'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
			if ( is_array( $r['body'] ) || is_object( $r['body'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   179
				$r['body'] = http_build_query( $r['body'], null, '&' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   180
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   181
				if ( ! isset( $r['headers']['Content-Type'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   182
					$r['headers']['Content-Type'] = 'application/x-www-form-urlencoded; charset=' . get_option( 'blog_charset' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   183
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   185
			if ( '' === $r['body'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
				$r['body'] = null;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   188
			if ( ! isset( $r['headers']['Content-Length'] ) && ! isset( $r['headers']['content-length'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   189
				$r['headers']['Content-Length'] = strlen( $r['body'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   190
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   191
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   192
		$response = $this->_dispatch_request( $url, $r );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   193
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   194
		reset_mbstring_encoding();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   195
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   196
		if ( is_wp_error( $response ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   197
			return $response;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   198
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   199
		// Append cookies that were used in this request to the response
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   200
		if ( ! empty( $r['cookies'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   201
			$cookies_set = wp_list_pluck( $response['cookies'], 'name' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   202
			foreach ( $r['cookies'] as $cookie ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   203
				if ( ! in_array( $cookie->name, $cookies_set ) && $cookie->test( $url ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   204
					$response['cookies'][] = $cookie;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   205
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   206
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   207
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   208
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   209
		return $response;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   210
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   211
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   212
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
	 * Tests which transports are capable of supporting the request.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   214
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
	 * @since 3.2.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
	 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   218
	 * @param array $args Request arguments
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
	 * @param string $url URL to Request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   220
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   221
	 * @return string|bool Class name for the first transport that claims to support the request. False if no transport claims to support the request.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   222
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   223
	public function _get_first_available_transport( $args, $url = null ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   224
		$request_order = apply_filters( 'http_api_transports', array( 'curl', 'streams' ), $args, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   225
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   226
		// Loop over each transport on each HTTP request looking for one which will serve this request's needs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   227
		foreach ( $request_order as $transport ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   228
			$class = 'WP_HTTP_' . $transport;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   230
			// Check to see if this transport is a possibility, calls the transport statically
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   231
			if ( !call_user_func( array( $class, 'test' ), $args, $url ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   232
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   233
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   234
			return $class;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   235
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   236
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   237
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   238
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   239
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   240
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   241
	 * Dispatches a HTTP request to a supporting transport.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   242
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   243
	 * Tests each transport in order to find a transport which matches the request arguments.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   244
	 * Also caches the transport instance to be used later.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
	 * The order for requests is cURL, and then PHP Streams.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   248
	 * @since 3.2.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   249
	 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   251
	 * @param string $url URL to Request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
	 * @param array $args Request arguments
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
	 * @return array|object Array containing 'headers', 'body', 'response', 'cookies', 'filename'. A WP_Error instance upon error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
	private function _dispatch_request( $url, $args ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
		static $transports = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
		$class = $this->_get_first_available_transport( $args, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   259
		if ( !$class )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
			return new WP_Error( 'http_failure', __( 'There are no HTTP transports available which can complete the requested request.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   261
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   262
		// Transport claims to support request, instantiate it and give it a whirl.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   263
		if ( empty( $transports[$class] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   264
			$transports[$class] = new $class;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
		$response = $transports[$class]->request( $url, $args );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
		do_action( 'http_api_debug', $response, 'response', $class, $args, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
		if ( is_wp_error( $response ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
			return $response;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
		return apply_filters( 'http_response', $response, $args, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   275
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   276
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   277
	 * Uses the POST HTTP method.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
	 * Used for sending data that is expected to be in the body.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
	 * @param string $url URI resource.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
	 * @param str|array $args Optional. Override the defaults.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
	 * @return array|object Array containing 'headers', 'body', 'response', 'cookies', 'filename'. A WP_Error instance upon error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
	function post($url, $args = array()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
		$defaults = array('method' => 'POST');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
		$r = wp_parse_args( $args, $defaults );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
		return $this->request($url, $r);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   294
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
	 * Uses the GET HTTP method.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
	 * Used for sending data that is expected to be in the body.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   302
	 * @param string $url URI resource.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   303
	 * @param str|array $args Optional. Override the defaults.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   304
	 * @return array|object Array containing 'headers', 'body', 'response', 'cookies', 'filename'. A WP_Error instance upon error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   305
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   306
	function get($url, $args = array()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   307
		$defaults = array('method' => 'GET');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   308
		$r = wp_parse_args( $args, $defaults );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   309
		return $this->request($url, $r);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   310
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   311
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   312
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   313
	 * Uses the HEAD HTTP method.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   314
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   315
	 * Used for sending data that is expected to be in the body.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   316
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   317
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   318
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   319
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   320
	 * @param string $url URI resource.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   321
	 * @param str|array $args Optional. Override the defaults.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   322
	 * @return array|object Array containing 'headers', 'body', 'response', 'cookies', 'filename'. A WP_Error instance upon error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   323
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   324
	function head($url, $args = array()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   325
		$defaults = array('method' => 'HEAD');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   326
		$r = wp_parse_args( $args, $defaults );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   327
		return $this->request($url, $r);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   328
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   329
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   330
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   331
	 * Parses the responses and splits the parts into headers and body.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   332
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   333
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   334
	 * @static
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   335
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   336
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   337
	 * @param string $strResponse The full response string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   338
	 * @return array Array with 'headers' and 'body' keys.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   339
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   340
	public static function processResponse($strResponse) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   341
		$res = explode("\r\n\r\n", $strResponse, 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   342
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   343
		return array('headers' => $res[0], 'body' => isset($res[1]) ? $res[1] : '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   344
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   345
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   346
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   347
	 * Transform header string into an array.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   348
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   349
	 * If an array is given then it is assumed to be raw header data with numeric keys with the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   350
	 * headers as the values. No headers must be passed that were already processed.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   351
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   352
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   353
	 * @static
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   354
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   355
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   356
	 * @param string|array $headers
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   357
	 * @param string $url The URL that was requested
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   358
	 * @return array Processed string headers. If duplicate headers are encountered,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   359
	 * 					Then a numbered array is returned as the value of that header-key.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   360
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   361
	public static function processHeaders( $headers, $url = '' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   362
		// split headers, one per array element
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   363
		if ( is_string($headers) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   364
			// tolerate line terminator: CRLF = LF (RFC 2616 19.3)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   365
			$headers = str_replace("\r\n", "\n", $headers);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   366
			// unfold folded header fields. LWS = [CRLF] 1*( SP | HT ) <US-ASCII SP, space (32)>, <US-ASCII HT, horizontal-tab (9)> (RFC 2616 2.2)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   367
			$headers = preg_replace('/\n[ \t]/', ' ', $headers);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   368
			// create the headers array
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   369
			$headers = explode("\n", $headers);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   370
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   371
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   372
		$response = array('code' => 0, 'message' => '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   373
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   374
		// If a redirection has taken place, The headers for each page request may have been passed.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   375
		// In this case, determine the final HTTP header and parse from there.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   376
		for ( $i = count($headers)-1; $i >= 0; $i-- ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   377
			if ( !empty($headers[$i]) && false === strpos($headers[$i], ':') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   378
				$headers = array_splice($headers, $i);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   379
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   380
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   381
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   382
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   383
		$cookies = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   384
		$newheaders = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   385
		foreach ( (array) $headers as $tempheader ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   386
			if ( empty($tempheader) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   387
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   388
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   389
			if ( false === strpos($tempheader, ':') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   390
				$stack = explode(' ', $tempheader, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   391
				$stack[] = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   392
				list( , $response['code'], $response['message']) = $stack;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   393
				continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   394
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   395
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   396
			list($key, $value) = explode(':', $tempheader, 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   397
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   398
			$key = strtolower( $key );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   399
			$value = trim( $value );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   400
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   401
			if ( isset( $newheaders[ $key ] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   402
				if ( ! is_array( $newheaders[ $key ] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   403
					$newheaders[$key] = array( $newheaders[ $key ] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   404
				$newheaders[ $key ][] = $value;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   405
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   406
				$newheaders[ $key ] = $value;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   407
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   408
			if ( 'set-cookie' == $key )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   409
				$cookies[] = new WP_Http_Cookie( $value, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   410
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   411
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   412
		return array('response' => $response, 'headers' => $newheaders, 'cookies' => $cookies);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   413
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   414
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   415
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   416
	 * Takes the arguments for a ::request() and checks for the cookie array.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   417
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   418
	 * If it's found, then it upgrades any basic name => value pairs to WP_Http_Cookie instances,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   419
	 * which are each parsed into strings and added to the Cookie: header (within the arguments array).
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   420
	 * Edits the array by reference.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   421
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   422
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   423
	 * @version 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   424
	 * @static
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   425
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   426
	 * @param array $r Full array of args passed into ::request()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   427
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   428
	public static function buildCookieHeader( &$r ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   429
		if ( ! empty($r['cookies']) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   430
			// Upgrade any name => value cookie pairs to WP_HTTP_Cookie instances
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   431
			foreach ( $r['cookies'] as $name => $value ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   432
				if ( ! is_object( $value ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   433
					$r['cookies'][ $name ] = new WP_HTTP_Cookie( array( 'name' => $name, 'value' => $value ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   434
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   435
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   436
			$cookies_header = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   437
			foreach ( (array) $r['cookies'] as $cookie ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   438
				$cookies_header .= $cookie->getHeaderValue() . '; ';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   439
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   440
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   441
			$cookies_header = substr( $cookies_header, 0, -2 );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   442
			$r['headers']['cookie'] = $cookies_header;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   443
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   444
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   445
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   446
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   447
	 * Decodes chunk transfer-encoding, based off the HTTP 1.1 specification.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   448
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   449
	 * Based off the HTTP http_encoding_dechunk function.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   450
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   451
	 * @link http://tools.ietf.org/html/rfc2616#section-19.4.6 Process for chunked decoding.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   452
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   453
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   454
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   455
	 * @static
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   456
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   457
	 * @param string $body Body content
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   458
	 * @return string Chunked decoded body on success or raw body on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   459
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   460
	public static function chunkTransferDecode( $body ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   461
		// The body is not chunked encoded or is malformed.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   462
		if ( ! preg_match( '/^([0-9a-f]+)[^\r\n]*\r\n/i', trim( $body ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   463
			return $body;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   464
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   465
		$parsed_body = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   466
		$body_original = $body; // We'll be altering $body, so need a backup in case of error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   467
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   468
		while ( true ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   469
			$has_chunk = (bool) preg_match( '/^([0-9a-f]+)[^\r\n]*\r\n/i', $body, $match );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   470
			if ( ! $has_chunk || empty( $match[1] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   471
				return $body_original;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   472
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   473
			$length = hexdec( $match[1] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   474
			$chunk_length = strlen( $match[0] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   475
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   476
			// Parse out the chunk of data
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   477
			$parsed_body .= substr( $body, $chunk_length, $length );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   478
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   479
			// Remove the chunk from the raw data
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   480
			$body = substr( $body, $length + $chunk_length );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   481
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   482
			// End of document
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   483
			if ( '0' === trim( $body ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   484
				return $parsed_body;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   485
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   486
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   487
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   488
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   489
	 * Block requests through the proxy.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   490
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   491
	 * Those who are behind a proxy and want to prevent access to certain hosts may do so. This will
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   492
	 * prevent plugins from working and core functionality, if you don't include api.wordpress.org.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   493
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   494
	 * You block external URL requests by defining WP_HTTP_BLOCK_EXTERNAL as true in your wp-config.php
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   495
	 * file and this will only allow localhost and your blog to make requests. The constant
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   496
	 * WP_ACCESSIBLE_HOSTS will allow additional hosts to go through for requests. The format of the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   497
	 * WP_ACCESSIBLE_HOSTS constant is a comma separated list of hostnames to allow, wildcard domains
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   498
	 * are supported, eg *.wordpress.org will allow for all subdomains of wordpress.org to be contacted.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   499
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   500
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   501
	 * @link http://core.trac.wordpress.org/ticket/8927 Allow preventing external requests.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   502
	 * @link http://core.trac.wordpress.org/ticket/14636 Allow wildcard domains in WP_ACCESSIBLE_HOSTS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   503
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   504
	 * @param string $uri URI of url.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   505
	 * @return bool True to block, false to allow.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   506
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   507
	function block_request($uri) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   508
		// We don't need to block requests, because nothing is blocked.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   509
		if ( ! defined( 'WP_HTTP_BLOCK_EXTERNAL' ) || ! WP_HTTP_BLOCK_EXTERNAL )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   510
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   511
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   512
		$check = parse_url($uri);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   513
		if ( ! $check )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   514
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   515
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   516
		$home = parse_url( get_option('siteurl') );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   517
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   518
		// Don't block requests back to ourselves by default
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   519
		if ( $check['host'] == 'localhost' || $check['host'] == $home['host'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   520
			return apply_filters('block_local_requests', false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   521
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   522
		if ( !defined('WP_ACCESSIBLE_HOSTS') )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   523
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   524
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   525
		static $accessible_hosts;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   526
		static $wildcard_regex = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   527
		if ( null == $accessible_hosts ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   528
			$accessible_hosts = preg_split('|,\s*|', WP_ACCESSIBLE_HOSTS);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   529
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   530
			if ( false !== strpos(WP_ACCESSIBLE_HOSTS, '*') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   531
				$wildcard_regex = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   532
				foreach ( $accessible_hosts as $host )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   533
					$wildcard_regex[] = str_replace( '\*', '.+', preg_quote( $host, '/' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   534
				$wildcard_regex = '/^(' . implode('|', $wildcard_regex) . ')$/i';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   535
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   536
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   537
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   538
		if ( !empty($wildcard_regex) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   539
			return !preg_match($wildcard_regex, $check['host']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   540
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   541
			return !in_array( $check['host'], $accessible_hosts ); //Inverse logic, If it's in the array, then we can't access it.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   542
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   543
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   544
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   545
	static function make_absolute_url( $maybe_relative_path, $url ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   546
		if ( empty( $url ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   547
			return $maybe_relative_path;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   548
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   549
		// Check for a scheme
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   550
		if ( false !== strpos( $maybe_relative_path, '://' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   551
			return $maybe_relative_path;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   552
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   553
		if ( ! $url_parts = @parse_url( $url ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   554
			return $maybe_relative_path;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   555
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   556
		if ( ! $relative_url_parts = @parse_url( $maybe_relative_path ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   557
			return $maybe_relative_path;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   558
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   559
		$absolute_path = $url_parts['scheme'] . '://' . $url_parts['host'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   560
		if ( isset( $url_parts['port'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   561
			$absolute_path .= ':' . $url_parts['port'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   562
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   563
		// Start off with the Absolute URL path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   564
		$path = ! empty( $url_parts['path'] ) ? $url_parts['path'] : '/';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   565
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   566
		// If it's a root-relative path, then great
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   567
		if ( ! empty( $relative_url_parts['path'] ) && '/' == $relative_url_parts['path'][0] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   568
			$path = $relative_url_parts['path'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   569
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   570
		// Else it's a relative path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   571
		} elseif ( ! empty( $relative_url_parts['path'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   572
			// Strip off any file components from the absolute path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   573
			$path = substr( $path, 0, strrpos( $path, '/' ) + 1 );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   574
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   575
			// Build the new path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   576
			$path .= $relative_url_parts['path'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   577
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   578
			// Strip all /path/../ out of the path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   579
			while ( strpos( $path, '../' ) > 1 ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   580
				$path = preg_replace( '![^/]+/\.\./!', '', $path );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   581
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   582
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   583
			// Strip any final leading ../ from the path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   584
			$path = preg_replace( '!^/(\.\./)+!', '', $path );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   585
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   586
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   587
		// Add the Query string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   588
		if ( ! empty( $relative_url_parts['query'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   589
			$path .= '?' . $relative_url_parts['query'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   590
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   591
		return $absolute_path . '/' . ltrim( $path, '/' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   592
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   593
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   594
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   595
	 * Handles HTTP Redirects and follows them if appropriate.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   596
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   597
	 * @since 3.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   598
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   599
	 * @param string $url The URL which was requested.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   600
	 * @param array $args The Arguements which were used to make the request.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   601
	 * @param array $response The Response of the HTTP request.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   602
	 * @return false|object False if no redirect is present, a WP_HTTP or WP_Error result otherwise.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   603
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   604
	static function handle_redirects( $url, $args, $response ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   605
		// If no redirects are present, or, redirects were not requested, perform no action.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   606
		if ( ! isset( $response['headers']['location'] ) || 0 === $args['_redirection'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   607
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   608
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   609
		// Only perform redirections on redirection http codes
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   610
		if ( $response['response']['code'] > 399 || $response['response']['code'] < 300 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   611
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   612
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   613
		// Don't redirect if we've run out of redirects
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   614
		if ( $args['redirection']-- <= 0 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   615
			return new WP_Error( 'http_request_failed', __('Too many redirects.') );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   616
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   617
		$redirect_location = $response['headers']['location'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   618
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   619
		// If there were multiple Location headers, use the last header specified
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   620
		if ( is_array( $redirect_location ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   621
			$redirect_location = array_pop( $redirect_location );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   622
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   623
		$redirect_location = WP_HTTP::make_absolute_url( $redirect_location, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   624
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   625
		// POST requests should not POST to a redirected location
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   626
		if ( 'POST' == $args['method'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   627
			if ( in_array( $response['response']['code'], array( 302, 303 ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   628
				$args['method'] = 'GET';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   629
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   630
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   631
		// Include valid cookies in the redirect process
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   632
		if ( ! empty( $response['cookies'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   633
			foreach ( $response['cookies'] as $cookie ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   634
				if ( $cookie->test( $redirect_location ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   635
					$args['cookies'][] = $cookie;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   636
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   637
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   638
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   639
		return wp_remote_request( $redirect_location, $args );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   640
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   641
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   642
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   643
	 * Determines if a specified string represents an IP address or not.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   644
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   645
	 * This function also detects the type of the IP address, returning either
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   646
	 * '4' or '6' to represent a IPv4 and IPv6 address respectively.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   647
	 * This does not verify if the IP is a valid IP, only that it appears to be
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   648
	 * an IP address.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   649
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   650
	 * @see http://home.deds.nl/~aeron/regex/ for IPv6 regex
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   651
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   652
	 * @since 3.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   653
	 * @static
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   654
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   655
	 * @param string $maybe_ip A suspected IP address
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   656
	 * @return integer|bool Upon success, '4' or '6' to represent a IPv4 or IPv6 address, false upon failure
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   657
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   658
	static function is_ip_address( $maybe_ip ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   659
		if ( preg_match( '/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/', $maybe_ip ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   660
			return 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   661
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   662
		if ( false !== strpos( $maybe_ip, ':' ) && preg_match( '/^(((?=.*(::))(?!.*\3.+\3))\3?|([\dA-F]{1,4}(\3|:\b|$)|\2))(?4){5}((?4){2}|(((2[0-4]|1\d|[1-9])?\d|25[0-5])\.?\b){4})$/i', trim( $maybe_ip, ' []' ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   663
			return 6;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   664
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   665
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   666
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   667
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   668
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   669
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   670
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   671
 * HTTP request method uses PHP Streams to retrieve the url.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   672
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   673
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   674
 * @subpackage HTTP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   675
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   676
 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   677
 * @since 3.7.0 Combined with the fsockopen transport and switched to stream_socket_client().
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   678
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   679
class WP_Http_Streams {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   680
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   681
	 * Send a HTTP request to a URI using PHP Streams.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   682
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   683
	 * @see WP_Http::request For default options descriptions.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   684
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   685
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   686
	 * @since 3.7.0 Combined with the fsockopen transport and switched to stream_socket_client().
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   687
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   688
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   689
	 * @param string $url URI resource.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   690
	 * @param string|array $args Optional. Override the defaults.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   691
	 * @return array 'headers', 'body', 'response', 'cookies' and 'filename' keys.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   692
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   693
	function request($url, $args = array()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   694
		$defaults = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   695
			'method' => 'GET', 'timeout' => 5,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   696
			'redirection' => 5, 'httpversion' => '1.0',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   697
			'blocking' => true,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   698
			'headers' => array(), 'body' => null, 'cookies' => array()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   699
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   700
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   701
		$r = wp_parse_args( $args, $defaults );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   702
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   703
		if ( isset($r['headers']['User-Agent']) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   704
			$r['user-agent'] = $r['headers']['User-Agent'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   705
			unset($r['headers']['User-Agent']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   706
		} else if ( isset($r['headers']['user-agent']) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   707
			$r['user-agent'] = $r['headers']['user-agent'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   708
			unset($r['headers']['user-agent']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   709
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   710
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   711
		// Construct Cookie: header if any cookies are set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   712
		WP_Http::buildCookieHeader( $r );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   713
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   714
		$arrURL = parse_url($url);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   715
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   716
		$connect_host = $arrURL['host'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   717
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   718
		$secure_transport = ( $arrURL['scheme'] == 'ssl' || $arrURL['scheme'] == 'https' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   719
		if ( ! isset( $arrURL['port'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   720
			if ( $arrURL['scheme'] == 'ssl' || $arrURL['scheme'] == 'https' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   721
				$arrURL['port'] = 443;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   722
				$secure_transport = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   723
			} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   724
				$arrURL['port'] = 80;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   725
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   726
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   727
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   728
		if ( isset( $r['headers']['Host'] ) || isset( $r['headers']['host'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   729
			if ( isset( $r['headers']['Host'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   730
				$arrURL['host'] = $r['headers']['Host'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   731
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   732
				$arrURL['host'] = $r['headers']['host'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   733
			unset( $r['headers']['Host'], $r['headers']['host'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   734
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   735
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   736
		// Certain versions of PHP have issues with 'localhost' and IPv6, It attempts to connect to ::1,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   737
		// which fails when the server is not set up for it. For compatibility, always connect to the IPv4 address.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   738
		if ( 'localhost' == strtolower( $connect_host ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   739
			$connect_host = '127.0.0.1';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   740
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   741
		$connect_host = $secure_transport ? 'ssl://' . $connect_host : 'tcp://' . $connect_host;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   742
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   743
		$is_local = isset( $r['local'] ) && $r['local'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   744
		$ssl_verify = isset( $r['sslverify'] ) && $r['sslverify'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   745
		if ( $is_local )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   746
			$ssl_verify = apply_filters( 'https_local_ssl_verify', $ssl_verify );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   747
		elseif ( ! $is_local )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   748
			$ssl_verify = apply_filters( 'https_ssl_verify', $ssl_verify );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   749
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   750
		$proxy = new WP_HTTP_Proxy();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   751
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   752
		$context = stream_context_create( array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   753
			'ssl' => array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   754
				'verify_peer' => $ssl_verify,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   755
				//'CN_match' => $arrURL['host'], // This is handled by self::verify_ssl_certificate()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   756
				'capture_peer_cert' => $ssl_verify,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   757
				'SNI_enabled' => true,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   758
				'cafile' => $r['sslcertificates'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   759
				'allow_self_signed' => ! $ssl_verify,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   760
			)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   761
		) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   762
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   763
		$timeout = (int) floor( $r['timeout'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   764
		$utimeout = $timeout == $r['timeout'] ? 0 : 1000000 * $r['timeout'] % 1000000;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   765
		$connect_timeout = max( $timeout, 1 );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   766
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   767
		$connection_error = null; // Store error number
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   768
		$connection_error_str = null; // Store error string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   769
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   770
		if ( !WP_DEBUG ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   771
			// In the event that the SSL connection fails, silence the many PHP Warnings
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   772
			if ( $secure_transport )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   773
				$error_reporting = error_reporting(0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   774
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   775
			if ( $proxy->is_enabled() && $proxy->send_through_proxy( $url ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   776
				$handle = @stream_socket_client( 'tcp://' . $proxy->host() . ':' . $proxy->port(), $connection_error, $connection_error_str, $connect_timeout, STREAM_CLIENT_CONNECT, $context );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   777
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   778
				$handle = @stream_socket_client( $connect_host . ':' . $arrURL['port'], $connection_error, $connection_error_str, $connect_timeout, STREAM_CLIENT_CONNECT, $context );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   779
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   780
			if ( $secure_transport )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   781
				error_reporting( $error_reporting );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   782
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   783
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   784
			if ( $proxy->is_enabled() && $proxy->send_through_proxy( $url ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   785
				$handle = stream_socket_client( 'tcp://' . $proxy->host() . ':' . $proxy->port(), $connection_error, $connection_error_str, $connect_timeout, STREAM_CLIENT_CONNECT, $context );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   786
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   787
				$handle = stream_socket_client( $connect_host . ':' . $arrURL['port'], $connection_error, $connection_error_str, $connect_timeout, STREAM_CLIENT_CONNECT, $context );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   788
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   789
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   790
		if ( false === $handle ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   791
			// SSL connection failed due to expired/invalid cert, or, OpenSSL configuration is broken
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   792
			if ( $secure_transport && 0 === $connection_error && '' === $connection_error_str )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   793
				return new WP_Error( 'http_request_failed', __( 'The SSL certificate for the host could not be verified.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   794
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   795
			return new WP_Error('http_request_failed', $connection_error . ': ' . $connection_error_str );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   796
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   797
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   798
		// Verify that the SSL certificate is valid for this request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   799
		if ( $secure_transport && $ssl_verify && ! $proxy->is_enabled() ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   800
			if ( ! self::verify_ssl_certificate( $handle, $arrURL['host'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   801
				return new WP_Error( 'http_request_failed', __( 'The SSL certificate for the host could not be verified.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   802
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   803
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   804
		stream_set_timeout( $handle, $timeout, $utimeout );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   805
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   806
		if ( $proxy->is_enabled() && $proxy->send_through_proxy( $url ) ) //Some proxies require full URL in this field.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   807
			$requestPath = $url;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   808
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   809
			$requestPath = $arrURL['path'] . ( isset($arrURL['query']) ? '?' . $arrURL['query'] : '' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   810
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   811
		if ( empty($requestPath) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   812
			$requestPath .= '/';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   813
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   814
		$strHeaders = strtoupper($r['method']) . ' ' . $requestPath . ' HTTP/' . $r['httpversion'] . "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   815
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   816
		if ( $proxy->is_enabled() && $proxy->send_through_proxy( $url ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   817
			$strHeaders .= 'Host: ' . $arrURL['host'] . ':' . $arrURL['port'] . "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   818
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   819
			$strHeaders .= 'Host: ' . $arrURL['host'] . "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   820
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   821
		if ( isset($r['user-agent']) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   822
			$strHeaders .= 'User-agent: ' . $r['user-agent'] . "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   823
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   824
		if ( is_array($r['headers']) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   825
			foreach ( (array) $r['headers'] as $header => $headerValue )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   826
				$strHeaders .= $header . ': ' . $headerValue . "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   827
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   828
			$strHeaders .= $r['headers'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   829
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   830
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   831
		if ( $proxy->use_authentication() )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   832
			$strHeaders .= $proxy->authentication_header() . "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   833
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   834
		$strHeaders .= "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   835
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   836
		if ( ! is_null($r['body']) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   837
			$strHeaders .= $r['body'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   838
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   839
		fwrite($handle, $strHeaders);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   840
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   841
		if ( ! $r['blocking'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   842
			stream_set_blocking( $handle, 0 );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   843
			fclose( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   844
			return array( 'headers' => array(), 'body' => '', 'response' => array('code' => false, 'message' => false), 'cookies' => array() );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   845
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   846
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   847
		$strResponse = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   848
		$bodyStarted = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   849
		$keep_reading = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   850
		$block_size = 4096;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   851
		if ( isset( $r['limit_response_size'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   852
			$block_size = min( $block_size, $r['limit_response_size'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   853
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   854
		// If streaming to a file setup the file handle
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   855
		if ( $r['stream'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   856
			if ( ! WP_DEBUG )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   857
				$stream_handle = @fopen( $r['filename'], 'w+' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   858
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   859
				$stream_handle = fopen( $r['filename'], 'w+' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   860
			if ( ! $stream_handle )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   861
				return new WP_Error( 'http_request_failed', sprintf( __( 'Could not open handle for fopen() to %s' ), $r['filename'] ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   862
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   863
			$bytes_written = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   864
			while ( ! feof($handle) && $keep_reading ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   865
				$block = fread( $handle, $block_size );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   866
				if ( ! $bodyStarted ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   867
					$strResponse .= $block;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   868
					if ( strpos( $strResponse, "\r\n\r\n" ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   869
						$process = WP_Http::processResponse( $strResponse );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   870
						$bodyStarted = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   871
						$block = $process['body'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   872
						unset( $strResponse );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   873
						$process['body'] = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   874
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   875
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   876
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   877
				$this_block_size = strlen( $block );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   878
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   879
				if ( isset( $r['limit_response_size'] ) && ( $bytes_written + $this_block_size ) > $r['limit_response_size'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   880
					$block = substr( $block, 0, ( $r['limit_response_size'] - $bytes_written ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   881
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   882
				$bytes_written_to_file = fwrite( $stream_handle, $block );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   883
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   884
				if ( $bytes_written_to_file != $this_block_size ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   885
					fclose( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   886
					fclose( $stream_handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   887
					return new WP_Error( 'http_request_failed', __( 'Failed to write request to temporary file.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   888
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   889
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   890
				$bytes_written += $bytes_written_to_file;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   891
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   892
				$keep_reading = !isset( $r['limit_response_size'] ) || $bytes_written < $r['limit_response_size'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   893
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   894
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   895
			fclose( $stream_handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   896
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   897
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   898
			$header_length = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   899
			while ( ! feof( $handle ) && $keep_reading ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   900
				$block = fread( $handle, $block_size );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   901
				$strResponse .= $block;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   902
				if ( ! $bodyStarted && strpos( $strResponse, "\r\n\r\n" ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   903
					$header_length = strpos( $strResponse, "\r\n\r\n" ) + 4;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   904
					$bodyStarted = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   905
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   906
				$keep_reading = ( ! $bodyStarted || !isset( $r['limit_response_size'] ) || strlen( $strResponse ) < ( $header_length + $r['limit_response_size'] ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   907
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   908
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   909
			$process = WP_Http::processResponse( $strResponse );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   910
			unset( $strResponse );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   911
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   912
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   913
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   914
		fclose( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   915
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   916
		$arrHeaders = WP_Http::processHeaders( $process['headers'], $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   917
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   918
		$response = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   919
			'headers' => $arrHeaders['headers'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   920
			'body' => null, // Not yet processed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   921
			'response' => $arrHeaders['response'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   922
			'cookies' => $arrHeaders['cookies'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   923
			'filename' => $r['filename']
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   924
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   925
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   926
		// Handle redirects
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   927
		if ( false !== ( $redirect_response = WP_HTTP::handle_redirects( $url, $r, $response ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   928
			return $redirect_response;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   929
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   930
		// If the body was chunk encoded, then decode it.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   931
		if ( ! empty( $process['body'] ) && isset( $arrHeaders['headers']['transfer-encoding'] ) && 'chunked' == $arrHeaders['headers']['transfer-encoding'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   932
			$process['body'] = WP_Http::chunkTransferDecode($process['body']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   933
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   934
		if ( true === $r['decompress'] && true === WP_Http_Encoding::should_decode($arrHeaders['headers']) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   935
			$process['body'] = WP_Http_Encoding::decompress( $process['body'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   936
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   937
		if ( isset( $r['limit_response_size'] ) && strlen( $process['body'] ) > $r['limit_response_size'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   938
			$process['body'] = substr( $process['body'], 0, $r['limit_response_size'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   939
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   940
		$response['body'] = $process['body'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   941
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   942
		return $response;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   943
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   944
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   945
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   946
	 * Verifies the received SSL certificate against it's Common Names and subjectAltName fields
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   947
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   948
	 * PHP's SSL verifications only verify that it's a valid Certificate, it doesn't verify if
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   949
	 * the certificate is valid for the hostname which was requested.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   950
	 * This function verifies the requested hostname against certificate's subjectAltName field,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   951
	 * if that is empty, or contains no DNS entries, a fallback to the Common Name field is used.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   952
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   953
	 * IP Address support is included if the request is being made to an IP address.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   954
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   955
	 * @since 3.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   956
	 * @static
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   957
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   958
	 * @param stream $stream The PHP Stream which the SSL request is being made over
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   959
	 * @param string $host The hostname being requested
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   960
	 * @return bool If the cerficiate presented in $stream is valid for $host
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   961
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   962
	static function verify_ssl_certificate( $stream, $host ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   963
		$context_options = stream_context_get_options( $stream );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   964
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   965
		if ( empty( $context_options['ssl']['peer_certificate'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   966
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   967
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   968
		$cert = openssl_x509_parse( $context_options['ssl']['peer_certificate'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   969
		if ( ! $cert )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   970
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   971
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   972
		// If the request is being made to an IP address, we'll validate against IP fields in the cert (if they exist)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   973
		$host_type = ( WP_HTTP::is_ip_address( $host ) ? 'ip' : 'dns' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   974
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   975
		$certificate_hostnames = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   976
		if ( ! empty( $cert['extensions']['subjectAltName'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   977
			$match_against = preg_split( '/,\s*/', $cert['extensions']['subjectAltName'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   978
			foreach ( $match_against as $match ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   979
				list( $match_type, $match_host ) = explode( ':', $match );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   980
				if ( $host_type == strtolower( trim( $match_type ) ) ) // IP: or DNS:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   981
					$certificate_hostnames[] = strtolower( trim( $match_host ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   982
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   983
		} elseif ( !empty( $cert['subject']['CN'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   984
			// Only use the CN when the certificate includes no subjectAltName extension
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   985
			$certificate_hostnames[] = strtolower( $cert['subject']['CN'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   986
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   987
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   988
		// Exact hostname/IP matches
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   989
		if ( in_array( strtolower( $host ), $certificate_hostnames ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   990
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   991
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   992
		// IP's can't be wildcards, Stop processing
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   993
		if ( 'ip' == $host_type )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   994
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   995
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   996
		// Test to see if the domain is at least 2 deep for wildcard support
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   997
		if ( substr_count( $host, '.' ) < 2 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   998
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   999
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1000
		// Wildcard subdomains certs (*.example.com) are valid for a.example.com but not a.b.example.com
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1001
		$wildcard_host = preg_replace( '/^[^.]+\./', '*.', $host );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1002
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1003
		return in_array( strtolower( $wildcard_host ), $certificate_hostnames );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1004
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1005
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1006
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1007
	 * Whether this class can be used for retrieving an URL.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1008
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1009
	 * @static
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1010
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1011
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1012
	 * @since 3.7.0 Combined with the fsockopen transport and switched to stream_socket_client().
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1013
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1014
	 * @return boolean False means this class can not be used, true means it can.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1015
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1016
	public static function test( $args = array() ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1017
		if ( ! function_exists( 'stream_socket_client' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1018
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1019
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1020
		$is_ssl = isset( $args['ssl'] ) && $args['ssl'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1021
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1022
		if ( $is_ssl ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1023
			if ( ! extension_loaded( 'openssl' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1024
				return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1025
			if ( ! function_exists( 'openssl_x509_parse' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1026
				return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1027
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1028
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1029
		return apply_filters( 'use_streams_transport', true, $args );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1030
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1031
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1032
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1033
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1034
 * Deprecated HTTP Transport method which used fsockopen.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1035
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1036
 * This class is not used, and is included for backwards compatibility only.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1037
 * All code should make use of WP_HTTP directly through it's API.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1038
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1039
 * @see WP_HTTP::request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1040
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1041
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1042
 * @subpackage HTTP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1043
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1044
 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1045
 * @deprecated 3.7.0 Please use WP_HTTP::request() directly
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1046
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1047
class WP_HTTP_Fsockopen extends WP_HTTP_Streams {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1048
	// For backwards compatibility for users who are using the class directly
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1049
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1050
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1051
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1052
 * HTTP request method uses Curl extension to retrieve the url.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1053
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1054
 * Requires the Curl extension to be installed.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1055
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1056
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1057
 * @subpackage HTTP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1058
 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1059
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1060
class WP_Http_Curl {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1061
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1062
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1063
	 * Temporary header storage for during requests.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1064
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1065
	 * @since 3.2.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1066
	 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1067
	 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1068
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1069
	private $headers = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1070
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1071
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1072
	 * Temporary body storage for during requests.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1073
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1074
	 * @since 3.6.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1075
	 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1076
	 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1077
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1078
	private $body = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1079
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1080
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1081
	 * The maximum amount of data to recieve from the remote server
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1082
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1083
	 * @since 3.6.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1084
	 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1085
	 * @var int
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1086
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1087
	private $max_body_length = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1088
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1089
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1090
	 * The file resource used for streaming to file.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1091
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1092
	 * @since 3.6.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1093
	 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1094
	 * @var resource
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1095
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1096
	private $stream_handle = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1097
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1098
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1099
	 * Send a HTTP request to a URI using cURL extension.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1100
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1101
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1102
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1103
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1104
	 * @param string $url
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1105
	 * @param str|array $args Optional. Override the defaults.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1106
	 * @return array 'headers', 'body', 'response', 'cookies' and 'filename' keys.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1107
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1108
	function request($url, $args = array()) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1109
		$defaults = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1110
			'method' => 'GET', 'timeout' => 5,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1111
			'redirection' => 5, 'httpversion' => '1.0',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1112
			'blocking' => true,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1113
			'headers' => array(), 'body' => null, 'cookies' => array()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1114
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1115
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1116
		$r = wp_parse_args( $args, $defaults );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1117
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1118
		if ( isset($r['headers']['User-Agent']) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1119
			$r['user-agent'] = $r['headers']['User-Agent'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1120
			unset($r['headers']['User-Agent']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1121
		} else if ( isset($r['headers']['user-agent']) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1122
			$r['user-agent'] = $r['headers']['user-agent'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1123
			unset($r['headers']['user-agent']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1124
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1125
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1126
		// Construct Cookie: header if any cookies are set.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1127
		WP_Http::buildCookieHeader( $r );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1128
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1129
		$handle = curl_init();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1130
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1131
		// cURL offers really easy proxy support.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1132
		$proxy = new WP_HTTP_Proxy();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1133
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1134
		if ( $proxy->is_enabled() && $proxy->send_through_proxy( $url ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1135
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1136
			curl_setopt( $handle, CURLOPT_PROXYTYPE, CURLPROXY_HTTP );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1137
			curl_setopt( $handle, CURLOPT_PROXY, $proxy->host() );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1138
			curl_setopt( $handle, CURLOPT_PROXYPORT, $proxy->port() );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1139
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1140
			if ( $proxy->use_authentication() ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1141
				curl_setopt( $handle, CURLOPT_PROXYAUTH, CURLAUTH_ANY );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1142
				curl_setopt( $handle, CURLOPT_PROXYUSERPWD, $proxy->authentication() );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1143
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1144
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1145
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1146
		$is_local = isset($r['local']) && $r['local'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1147
		$ssl_verify = isset($r['sslverify']) && $r['sslverify'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1148
		if ( $is_local )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1149
			$ssl_verify = apply_filters('https_local_ssl_verify', $ssl_verify);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1150
		elseif ( ! $is_local )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1151
			$ssl_verify = apply_filters('https_ssl_verify', $ssl_verify);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1152
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1153
		// CURLOPT_TIMEOUT and CURLOPT_CONNECTTIMEOUT expect integers. Have to use ceil since
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1154
		// a value of 0 will allow an unlimited timeout.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1155
		$timeout = (int) ceil( $r['timeout'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1156
		curl_setopt( $handle, CURLOPT_CONNECTTIMEOUT, $timeout );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1157
		curl_setopt( $handle, CURLOPT_TIMEOUT, $timeout );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1158
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1159
		curl_setopt( $handle, CURLOPT_URL, $url);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1160
		curl_setopt( $handle, CURLOPT_RETURNTRANSFER, true );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1161
		curl_setopt( $handle, CURLOPT_SSL_VERIFYHOST, ( $ssl_verify === true ) ? 2 : false );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1162
		curl_setopt( $handle, CURLOPT_SSL_VERIFYPEER, $ssl_verify );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1163
		curl_setopt( $handle, CURLOPT_CAINFO, $r['sslcertificates'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1164
		curl_setopt( $handle, CURLOPT_USERAGENT, $r['user-agent'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1165
		// The option doesn't work with safe mode or when open_basedir is set, and there's a
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1166
		// bug #17490 with redirected POST requests, so handle redirections outside Curl.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1167
		curl_setopt( $handle, CURLOPT_FOLLOWLOCATION, false );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1168
		if ( defined( 'CURLOPT_PROTOCOLS' ) ) // PHP 5.2.10 / cURL 7.19.4
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1169
			curl_setopt( $handle, CURLOPT_PROTOCOLS, CURLPROTO_HTTP | CURLPROTO_HTTPS );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1170
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1171
		switch ( $r['method'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1172
			case 'HEAD':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1173
				curl_setopt( $handle, CURLOPT_NOBODY, true );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1174
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1175
			case 'POST':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1176
				curl_setopt( $handle, CURLOPT_POST, true );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1177
				curl_setopt( $handle, CURLOPT_POSTFIELDS, $r['body'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1178
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1179
			case 'PUT':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1180
				curl_setopt( $handle, CURLOPT_CUSTOMREQUEST, 'PUT' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1181
				curl_setopt( $handle, CURLOPT_POSTFIELDS, $r['body'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1182
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1183
			default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1184
				curl_setopt( $handle, CURLOPT_CUSTOMREQUEST, $r['method'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1185
				if ( ! is_null( $r['body'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1186
					curl_setopt( $handle, CURLOPT_POSTFIELDS, $r['body'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1187
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1188
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1189
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1190
		if ( true === $r['blocking'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1191
			curl_setopt( $handle, CURLOPT_HEADERFUNCTION, array( $this, 'stream_headers' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1192
			curl_setopt( $handle, CURLOPT_WRITEFUNCTION, array( $this, 'stream_body' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1193
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1194
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1195
		curl_setopt( $handle, CURLOPT_HEADER, false );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1196
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1197
		if ( isset( $r['limit_response_size'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1198
			$this->max_body_length = intval( $r['limit_response_size'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1199
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1200
			$this->max_body_length = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1201
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1202
		// If streaming to a file open a file handle, and setup our curl streaming handler
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1203
		if ( $r['stream'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1204
			if ( ! WP_DEBUG )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1205
				$this->stream_handle = @fopen( $r['filename'], 'w+' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1206
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1207
				$this->stream_handle = fopen( $r['filename'], 'w+' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1208
			if ( ! $this->stream_handle )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1209
				return new WP_Error( 'http_request_failed', sprintf( __( 'Could not open handle for fopen() to %s' ), $r['filename'] ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1210
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1211
			$this->stream_handle = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1212
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1213
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1214
		if ( !empty( $r['headers'] ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1215
			// cURL expects full header strings in each element
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1216
			$headers = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1217
			foreach ( $r['headers'] as $name => $value ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1218
				$headers[] = "{$name}: $value";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1219
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1220
			curl_setopt( $handle, CURLOPT_HTTPHEADER, $headers );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1221
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1222
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1223
		if ( $r['httpversion'] == '1.0' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1224
			curl_setopt( $handle, CURLOPT_HTTP_VERSION, CURL_HTTP_VERSION_1_0 );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1225
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1226
			curl_setopt( $handle, CURLOPT_HTTP_VERSION, CURL_HTTP_VERSION_1_1 );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1227
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1228
		// Cookies are not handled by the HTTP API currently. Allow for plugin authors to handle it
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1229
		// themselves... Although, it is somewhat pointless without some reference.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1230
		do_action_ref_array( 'http_api_curl', array(&$handle) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1231
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1232
		// We don't need to return the body, so don't. Just execute request and return.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1233
		if ( ! $r['blocking'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1234
			curl_exec( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1235
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1236
			if ( $curl_error = curl_error( $handle ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1237
				curl_close( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1238
				return new WP_Error( 'http_request_failed', $curl_error );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1239
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1240
			if ( in_array( curl_getinfo( $handle, CURLINFO_HTTP_CODE ), array( 301, 302 ) ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1241
				curl_close( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1242
				return new WP_Error( 'http_request_failed', __( 'Too many redirects.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1243
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1244
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1245
			curl_close( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1246
			return array( 'headers' => array(), 'body' => '', 'response' => array('code' => false, 'message' => false), 'cookies' => array() );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1247
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1248
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1249
		$theResponse = curl_exec( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1250
		$theHeaders = WP_Http::processHeaders( $this->headers, $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1251
		$theBody = $this->body;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1252
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1253
		$this->headers = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1254
		$this->body = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1255
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1256
		$curl_error = curl_errno( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1257
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1258
		// If an error occured, or, no response
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1259
		if ( $curl_error || ( 0 == strlen( $theBody ) && empty( $theHeaders['headers'] ) ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1260
			if ( CURLE_WRITE_ERROR /* 23 */ == $curl_error &&  $r['stream'] ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1261
				fclose( $this->stream_handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1262
				return new WP_Error( 'http_request_failed', __( 'Failed to write request to temporary file.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1263
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1264
			if ( $curl_error = curl_error( $handle ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1265
				curl_close( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1266
				return new WP_Error( 'http_request_failed', $curl_error );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1267
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1268
			if ( in_array( curl_getinfo( $handle, CURLINFO_HTTP_CODE ), array( 301, 302 ) ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1269
				curl_close( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1270
				return new WP_Error( 'http_request_failed', __( 'Too many redirects.' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1271
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1272
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1273
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1274
		$response = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1275
		$response['code'] = curl_getinfo( $handle, CURLINFO_HTTP_CODE );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1276
		$response['message'] = get_status_header_desc($response['code']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1277
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1278
		curl_close( $handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1279
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1280
		if ( $r['stream'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1281
			fclose( $this->stream_handle );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1282
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1283
		$response = array(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1284
			'headers' => $theHeaders['headers'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1285
			'body' => null,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1286
			'response' => $response,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1287
			'cookies' => $theHeaders['cookies'],
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1288
			'filename' => $r['filename']
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1289
		);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1290
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1291
		// Handle redirects
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1292
		if ( false !== ( $redirect_response = WP_HTTP::handle_redirects( $url, $r, $response ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1293
			return $redirect_response;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1294
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1295
		if ( true === $r['decompress'] && true === WP_Http_Encoding::should_decode($theHeaders['headers']) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1296
			$theBody = WP_Http_Encoding::decompress( $theBody );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1297
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1298
		$response['body'] = $theBody;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1299
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1300
		return $response;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1301
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1302
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1303
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1304
	 * Grab the headers of the cURL request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1305
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1306
	 * Each header is sent individually to this callback, so we append to the $header property for temporary storage
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1307
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1308
	 * @since 3.2.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1309
	 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1310
	 * @return int
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1311
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1312
	private function stream_headers( $handle, $headers ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1313
		$this->headers .= $headers;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1314
		return strlen( $headers );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1315
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1316
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1317
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1318
	 * Grab the body of the cURL request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1319
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1320
	 * The contents of the document are passed in chunks, so we append to the $body property for temporary storage.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1321
	 * Returning a length shorter than the length of $data passed in will cause cURL to abort the request as "completed"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1322
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1323
	 * @since 3.6.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1324
	 * @access private
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1325
	 * @return int
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1326
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1327
	private function stream_body( $handle, $data ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1328
		$data_length = strlen( $data );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1329
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1330
		if ( $this->max_body_length && ( strlen( $this->body ) + $data_length ) > $this->max_body_length )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1331
			$data = substr( $data, 0, ( $this->max_body_length - $data_length ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1332
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1333
		if ( $this->stream_handle ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1334
			$bytes_written = fwrite( $this->stream_handle, $data );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1335
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1336
			$this->body .= $data;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1337
			$bytes_written = $data_length;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1338
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1339
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1340
		// Upon event of this function returning less than strlen( $data ) curl will error with CURLE_WRITE_ERROR
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1341
		return $bytes_written;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1342
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1343
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1344
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1345
	 * Whether this class can be used for retrieving an URL.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1346
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1347
	 * @static
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1348
	 * @since 2.7.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1349
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1350
	 * @return boolean False means this class can not be used, true means it can.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1351
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1352
	public static function test( $args = array() ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1353
		if ( ! function_exists( 'curl_init' ) || ! function_exists( 'curl_exec' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1354
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1355
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1356
		$is_ssl = isset( $args['ssl'] ) && $args['ssl'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1357
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1358
		if ( $is_ssl ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1359
			$curl_version = curl_version();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1360
			if ( ! (CURL_VERSION_SSL & $curl_version['features']) ) // Does this cURL version support SSL requests?
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1361
				return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1362
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1363
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1364
		return apply_filters( 'use_curl_transport', true, $args );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1365
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1366
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1367
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1368
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1369
 * Adds Proxy support to the WordPress HTTP API.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1370
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1371
 * There are caveats to proxy support. It requires that defines be made in the wp-config.php file to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1372
 * enable proxy support. There are also a few filters that plugins can hook into for some of the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1373
 * constants.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1374
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1375
 * Please note that only BASIC authentication is supported by most transports.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1376
 * cURL MAY support more methods (such as NTLM authentication) depending on your environment.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1377
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1378
 * The constants are as follows:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1379
 * <ol>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1380
 * <li>WP_PROXY_HOST - Enable proxy support and host for connecting.</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1381
 * <li>WP_PROXY_PORT - Proxy port for connection. No default, must be defined.</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1382
 * <li>WP_PROXY_USERNAME - Proxy username, if it requires authentication.</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1383
 * <li>WP_PROXY_PASSWORD - Proxy password, if it requires authentication.</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1384
 * <li>WP_PROXY_BYPASS_HOSTS - Will prevent the hosts in this list from going through the proxy.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1385
 * You do not need to have localhost and the blog host in this list, because they will not be passed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1386
 * through the proxy. The list should be presented in a comma separated list, wildcards using * are supported, eg. *.wordpress.org</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1387
 * </ol>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1388
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1389
 * An example can be as seen below.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1390
 * <code>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1391
 * define('WP_PROXY_HOST', '192.168.84.101');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1392
 * define('WP_PROXY_PORT', '8080');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1393
 * define('WP_PROXY_BYPASS_HOSTS', 'localhost, www.example.com, *.wordpress.org');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1394
 * </code>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1395
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1396
 * @link http://core.trac.wordpress.org/ticket/4011 Proxy support ticket in WordPress.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1397
 * @link http://core.trac.wordpress.org/ticket/14636 Allow wildcard domains in WP_PROXY_BYPASS_HOSTS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1398
 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1399
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1400
class WP_HTTP_Proxy {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1401
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1402
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1403
	 * Whether proxy connection should be used.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1404
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1405
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1406
	 * @use WP_PROXY_HOST
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1407
	 * @use WP_PROXY_PORT
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1408
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1409
	 * @return bool
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1410
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1411
	function is_enabled() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1412
		return defined('WP_PROXY_HOST') && defined('WP_PROXY_PORT');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1413
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1414
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1415
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1416
	 * Whether authentication should be used.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1417
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1418
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1419
	 * @use WP_PROXY_USERNAME
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1420
	 * @use WP_PROXY_PASSWORD
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1421
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1422
	 * @return bool
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1423
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1424
	function use_authentication() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1425
		return defined('WP_PROXY_USERNAME') && defined('WP_PROXY_PASSWORD');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1426
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1427
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1428
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1429
	 * Retrieve the host for the proxy server.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1430
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1431
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1432
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1433
	 * @return string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1434
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1435
	function host() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1436
		if ( defined('WP_PROXY_HOST') )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1437
			return WP_PROXY_HOST;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1438
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1439
		return '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1440
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1441
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1442
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1443
	 * Retrieve the port for the proxy server.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1444
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1445
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1446
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1447
	 * @return string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1448
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1449
	function port() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1450
		if ( defined('WP_PROXY_PORT') )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1451
			return WP_PROXY_PORT;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1452
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1453
		return '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1454
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1455
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1456
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1457
	 * Retrieve the username for proxy authentication.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1458
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1459
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1460
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1461
	 * @return string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1462
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1463
	function username() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1464
		if ( defined('WP_PROXY_USERNAME') )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1465
			return WP_PROXY_USERNAME;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1466
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1467
		return '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1468
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1469
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1470
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1471
	 * Retrieve the password for proxy authentication.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1472
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1473
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1474
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1475
	 * @return string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1476
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1477
	function password() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1478
		if ( defined('WP_PROXY_PASSWORD') )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1479
			return WP_PROXY_PASSWORD;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1480
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1481
		return '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1482
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1483
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1484
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1485
	 * Retrieve authentication string for proxy authentication.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1486
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1487
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1488
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1489
	 * @return string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1490
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1491
	function authentication() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1492
		return $this->username() . ':' . $this->password();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1493
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1494
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1495
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1496
	 * Retrieve header string for proxy authentication.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1497
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1498
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1499
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1500
	 * @return string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1501
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1502
	function authentication_header() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1503
		return 'Proxy-Authorization: Basic ' . base64_encode( $this->authentication() );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1504
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1505
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1506
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1507
	 * Whether URL should be sent through the proxy server.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1508
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1509
	 * We want to keep localhost and the blog URL from being sent through the proxy server, because
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1510
	 * some proxies can not handle this. We also have the constant available for defining other
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1511
	 * hosts that won't be sent through the proxy.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1512
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1513
	 * @uses WP_PROXY_BYPASS_HOSTS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1514
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1515
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1516
	 * @param string $uri URI to check.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1517
	 * @return bool True, to send through the proxy and false if, the proxy should not be used.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1518
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1519
	function send_through_proxy( $uri ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1520
		// parse_url() only handles http, https type URLs, and will emit E_WARNING on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1521
		// This will be displayed on blogs, which is not reasonable.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1522
		$check = @parse_url($uri);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1523
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1524
		// Malformed URL, can not process, but this could mean ssl, so let through anyway.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1525
		if ( $check === false )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1526
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1527
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1528
		$home = parse_url( get_option('siteurl') );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1529
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1530
		$result = apply_filters( 'pre_http_send_through_proxy', null, $uri, $check, $home );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1531
		if ( ! is_null( $result ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1532
			return $result;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1533
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1534
		if ( $check['host'] == 'localhost' || $check['host'] == $home['host'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1535
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1536
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1537
		if ( !defined('WP_PROXY_BYPASS_HOSTS') )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1538
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1539
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1540
		static $bypass_hosts;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1541
		static $wildcard_regex = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1542
		if ( null == $bypass_hosts ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1543
			$bypass_hosts = preg_split('|,\s*|', WP_PROXY_BYPASS_HOSTS);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1544
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1545
			if ( false !== strpos(WP_PROXY_BYPASS_HOSTS, '*') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1546
				$wildcard_regex = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1547
				foreach ( $bypass_hosts as $host )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1548
					$wildcard_regex[] = str_replace( '\*', '.+', preg_quote( $host, '/' ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1549
				$wildcard_regex = '/^(' . implode('|', $wildcard_regex) . ')$/i';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1550
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1551
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1552
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1553
		if ( !empty($wildcard_regex) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1554
			return !preg_match($wildcard_regex, $check['host']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1555
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1556
			return !in_array( $check['host'], $bypass_hosts );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1557
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1558
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1559
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1560
 * Internal representation of a single cookie.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1561
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1562
 * Returned cookies are represented using this class, and when cookies are set, if they are not
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1563
 * already a WP_Http_Cookie() object, then they are turned into one.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1564
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1565
 * @todo The WordPress convention is to use underscores instead of camelCase for function and method
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1566
 * names. Need to switch to use underscores instead for the methods.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1567
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1568
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1569
 * @subpackage HTTP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1570
 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1571
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1572
class WP_Http_Cookie {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1573
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1574
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1575
	 * Cookie name.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1576
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1577
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1578
	 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1579
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1580
	var $name;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1581
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1582
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1583
	 * Cookie value.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1584
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1585
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1586
	 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1587
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1588
	var $value;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1589
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1590
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1591
	 * When the cookie expires.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1592
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1593
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1594
	 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1595
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1596
	var $expires;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1597
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1598
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1599
	 * Cookie URL path.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1600
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1601
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1602
	 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1603
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1604
	var $path;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1605
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1606
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1607
	 * Cookie Domain.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1608
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1609
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1610
	 * @var string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1611
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1612
	var $domain;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1613
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1614
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1615
	 * Sets up this cookie object.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1616
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1617
	 * The parameter $data should be either an associative array containing the indices names below
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1618
	 * or a header string detailing it.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1619
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1620
	 * If it's an array, it should include the following elements:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1621
	 * <ol>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1622
	 * <li>Name</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1623
	 * <li>Value - should NOT be urlencoded already.</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1624
	 * <li>Expires - (optional) String or int (UNIX timestamp).</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1625
	 * <li>Path (optional)</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1626
	 * <li>Domain (optional)</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1627
	 * <li>Port (optional)</li>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1628
	 * </ol>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1629
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1630
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1631
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1632
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1633
	 * @param string|array $data Raw cookie data.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1634
	 * @param string $requested_url The URL which the cookie was set on, used for default 'domain' and 'port' values
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1635
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1636
	function __construct( $data, $requested_url = '' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1637
		if ( $requested_url )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1638
			$arrURL = @parse_url( $requested_url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1639
		if ( isset( $arrURL['host'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1640
			$this->domain = $arrURL['host'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1641
		$this->path = isset( $arrURL['path'] ) ? $arrURL['path'] : '/';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1642
		if (  '/' != substr( $this->path, -1 ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1643
			$this->path = dirname( $this->path ) . '/';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1644
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1645
		if ( is_string( $data ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1646
			// Assume it's a header string direct from a previous request
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1647
			$pairs = explode( ';', $data );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1648
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1649
			// Special handling for first pair; name=value. Also be careful of "=" in value
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1650
			$name  = trim( substr( $pairs[0], 0, strpos( $pairs[0], '=' ) ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1651
			$value = substr( $pairs[0], strpos( $pairs[0], '=' ) + 1 );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1652
			$this->name  = $name;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1653
			$this->value = urldecode( $value );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1654
			array_shift( $pairs ); //Removes name=value from items.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1655
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1656
			// Set everything else as a property
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1657
			foreach ( $pairs as $pair ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1658
				$pair = rtrim($pair);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1659
				if ( empty($pair) ) //Handles the cookie ending in ; which results in a empty final pair
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1660
					continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1661
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1662
				list( $key, $val ) = strpos( $pair, '=' ) ? explode( '=', $pair ) : array( $pair, '' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1663
				$key = strtolower( trim( $key ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1664
				if ( 'expires' == $key )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1665
					$val = strtotime( $val );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1666
				$this->$key = $val;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1667
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1668
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1669
			if ( !isset( $data['name'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1670
				return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1671
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1672
			// Set properties based directly on parameters
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1673
			foreach ( array( 'name', 'value', 'path', 'domain', 'port' ) as $field ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1674
				if ( isset( $data[ $field ] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1675
					$this->$field = $data[ $field ];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1676
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1677
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1678
			if ( isset( $data['expires'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1679
				$this->expires = is_int( $data['expires'] ) ? $data['expires'] : strtotime( $data['expires'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1680
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1681
				$this->expires = null;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1682
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1683
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1684
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1685
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1686
	 * Confirms that it's OK to send this cookie to the URL checked against.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1687
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1688
	 * Decision is based on RFC 2109/2965, so look there for details on validity.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1689
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1690
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1691
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1692
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1693
	 * @param string $url URL you intend to send this cookie to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1694
	 * @return boolean true if allowed, false otherwise.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1695
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1696
	function test( $url ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1697
		if ( is_null( $this->name ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1698
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1699
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1700
		// Expires - if expired then nothing else matters
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1701
		if ( isset( $this->expires ) && time() > $this->expires )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1702
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1703
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1704
		// Get details on the URL we're thinking about sending to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1705
		$url = parse_url( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1706
		$url['port'] = isset( $url['port'] ) ? $url['port'] : ( 'https' == $url['scheme'] ? 443 : 80 );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1707
		$url['path'] = isset( $url['path'] ) ? $url['path'] : '/';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1708
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1709
		// Values to use for comparison against the URL
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1710
		$path   = isset( $this->path )   ? $this->path   : '/';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1711
		$port   = isset( $this->port )   ? $this->port   : null;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1712
		$domain = isset( $this->domain ) ? strtolower( $this->domain ) : strtolower( $url['host'] );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1713
		if ( false === stripos( $domain, '.' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1714
			$domain .= '.local';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1715
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1716
		// Host - very basic check that the request URL ends with the domain restriction (minus leading dot)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1717
		$domain = substr( $domain, 0, 1 ) == '.' ? substr( $domain, 1 ) : $domain;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1718
		if ( substr( $url['host'], -strlen( $domain ) ) != $domain )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1719
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1720
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1721
		// Port - supports "port-lists" in the format: "80,8000,8080"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1722
		if ( !empty( $port ) && !in_array( $url['port'], explode( ',', $port) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1723
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1724
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1725
		// Path - request path must start with path restriction
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1726
		if ( substr( $url['path'], 0, strlen( $path ) ) != $path )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1727
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1728
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1729
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1730
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1731
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1732
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1733
	 * Convert cookie name and value back to header string.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1734
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1735
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1736
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1737
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1738
	 * @return string Header encoded cookie name and value.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1739
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1740
	function getHeaderValue() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1741
		if ( ! isset( $this->name ) || ! isset( $this->value ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1742
			return '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1743
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1744
		return $this->name . '=' . apply_filters( 'wp_http_cookie_value', $this->value, $this->name );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1745
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1746
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1747
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1748
	 * Retrieve cookie header for usage in the rest of the WordPress HTTP API.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1749
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1750
	 * @access public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1751
	 * @since 2.8.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1752
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1753
	 * @return string
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1754
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1755
	function getFullHeader() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1756
		return 'Cookie: ' . $this->getHeaderValue();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1757
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1758
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1759
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1760
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1761
 * Implementation for deflate and gzip transfer encodings.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1762
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1763
 * Includes RFC 1950, RFC 1951, and RFC 1952.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1764
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1765
 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1766
 * @package WordPress
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1767
 * @subpackage HTTP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1768
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1769
class WP_Http_Encoding {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1770
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1771
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1772
	 * Compress raw string using the deflate format.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1773
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1774
	 * Supports the RFC 1951 standard.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1775
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1776
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1777
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1778
	 * @param string $raw String to compress.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1779
	 * @param int $level Optional, default is 9. Compression level, 9 is highest.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1780
	 * @param string $supports Optional, not used. When implemented it will choose the right compression based on what the server supports.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1781
	 * @return string|bool False on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1782
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1783
	public static function compress( $raw, $level = 9, $supports = null ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1784
		return gzdeflate( $raw, $level );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1785
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1786
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1787
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1788
	 * Decompression of deflated string.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1789
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1790
	 * Will attempt to decompress using the RFC 1950 standard, and if that fails
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1791
	 * then the RFC 1951 standard deflate will be attempted. Finally, the RFC
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1792
	 * 1952 standard gzip decode will be attempted. If all fail, then the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1793
	 * original compressed string will be returned.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1794
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1795
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1796
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1797
	 * @param string $compressed String to decompress.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1798
	 * @param int $length The optional length of the compressed data.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1799
	 * @return string|bool False on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1800
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1801
	public static function decompress( $compressed, $length = null ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1802
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1803
		if ( empty($compressed) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1804
			return $compressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1805
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1806
		if ( false !== ( $decompressed = @gzinflate( $compressed ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1807
			return $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1808
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1809
		if ( false !== ( $decompressed = WP_Http_Encoding::compatible_gzinflate( $compressed ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1810
			return $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1811
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1812
		if ( false !== ( $decompressed = @gzuncompress( $compressed ) ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1813
			return $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1814
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1815
		if ( function_exists('gzdecode') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1816
			$decompressed = @gzdecode( $compressed );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1817
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1818
			if ( false !== $decompressed )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1819
				return $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1820
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1821
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1822
		return $compressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1823
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1824
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1825
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1826
	 * Decompression of deflated string while staying compatible with the majority of servers.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1827
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1828
	 * Certain Servers will return deflated data with headers which PHP's gzinflate()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1829
	 * function cannot handle out of the box. The following function has been created from
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1830
	 * various snippets on the gzinflate() PHP documentation.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1831
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1832
	 * Warning: Magic numbers within. Due to the potential different formats that the compressed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1833
	 * data may be returned in, some "magic offsets" are needed to ensure proper decompression
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1834
	 * takes place. For a simple progmatic way to determine the magic offset in use, see:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1835
	 * http://core.trac.wordpress.org/ticket/18273
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1836
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1837
	 * @since 2.8.1
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1838
	 * @link http://core.trac.wordpress.org/ticket/18273
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1839
	 * @link http://au2.php.net/manual/en/function.gzinflate.php#70875
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1840
	 * @link http://au2.php.net/manual/en/function.gzinflate.php#77336
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1841
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1842
	 * @param string $gzData String to decompress.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1843
	 * @return string|bool False on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1844
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1845
	public static function compatible_gzinflate($gzData) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1846
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1847
		// Compressed data might contain a full header, if so strip it for gzinflate()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1848
		if ( substr($gzData, 0, 3) == "\x1f\x8b\x08" ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1849
			$i = 10;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1850
			$flg = ord( substr($gzData, 3, 1) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1851
			if ( $flg > 0 ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1852
				if ( $flg & 4 ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1853
					list($xlen) = unpack('v', substr($gzData, $i, 2) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1854
					$i = $i + 2 + $xlen;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1855
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1856
				if ( $flg & 8 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1857
					$i = strpos($gzData, "\0", $i) + 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1858
				if ( $flg & 16 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1859
					$i = strpos($gzData, "\0", $i) + 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1860
				if ( $flg & 2 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1861
					$i = $i + 2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1862
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1863
			$decompressed = @gzinflate( substr($gzData, $i, -8) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1864
			if ( false !== $decompressed )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1865
				return $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1866
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1867
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1868
		// Compressed data from java.util.zip.Deflater amongst others.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1869
		$decompressed = @gzinflate( substr($gzData, 2) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1870
		if ( false !== $decompressed )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1871
			return $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1872
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1873
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1874
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1875
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1876
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1877
	 * What encoding types to accept and their priority values.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1878
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1879
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1880
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1881
	 * @return string Types of encoding to accept.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1882
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1883
	public static function accept_encoding( $url, $args ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1884
		$type = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1885
		$compression_enabled = WP_Http_Encoding::is_available();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1886
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1887
		if ( ! $args['decompress'] ) // decompression specifically disabled
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1888
			$compression_enabled = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1889
		elseif ( $args['stream'] ) // disable when streaming to file
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1890
			$compression_enabled = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1891
		elseif ( isset( $args['limit_response_size'] ) ) // If only partial content is being requested, we won't be able to decompress it
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1892
			$compression_enabled = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1893
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1894
		if ( $compression_enabled ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1895
			if ( function_exists( 'gzinflate' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1896
				$type[] = 'deflate;q=1.0';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1897
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1898
			if ( function_exists( 'gzuncompress' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1899
				$type[] = 'compress;q=0.5';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1900
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1901
			if ( function_exists( 'gzdecode' ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1902
				$type[] = 'gzip;q=0.5';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1903
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1904
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1905
		$type = apply_filters( 'wp_http_accept_encoding', $type, $url, $args );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1906
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1907
		return implode(', ', $type);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1908
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1909
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1910
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1911
	 * What encoding the content used when it was compressed to send in the headers.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1912
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1913
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1914
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1915
	 * @return string Content-Encoding string to send in the header.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1916
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1917
	public static function content_encoding() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1918
		return 'deflate';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1919
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1920
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1921
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1922
	 * Whether the content be decoded based on the headers.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1923
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1924
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1925
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1926
	 * @param array|string $headers All of the available headers.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1927
	 * @return bool
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1928
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1929
	public static function should_decode($headers) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1930
		if ( is_array( $headers ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1931
			if ( array_key_exists('content-encoding', $headers) && ! empty( $headers['content-encoding'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1932
				return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1933
		} else if ( is_string( $headers ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1934
			return ( stripos($headers, 'content-encoding:') !== false );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1935
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1936
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1937
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1938
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1939
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1940
	/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1941
	 * Whether decompression and compression are supported by the PHP version.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1942
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1943
	 * Each function is tested instead of checking for the zlib extension, to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1944
	 * ensure that the functions all exist in the PHP version and aren't
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1945
	 * disabled.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1946
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1947
	 * @since 2.8
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1948
	 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1949
	 * @return bool
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1950
	 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1951
	public static function is_available() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1952
		return ( function_exists('gzuncompress') || function_exists('gzdeflate') || function_exists('gzinflate') );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1953
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1954
}