wp/wp-includes/SimplePie/File.php
author ymh <ymh.work@gmail.com>
Fri, 05 Sep 2025 18:52:52 +0200
changeset 22 8c2e4d02f4ef
parent 19 3d72ae0968f4
permissions -rw-r--r--
Update WordPress to latest version (6.7) - Sync WordPress core files from latest release - Updated admin interface, blocks, and core functionality - Enhanced block editor features and performance - Security updates and bug fixes - Preserved custom wp-content directory and configuration 🤖 Generated with [Claude Code](https://claude.ai/code) Co-Authored-By: Claude <noreply@anthropic.com>
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
 * SimplePie
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     5
 * A PHP-Based RSS and Atom Feed Framework.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     6
 * Takes the hard work out of managing a complete RSS/Atom solution.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
 *
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
     8
 * Copyright (c) 2004-2016, Ryan Parman, Sam Sneddon, Ryan McCue, and contributors
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
 * All rights reserved.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
 * Redistribution and use in source and binary forms, with or without modification, are
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
 * permitted provided that the following conditions are met:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    14
 * 	* Redistributions of source code must retain the above copyright notice, this list of
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    15
 * 	  conditions and the following disclaimer.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    16
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
 * 	* Redistributions in binary form must reproduce the above copyright notice, this list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
 * 	  of conditions and the following disclaimer in the documentation and/or other materials
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    19
 * 	  provided with the distribution.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
 * 	* Neither the name of the SimplePie Team nor the names of its contributors may be used
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
 * 	  to endorse or promote products derived from this software without specific prior
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
 * 	  written permission.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
 * AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    30
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
 * POSSIBILITY OF SUCH DAMAGE.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
 * @package SimplePie
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    36
 * @copyright 2004-2016 Ryan Parman, Sam Sneddon, Ryan McCue
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
 * @author Ryan Parman
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    38
 * @author Sam Sneddon
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
 * @author Ryan McCue
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
 * @link http://simplepie.org/ SimplePie
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
 * @license http://www.opensource.org/licenses/bsd-license.php BSD License
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
 * Used for fetching remote files and reading local files
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
 * Supports HTTP 1.0 via cURL or fsockopen, with spotty HTTP 1.1 support
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
 * This class can be overloaded with {@see SimplePie::set_file_class()}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
 * @package SimplePie
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
 * @subpackage HTTP
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
 * @todo Move to properly supporting RFC2616 (HTTP/1.1)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
class SimplePie_File
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    56
{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
	var $url;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
	var $useragent;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    59
	var $success = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    60
	var $headers = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    61
	var $body;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
	var $status_code;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
	var $redirects = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
	var $error;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
	var $method = SIMPLEPIE_FILE_SOURCE_NONE;
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    66
	var $permanent_url;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    68
	public function __construct($url, $timeout = 10, $redirects = 5, $headers = null, $useragent = null, $force_fsockopen = false, $curl_options = array())
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
		if (class_exists('idna_convert'))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
			$idn = new idna_convert();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
			$parsed = SimplePie_Misc::parse_url($url);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    74
			$url = SimplePie_Misc::compress_parse_url($parsed['scheme'], $idn->encode($parsed['authority']), $parsed['path'], $parsed['query'], NULL);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
		$this->url = $url;
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    77
		$this->permanent_url = $url;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    78
		$this->useragent = $useragent;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    79
		if (preg_match('/^http(s)?:\/\//i', $url))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    80
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    81
			if ($useragent === null)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    82
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    83
				$useragent = ini_get('user_agent');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    84
				$this->useragent = $useragent;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    85
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    86
			if (!is_array($headers))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    87
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    88
				$headers = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    89
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    90
			if (!$force_fsockopen && function_exists('curl_exec'))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    91
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    92
				$this->method = SIMPLEPIE_FILE_SOURCE_REMOTE | SIMPLEPIE_FILE_SOURCE_CURL;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
				$fp = curl_init();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
				$headers2 = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
				foreach ($headers as $key => $value)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    97
					$headers2[] = "$key: $value";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    98
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    99
				if (version_compare(SimplePie_Misc::get_curl_version(), '7.10.5', '>='))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
					curl_setopt($fp, CURLOPT_ENCODING, '');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   102
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   103
				curl_setopt($fp, CURLOPT_URL, $url);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   104
				curl_setopt($fp, CURLOPT_HEADER, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   105
				curl_setopt($fp, CURLOPT_RETURNTRANSFER, 1);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   106
				curl_setopt($fp, CURLOPT_FAILONERROR, 1);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   107
				curl_setopt($fp, CURLOPT_TIMEOUT, $timeout);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   108
				curl_setopt($fp, CURLOPT_CONNECTTIMEOUT, $timeout);
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 18
diff changeset
   109
				curl_setopt($fp, CURLOPT_REFERER, SimplePie_Misc::url_remove_credentials($url));
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
				curl_setopt($fp, CURLOPT_USERAGENT, $useragent);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
				curl_setopt($fp, CURLOPT_HTTPHEADER, $headers2);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   112
				foreach ($curl_options as $curl_param => $curl_value) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   113
					curl_setopt($fp, $curl_param, $curl_value);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   114
				}
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   116
				$this->headers = curl_exec($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
				if (curl_errno($fp) === 23 || curl_errno($fp) === 61)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
					curl_setopt($fp, CURLOPT_ENCODING, 'none');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   120
					$this->headers = curl_exec($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
				}
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 18
diff changeset
   122
				$this->status_code = curl_getinfo($fp, CURLINFO_HTTP_CODE);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
				if (curl_errno($fp))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
					$this->error = 'cURL error ' . curl_errno($fp) . ': ' . curl_error($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
					$this->success = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
				{
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   130
					// Use the updated url provided by curl_getinfo after any redirects.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   131
					if ($info = curl_getinfo($fp)) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   132
						$this->url = $info['url'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   133
					}
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
					curl_close($fp);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   135
					$this->headers = SimplePie_HTTP_Parser::prepareHeaders($this->headers, $info['redirect_count'] + 1);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   136
					$parser = new SimplePie_HTTP_Parser($this->headers);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
					if ($parser->parse())
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
						$this->headers = $parser->headers;
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   140
						$this->body = trim($parser->body);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
						$this->status_code = $parser->status_code;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   142
						if ((in_array($this->status_code, array(300, 301, 302, 303, 307)) || $this->status_code > 307 && $this->status_code < 400) && isset($this->headers['location']) && $this->redirects < $redirects)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   143
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   144
							$this->redirects++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   145
							$location = SimplePie_Misc::absolutize_url($this->headers['location'], $url);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   146
							$previousStatusCode = $this->status_code;
18
be944660c56a Site enmi version 09/2022
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   147
							$this->__construct($location, $timeout, $redirects, $headers, $useragent, $force_fsockopen, $curl_options);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   148
							$this->permanent_url = ($previousStatusCode == 301) ? $location : $url;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   149
							return;
0
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
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   153
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   154
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   155
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   156
				$this->method = SIMPLEPIE_FILE_SOURCE_REMOTE | SIMPLEPIE_FILE_SOURCE_FSOCKOPEN;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   157
				$url_parts = parse_url($url);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   158
				$socket_host = $url_parts['host'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   159
				if (isset($url_parts['scheme']) && strtolower($url_parts['scheme']) === 'https')
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
					$socket_host = "ssl://$url_parts[host]";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
					$url_parts['port'] = 443;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
				if (!isset($url_parts['port']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
					$url_parts['port'] = 80;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
				$fp = @fsockopen($socket_host, $url_parts['port'], $errno, $errstr, $timeout);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
				if (!$fp)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
					$this->error = 'fsockopen error: ' . $errstr;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
					$this->success = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
					stream_set_timeout($fp, $timeout);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
					if (isset($url_parts['path']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   179
						if (isset($url_parts['query']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   180
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   181
							$get = "$url_parts[path]?$url_parts[query]";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   182
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   183
						else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   185
							$get = $url_parts['path'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   188
					else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   189
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   190
						$get = '/';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   191
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   192
					$out = "GET $get HTTP/1.1\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   193
					$out .= "Host: $url_parts[host]\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   194
					$out .= "User-Agent: $useragent\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   195
					if (extension_loaded('zlib'))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   196
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   197
						$out .= "Accept-Encoding: x-gzip,gzip,deflate\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   198
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   199
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   200
					if (isset($url_parts['user']) && isset($url_parts['pass']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   201
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   202
						$out .= "Authorization: Basic " . base64_encode("$url_parts[user]:$url_parts[pass]") . "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   203
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   204
					foreach ($headers as $key => $value)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   205
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   206
						$out .= "$key: $value\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   207
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   208
					$out .= "Connection: Close\r\n\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   209
					fwrite($fp, $out);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   210
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   211
					$info = stream_get_meta_data($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   212
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
					$this->headers = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   214
					while (!$info['eof'] && !$info['timed_out'])
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
						$this->headers .= fread($fp, 1160);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
						$info = stream_get_meta_data($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   218
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
					if (!$info['timed_out'])
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   220
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   221
						$parser = new SimplePie_HTTP_Parser($this->headers);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   222
						if ($parser->parse())
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   223
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   224
							$this->headers = $parser->headers;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   225
							$this->body = $parser->body;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   226
							$this->status_code = $parser->status_code;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   227
							if ((in_array($this->status_code, array(300, 301, 302, 303, 307)) || $this->status_code > 307 && $this->status_code < 400) && isset($this->headers['location']) && $this->redirects < $redirects)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   228
							{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
								$this->redirects++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   230
								$location = SimplePie_Misc::absolutize_url($this->headers['location'], $url);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   231
								$previousStatusCode = $this->status_code;
18
be944660c56a Site enmi version 09/2022
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   232
								$this->__construct($location, $timeout, $redirects, $headers, $useragent, $force_fsockopen, $curl_options);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   233
								$this->permanent_url = ($previousStatusCode == 301) ? $location : $url;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   234
								return;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   235
							}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   236
							if (isset($this->headers['content-encoding']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   237
							{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   238
								// Hey, we act dumb elsewhere, so let's do that here too
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   239
								switch (strtolower(trim($this->headers['content-encoding'], "\x09\x0A\x0D\x20")))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   240
								{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   241
									case 'gzip':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   242
									case 'x-gzip':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   243
										$decoder = new SimplePie_gzdecode($this->body);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   244
										if (!$decoder->parse())
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
										{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
											$this->error = 'Unable to decode HTTP "gzip" stream';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
											$this->success = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   248
										}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   249
										else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
										{
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   251
											$this->body = trim($decoder->data);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
										}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
										break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
									case 'deflate':
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
										if (($decompressed = gzinflate($this->body)) !== false)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
										{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
											$this->body = $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   259
										}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
										else if (($decompressed = gzuncompress($this->body)) !== false)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   261
										{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   262
											$this->body = $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   263
										}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   264
										else if (function_exists('gzdecode') && ($decompressed = gzdecode($this->body)) !== false)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
										{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
											$this->body = $decompressed;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
										}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
										else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
										{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
											$this->error = 'Unable to decode HTTP "deflate" stream';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
											$this->success = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
										}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
										break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   275
									default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   276
										$this->error = 'Unknown content coding';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   277
										$this->success = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
								}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
							}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
					else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
						$this->error = 'fsocket timed out';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
						$this->success = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
					fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
			$this->method = SIMPLEPIE_FILE_SOURCE_LOCAL | SIMPLEPIE_FILE_SOURCE_FILE_GET_CONTENTS;
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   294
			if (empty($url) || !($this->body = trim(file_get_contents($url))))
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
				$this->error = 'file_get_contents could not read the file';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
				$this->success = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
}