Search moodle.org's
Developer Documentation

See Release Notes
Long Term Support Release

  • Bug fixes for general core bugs in 3.9.x will end* 10 May 2021 (12 months).
  • Bug fixes for security issues in 3.9.x will end* 8 May 2023 (36 months).
  • PHP version: minimum PHP 7.2.0 Note: minimum PHP version has increased since Moodle 3.8. PHP 7.3.x and 7.4.x are supported too.
<?php
> /** > declare(strict_types=1);
* 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, Geoffrey Sneddon, Ryan McCue, and contributors
> * Copyright (c) 2004-2022, 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, Geoffrey Sneddon, Ryan McCue
> * @copyright 2004-2016 Ryan Parman, Sam Sneddon, Ryan McCue
* @author Ryan Parman
< * @author Geoffrey Sneddon
> * @author Sam Sneddon
* @author Ryan McCue * @link http://simplepie.org/ SimplePie * @license http://www.opensource.org/licenses/bsd-license.php BSD License */
> use SimplePie\HTTP\Parser;
< /** < * 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; < } < }
> class_exists('SimplePie\HTTP\Parser');
< /** < * 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'; < }
> // @trigger_error(sprintf('Using the "SimplePie_HTTP_Parser" class is deprecated since SimplePie 1.7.0, use "SimplePie\HTTP\Parser" instead.'), \E_USER_DEPRECATED);
< /** < * 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 !== '')
> if (\false) { > /** @deprecated since SimplePie 1.7.0, use "SimplePie\HTTP\Parser" instead */ > class SimplePie_HTTP_Parser extends Parser
{
< $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;
} }