519 lines
11 KiB
PHP
519 lines
11 KiB
PHP
|
<?php
|
||
|
|
/**
|
||
|
|
* SimplePie
|
||
|
|
*
|
||
|
|
* A PHP-Based RSS and Atom Feed Framework.
|
||
|
|
* Takes the hard work out of managing a complete RSS/Atom solution.
|
||
|
|
*
|
||
|
|
* Copyright (c) 2004-2016, Ryan Parman, Sam Sneddon, Ryan McCue, and contributors
|
||
|
|
* All rights reserved.
|
||
|
|
*
|
||
|
|
* Redistribution and use in source and binary forms, with or without modification, are
|
||
|
|
* permitted provided that the following conditions are met:
|
||
|
|
*
|
||
|
|
* * Redistributions of source code must retain the above copyright notice, this list of
|
||
|
|
* conditions and the following disclaimer.
|
||
|
|
*
|
||
|
|
* * Redistributions in binary form must reproduce the above copyright notice, this list
|
||
|
|
* of conditions and the following disclaimer in the documentation and/or other materials
|
||
|
|
* provided with the distribution.
|
||
|
|
*
|
||
|
|
* * Neither the name of the SimplePie Team nor the names of its contributors may be used
|
||
|
|
* to endorse or promote products derived from this software without specific prior
|
||
|
|
* written permission.
|
||
|
|
*
|
||
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
|
||
|
|
* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
|
||
|
|
* AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS
|
||
|
|
* AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
||
|
|
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
||
|
|
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||
|
|
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
||
|
|
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
||
|
|
* POSSIBILITY OF SUCH DAMAGE.
|
||
|
|
*
|
||
|
|
* @package SimplePie
|
||
|
|
* @copyright 2004-2016 Ryan Parman, Sam Sneddon, Ryan McCue
|
||
|
|
* @author Ryan Parman
|
||
|
|
* @author Sam Sneddon
|
||
|
|
* @author Ryan McCue
|
||
|
|
* @link http://simplepie.org/ SimplePie
|
||
|
|
* @license http://www.opensource.org/licenses/bsd-license.php BSD License
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
/**
|
||
|
|
* HTTP Response Parser
|
||
|
|
*
|
||
|
|
* @package SimplePie
|
||
|
|
* @subpackage HTTP
|
||
|
|
*/
|
||
|
|
class SimplePie_HTTP_Parser
|
||
|
|
{
|
||
|
|
/**
|
||
|
|
* HTTP Version
|
||
|
|
*
|
||
|
|
* @var float
|
||
|
|
*/
|
||
|
|
public $http_version = 0.0;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Status code
|
||
|
|
*
|
||
|
|
* @var int
|
||
|
|
*/
|
||
|
|
public $status_code = 0;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Reason phrase
|
||
|
|
*
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
public $reason = '';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Key/value pairs of the headers
|
||
|
|
*
|
||
|
|
* @var array
|
||
|
|
*/
|
||
|
|
public $headers = array();
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Body of the response
|
||
|
|
*
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
public $body = '';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Current state of the state machine
|
||
|
|
*
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $state = 'http_version';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Input data
|
||
|
|
*
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $data = '';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Input data length (to avoid calling strlen() everytime this is needed)
|
||
|
|
*
|
||
|
|
* @var int
|
||
|
|
*/
|
||
|
|
protected $data_length = 0;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Current position of the pointer
|
||
|
|
*
|
||
|
|
* @var int
|
||
|
|
*/
|
||
|
|
protected $position = 0;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Name of the hedaer currently being parsed
|
||
|
|
*
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $name = '';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Value of the hedaer currently being parsed
|
||
|
|
*
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
protected $value = '';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Create an instance of the class with the input data
|
||
|
|
*
|
||
|
|
* @param string $data Input data
|
||
|
|
*/
|
||
|
|
public function __construct($data)
|
||
|
|
{
|
||
|
|
$this->data = $data;
|
||
|
|
$this->data_length = strlen($this->data);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse the input data
|
||
|
|
*
|
||
|
|
* @return bool true on success, false on failure
|
||
|
|
*/
|
||
|
|
public function parse()
|
||
|
|
{
|
||
|
|
while ($this->state && $this->state !== 'emit' && $this->has_data())
|
||
|
|
{
|
||
|
|
$state = $this->state;
|
||
|
|
$this->$state();
|
||
|
|
}
|
||
|
|
$this->data = '';
|
||
|
|
if ($this->state === 'emit' || $this->state === 'body')
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
$this->http_version = '';
|
||
|
|
$this->status_code = '';
|
||
|
|
$this->reason = '';
|
||
|
|
$this->headers = array();
|
||
|
|
$this->body = '';
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Check whether there is data beyond the pointer
|
||
|
|
*
|
||
|
|
* @return bool true if there is further data, false if not
|
||
|
|
*/
|
||
|
|
protected function has_data()
|
||
|
|
{
|
||
|
|
return (bool) ($this->position < $this->data_length);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* See if the next character is LWS
|
||
|
|
*
|
||
|
|
* @return bool true if the next character is LWS, false if not
|
||
|
|
*/
|
||
|
|
protected function is_linear_whitespace()
|
||
|
|
{
|
||
|
|
return (bool) ($this->data[$this->position] === "\x09"
|
||
|
|
|| $this->data[$this->position] === "\x20"
|
||
|
|
|| ($this->data[$this->position] === "\x0A"
|
||
|
|
&& isset($this->data[$this->position + 1])
|
||
|
|
&& ($this->data[$this->position + 1] === "\x09" || $this->data[$this->position + 1] === "\x20")));
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse the HTTP version
|
||
|
|
*/
|
||
|
|
protected function http_version()
|
||
|
|
{
|
||
|
|
if (strpos($this->data, "\x0A") !== false && strtoupper(substr($this->data, 0, 5)) === 'HTTP/')
|
||
|
|
{
|
||
|
|
$len = strspn($this->data, '0123456789.', 5);
|
||
|
|
$this->http_version = substr($this->data, 5, $len);
|
||
|
|
$this->position += 5 + $len;
|
||
|
|
if (substr_count($this->http_version, '.') <= 1)
|
||
|
|
{
|
||
|
|
$this->http_version = (float) $this->http_version;
|
||
|
|
$this->position += strspn($this->data, "\x09\x20", $this->position);
|
||
|
|
$this->state = 'status';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->state = false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->state = false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse the status code
|
||
|
|
*/
|
||
|
|
protected function status()
|
||
|
|
{
|
||
|
|
if ($len = strspn($this->data, '0123456789', $this->position))
|
||
|
|
{
|
||
|
|
$this->status_code = (int) substr($this->data, $this->position, $len);
|
||
|
|
$this->position += $len;
|
||
|
|
$this->state = 'reason';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->state = false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse the reason phrase
|
||
|
|
*/
|
||
|
|
protected function reason()
|
||
|
|
{
|
||
|
|
$len = strcspn($this->data, "\x0A", $this->position);
|
||
|
|
$this->reason = trim(substr($this->data, $this->position, $len), "\x09\x0D\x20");
|
||
|
|
$this->position += $len + 1;
|
||
|
|
$this->state = 'new_line';
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Deal with a new line, shifting data around as needed
|
||
|
|
*/
|
||
|
|
protected function new_line()
|
||
|
|
{
|
||
|
|
$this->value = trim($this->value, "\x0D\x20");
|
||
|
|
if ($this->name !== '' && $this->value !== '')
|
||
|
|
{
|
||
|
|
$this->name = strtolower($this->name);
|
||
|
|
// We should only use the last Content-Type header. c.f. issue #1
|
||
|
|
if (isset($this->headers[$this->name]) && $this->name !== 'content-type')
|
||
|
|
{
|
||
|
|
$this->headers[$this->name] .= ', ' . $this->value;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->headers[$this->name] = $this->value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$this->name = '';
|
||
|
|
$this->value = '';
|
||
|
|
if (substr($this->data[$this->position], 0, 2) === "\x0D\x0A")
|
||
|
|
{
|
||
|
|
$this->position += 2;
|
||
|
|
$this->state = 'body';
|
||
|
|
}
|
||
|
|
elseif ($this->data[$this->position] === "\x0A")
|
||
|
|
{
|
||
|
|
$this->position++;
|
||
|
|
$this->state = 'body';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->state = 'name';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse a header name
|
||
|
|
*/
|
||
|
|
protected function name()
|
||
|
|
{
|
||
|
|
$len = strcspn($this->data, "\x0A:", $this->position);
|
||
|
|
if (isset($this->data[$this->position + $len]))
|
||
|
|
{
|
||
|
|
if ($this->data[$this->position + $len] === "\x0A")
|
||
|
|
{
|
||
|
|
$this->position += $len;
|
||
|
|
$this->state = 'new_line';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->name = substr($this->data, $this->position, $len);
|
||
|
|
$this->position += $len + 1;
|
||
|
|
$this->state = 'value';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->state = false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse LWS, replacing consecutive LWS characters with a single space
|
||
|
|
*/
|
||
|
|
protected function linear_whitespace()
|
||
|
|
{
|
||
|
|
do
|
||
|
|
{
|
||
|
|
if (substr($this->data, $this->position, 2) === "\x0D\x0A")
|
||
|
|
{
|
||
|
|
$this->position += 2;
|
||
|
|
}
|
||
|
|
elseif ($this->data[$this->position] === "\x0A")
|
||
|
|
{
|
||
|
|
$this->position++;
|
||
|
|
}
|
||
|
|
$this->position += strspn($this->data, "\x09\x20", $this->position);
|
||
|
|
} while ($this->has_data() && $this->is_linear_whitespace());
|
||
|
|
$this->value .= "\x20";
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* See what state to move to while within non-quoted header values
|
||
|
|
*/
|
||
|
|
protected function value()
|
||
|
|
{
|
||
|
|
if ($this->is_linear_whitespace())
|
||
|
|
{
|
||
|
|
$this->linear_whitespace();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
switch ($this->data[$this->position])
|
||
|
|
{
|
||
|
|
case '"':
|
||
|
|
// Workaround for ETags: we have to include the quotes as
|
||
|
|
// part of the tag.
|
||
|
|
if (strtolower($this->name) === 'etag')
|
||
|
|
{
|
||
|
|
$this->value .= '"';
|
||
|
|
$this->position++;
|
||
|
|
$this->state = 'value_char';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$this->position++;
|
||
|
|
$this->state = 'quote';
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "\x0A":
|
||
|
|
$this->position++;
|
||
|
|
$this->state = 'new_line';
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
$this->state = 'value_char';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse a header value while outside quotes
|
||
|
|
*/
|
||
|
|
protected function value_char()
|
||
|
|
{
|
||
|
|
$len = strcspn($this->data, "\x09\x20\x0A\"", $this->position);
|
||
|
|
$this->value .= substr($this->data, $this->position, $len);
|
||
|
|
$this->position += $len;
|
||
|
|
$this->state = 'value';
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* See what state to move to while within quoted header values
|
||
|
|
*/
|
||
|
|
protected function quote()
|
||
|
|
{
|
||
|
|
if ($this->is_linear_whitespace())
|
||
|
|
{
|
||
|
|
$this->linear_whitespace();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
switch ($this->data[$this->position])
|
||
|
|
{
|
||
|
|
case '"':
|
||
|
|
$this->position++;
|
||
|
|
$this->state = 'value';
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "\x0A":
|
||
|
|
$this->position++;
|
||
|
|
$this->state = 'new_line';
|
||
|
|
break;
|
||
|
|
|
||
|
|
case '\\':
|
||
|
|
$this->position++;
|
||
|
|
$this->state = 'quote_escaped';
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
$this->state = 'quote_char';
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse a header value while within quotes
|
||
|
|
*/
|
||
|
|
protected function quote_char()
|
||
|
|
{
|
||
|
|
$len = strcspn($this->data, "\x09\x20\x0A\"\\", $this->position);
|
||
|
|
$this->value .= substr($this->data, $this->position, $len);
|
||
|
|
$this->position += $len;
|
||
|
|
$this->state = 'value';
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse an escaped character within quotes
|
||
|
|
*/
|
||
|
|
protected function quote_escaped()
|
||
|
|
{
|
||
|
|
$this->value .= $this->data[$this->position];
|
||
|
|
$this->position++;
|
||
|
|
$this->state = 'quote';
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parse the body
|
||
|
|
*/
|
||
|
|
protected function body()
|
||
|
|
{
|
||
|
|
$this->body = substr($this->data, $this->position);
|
||
|
|
if (!empty($this->headers['transfer-encoding']))
|
||
|
|
{
|
||
|
|
unset($this->headers['transfer-encoding']);
|
||
|
|
$this->state = 'chunked';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->state = 'emit';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Parsed a "Transfer-Encoding: chunked" body
|
||
|
|
*/
|
||
|
|
protected function chunked()
|
||
|
|
{
|
||
|
|
if (!preg_match('/^([0-9a-f]+)[^\r\n]*\r\n/i', trim($this->body)))
|
||
|
|
{
|
||
|
|
$this->state = 'emit';
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
$decoded = '';
|
||
|
|
$encoded = $this->body;
|
||
|
|
|
||
|
|
while (true)
|
||
|
|
{
|
||
|
|
$is_chunked = (bool) preg_match( '/^([0-9a-f]+)[^\r\n]*\r\n/i', $encoded, $matches );
|
||
|
|
if (!$is_chunked)
|
||
|
|
{
|
||
|
|
// Looks like it's not chunked after all
|
||
|
|
$this->state = 'emit';
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
$length = hexdec(trim($matches[1]));
|
||
|
|
if ($length === 0)
|
||
|
|
{
|
||
|
|
// Ignore trailer headers
|
||
|
|
$this->state = 'emit';
|
||
|
|
$this->body = $decoded;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
$chunk_length = strlen($matches[0]);
|
||
|
|
$decoded .= $part = substr($encoded, $chunk_length, $length);
|
||
|
|
$encoded = substr($encoded, $chunk_length + $length + 2);
|
||
|
|
|
||
|
|
if (trim($encoded) === '0' || empty($encoded))
|
||
|
|
{
|
||
|
|
$this->state = 'emit';
|
||
|
|
$this->body = $decoded;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Prepare headers (take care of proxies headers)
|
||
|
|
*
|
||
|
|
* @param string $headers Raw headers
|
||
|
|
* @param integer $count Redirection count. Default to 1.
|
||
|
|
*
|
||
|
|
* @return string
|
||
|
|
*/
|
||
|
|
static public function prepareHeaders($headers, $count = 1)
|
||
|
|
{
|
||
|
|
$data = explode("\r\n\r\n", $headers, $count);
|
||
|
|
$data = array_pop($data);
|
||
|
|
if (false !== stripos($data, "HTTP/1.0 200 Connection established\r\n\r\n")) {
|
||
|
|
$data = str_ireplace("HTTP/1.0 200 Connection established\r\n\r\n", '', $data);
|
||
|
|
}
|
||
|
|
if (false !== stripos($data, "HTTP/1.1 200 Connection established\r\n\r\n")) {
|
||
|
|
$data = str_ireplace("HTTP/1.1 200 Connection established\r\n\r\n", '', $data);
|
||
|
|
}
|
||
|
|
return $data;
|
||
|
|
}
|
||
|
|
}
|