wp/wp-includes/rss.php
author ymh <ymh.work@gmail.com>
Mon, 08 Sep 2025 19:44:41 +0200
changeset 23 417f20492bf7
parent 22 8c2e4d02f4ef
permissions -rw-r--r--
Update Docker configuration and plugin versions - Upgrade MariaDB from 10.6 to 11 with auto-upgrade support - Add WordPress debug environment variable to FPM container - Update PHP-FPM Dockerfile base image - Update Include Mastodon Feed plugin with bug fixes and improvements - Update Portfolio plugin (v2.58) with latest translations and demo data enhancements - Remove old README.md from Mastodon Feed plugin 🤖 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
 * MagpieRSS: a simple RSS integration tool
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 compiled file for RSS syndication
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     6
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
 * @author Kellan Elliott-McCrea <kellan@protest.net>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     8
 * @version 0.51
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
 * @license GPL
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
 * @package External
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
 * @subpackage MagpieRSS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
 * @deprecated 3.0.0 Use SimplePie instead.
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
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
 * Deprecated. Use SimplePie (class-simplepie.php) instead.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
 */
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    19
_deprecated_file( basename( __FILE__ ), '3.0.0', WPINC . '/class-simplepie.php' );
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
 * Fires before MagpieRSS is loaded, to optionally replace it.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
 * @since 2.3.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
 * @deprecated 3.0.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
do_action( 'load_feed_engine' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
/** RSS feed constant. */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    30
define('RSS', 'RSS');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
define('ATOM', 'Atom');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
define('MAGPIE_USER_AGENT', 'WordPress/' . $GLOBALS['wp_version']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
class MagpieRSS {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
	var $parser;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    36
	var $current_item	= array();	// item currently being parsed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
	var $items			= array();	// collection of parsed items
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    38
	var $channel		= array();	// hash of channel fields
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
	var $textinput		= array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
	var $image			= array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
	var $feed_type;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
	var $feed_version;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
	// parser variables
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
	var $stack				= array(); // parser stack
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
	var $inchannel			= false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
	var $initem 			= false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
	var $incontent			= false; // if in Atom <content mode="xml"> field
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
	var $intextinput		= false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
	var $inimage 			= false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
	var $current_field		= '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
	var $current_namespace	= false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
	//var $ERROR = "";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    56
	var $_CONTENT_CONSTRUCTS = array('content', 'summary', 'info', 'title', 'tagline', 'copyright');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    58
	/**
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    59
	 * PHP5 constructor.
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    60
	 */
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    61
	function __construct( $source ) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    63
		# Check if PHP xml isn't compiled
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
		#
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    65
		if ( ! function_exists('xml_parser_create') ) {
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
    66
			wp_trigger_error( '', "PHP's XML extension is not available. Please contact your hosting provider to enable PHP's XML extension." );
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
    67
			return;
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    68
		}
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
    70
		$parser = xml_parser_create();
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
		$this->parser = $parser;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    74
		# pass in parser, and a reference to this object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
		# set up handlers
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
		#
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    77
		xml_set_element_handler($this->parser,
22
8c2e4d02f4ef Update WordPress to latest version (6.7)
ymh <ymh.work@gmail.com>
parents: 21
diff changeset
    78
				array( $this, 'feed_start_element' ), array( $this, 'feed_end_element' ) );
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    79
22
8c2e4d02f4ef Update WordPress to latest version (6.7)
ymh <ymh.work@gmail.com>
parents: 21
diff changeset
    80
		xml_set_character_data_handler( $this->parser, array( $this, 'feed_cdata' ) );
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    81
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    82
		$status = xml_parse( $this->parser, $source );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    83
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    84
		if (! $status ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    85
			$errorcode = xml_get_error_code( $this->parser );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    86
			if ( $errorcode != XML_ERROR_NONE ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    87
				$xml_error = xml_error_string( $errorcode );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    88
				$error_line = xml_get_current_line_number($this->parser);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    89
				$error_col = xml_get_current_column_number($this->parser);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    90
				$errormsg = "$xml_error at line $error_line, column $error_col";
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->error( $errormsg );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
		xml_parser_free( $this->parser );
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 7
diff changeset
    97
		unset( $this->parser );
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    98
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    99
		$this->normalize();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   102
	/**
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   103
	 * PHP4 constructor.
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   104
	 */
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   105
	public function MagpieRSS( $source ) {
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   106
		self::__construct( $source );
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   107
	}
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   108
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   109
	function feed_start_element($p, $element, &$attrs) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
		$el = $element = strtolower($element);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
		$attrs = array_change_key_case($attrs, CASE_LOWER);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   112
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   113
		// check for a namespace, and split if found
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   114
		$ns	= false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
		if ( strpos( $element, ':' ) ) {
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   116
			list($ns, $el) = explode( ':', $element, 2);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
		if ( $ns and $ns != 'rdf' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
			$this->current_namespace = $ns;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   120
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   122
		# if feed type isn't set, then this is first element of feed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
		# identify feed from root element
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
		#
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
		if (!isset($this->feed_type) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
			if ( $el == 'rdf' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
				$this->feed_type = RSS;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
				$this->feed_version = '1.0';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   130
			elseif ( $el == 'rss' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   131
				$this->feed_type = RSS;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   132
				$this->feed_version = $attrs['version'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   133
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
			elseif ( $el == 'feed' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   135
				$this->feed_type = ATOM;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   136
				$this->feed_version = $attrs['version'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
				$this->inchannel = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
			return;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   140
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   142
		if ( $el == 'channel' )
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->inchannel = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   145
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   146
		elseif ($el == 'item' or $el == 'entry' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   147
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   148
			$this->initem = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   149
			if ( isset($attrs['rdf:about']) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   150
				$this->current_item['about'] = $attrs['rdf:about'];
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
		// if we're in the default namespace of an RSS feed,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   155
		//  record textinput or image fields
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   156
		elseif (
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   157
			$this->feed_type == RSS and
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   158
			$this->current_namespace == '' and
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   159
			$el == 'textinput' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
			$this->intextinput = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
		elseif (
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
			$this->feed_type == RSS and
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
			$this->current_namespace == '' and
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
			$el == 'image' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
			$this->inimage = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
		# handle atom content constructs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
		elseif ( $this->feed_type == ATOM and in_array($el, $this->_CONTENT_CONSTRUCTS) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
			// avoid clashing w/ RSS mod_content
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
			if ($el == 'content' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
				$el = 'atom_content';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   179
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   180
			$this->incontent = $el;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   181
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   182
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   183
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
		// if inside an Atom content construct (e.g. content or summary) field treat tags as text
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   185
		elseif ($this->feed_type == ATOM and $this->incontent )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
			// if tags are inlined, then flatten
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   188
			$attrs_str = join(' ',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   189
					array_map(array('MagpieRSS', 'map_attrs'),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   190
					array_keys($attrs),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   191
					array_values($attrs) ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   192
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   193
			$this->append_content( "<$element $attrs_str>"  );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   194
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   195
			array_unshift( $this->stack, $el );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   196
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   197
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   198
		// Atom support many links per containing element.
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   199
		// Magpie treats link elements of type rel='alternate'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   200
		// as being equivalent to RSS's simple link element.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   201
		//
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   202
		elseif ($this->feed_type == ATOM and $el == 'link' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   203
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   204
			if ( isset($attrs['rel']) and $attrs['rel'] == 'alternate' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   205
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   206
				$link_el = 'link';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   207
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   208
			else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   209
				$link_el = 'link_' . $attrs['rel'];
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
			$this->append($link_el, $attrs['href']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   214
		// set stack[0] to current element
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
			array_unshift($this->stack, $el);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   218
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   220
	function feed_cdata ($p, $text) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   221
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   222
		if ($this->feed_type == ATOM and $this->incontent)
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->append_content( $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   225
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   226
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   227
			$current_el = join('_', array_reverse($this->stack));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   228
			$this->append($current_el, $text);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   230
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   231
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   232
	function feed_end_element ($p, $el) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   233
		$el = strtolower($el);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   234
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   235
		if ( $el == 'item' or $el == 'entry' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   236
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   237
			$this->items[] = $this->current_item;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   238
			$this->current_item = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   239
			$this->initem = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   240
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   241
		elseif ($this->feed_type == RSS and $this->current_namespace == '' and $el == 'textinput' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   242
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   243
			$this->intextinput = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   244
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
		elseif ($this->feed_type == RSS and $this->current_namespace == '' and $el == 'image' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
			$this->inimage = 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
		elseif ($this->feed_type == ATOM and in_array($el, $this->_CONTENT_CONSTRUCTS) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   251
			$this->incontent = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
		elseif ($el == 'channel' or $el == 'feed' )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
			$this->inchannel = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
		elseif ($this->feed_type == ATOM and $this->incontent  ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
			// balance tags properly
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   259
			// note: This may not actually be necessary
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
			if ( $this->stack[0] == $el )
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->append_content("</$el>");
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 {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
				$this->append_content("<$el />");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
			array_shift( $this->stack );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
			array_shift( $this->stack );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
		$this->current_namespace = false;
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
	function concat (&$str1, $str2="") {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
		if (!isset($str1) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
			$str1="";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
		$str1 .= $str2;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
	function append_content($text) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
		if ( $this->initem ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
			$this->concat( $this->current_item[ $this->incontent ], $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
		elseif ( $this->inchannel ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
			$this->concat( $this->channel[ $this->incontent ], $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
	// smart append - field and namespace aware
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   294
	function append($el, $text) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
		if (!$el) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
			return;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
		if ( $this->current_namespace )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
			if ( $this->initem ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
				$this->concat(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   302
					$this->current_item[ $this->current_namespace ][ $el ], $text);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   303
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   304
			elseif ($this->inchannel) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   305
				$this->concat(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   306
					$this->channel[ $this->current_namespace][ $el ], $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   307
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   308
			elseif ($this->intextinput) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   309
				$this->concat(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   310
					$this->textinput[ $this->current_namespace][ $el ], $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   311
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   312
			elseif ($this->inimage) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   313
				$this->concat(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   314
					$this->image[ $this->current_namespace ][ $el ], $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   315
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   316
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   317
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   318
			if ( $this->initem ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   319
				$this->concat(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   320
					$this->current_item[ $el ], $text);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   321
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   322
			elseif ($this->intextinput) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   323
				$this->concat(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   324
					$this->textinput[ $el ], $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   325
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   326
			elseif ($this->inimage) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   327
				$this->concat(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   328
					$this->image[ $el ], $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   329
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   330
			elseif ($this->inchannel) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   331
				$this->concat(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   332
					$this->channel[ $el ], $text );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   333
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   334
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   335
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   336
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   337
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   338
	function normalize () {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   339
		// if atom populate rss fields
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   340
		if ( $this->is_atom() ) {
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   341
			$this->channel['description'] = $this->channel['tagline'];
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   342
			for ( $i = 0; $i < count($this->items); $i++) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   343
				$item = $this->items[$i];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   344
				if ( isset($item['summary']) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   345
					$item['description'] = $item['summary'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   346
				if ( isset($item['atom_content']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   347
					$item['content']['encoded'] = $item['atom_content'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   348
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   349
				$this->items[$i] = $item;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   350
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   351
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   352
		elseif ( $this->is_rss() ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   353
			$this->channel['tagline'] = $this->channel['description'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   354
			for ( $i = 0; $i < count($this->items); $i++) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   355
				$item = $this->items[$i];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   356
				if ( isset($item['description']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   357
					$item['summary'] = $item['description'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   358
				if ( isset($item['content']['encoded'] ) )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   359
					$item['atom_content'] = $item['content']['encoded'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   360
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   361
				$this->items[$i] = $item;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   362
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   363
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   364
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   365
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   366
	function is_rss () {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   367
		if ( $this->feed_type == RSS ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   368
			return $this->feed_version;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   369
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   370
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   371
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   372
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   373
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   374
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   375
	function is_atom() {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   376
		if ( $this->feed_type == ATOM ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   377
			return $this->feed_version;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   378
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   379
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   380
			return false;
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
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   384
	function map_attrs($k, $v) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   385
		return "$k=\"$v\"";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   386
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   387
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   388
	function error( $errormsg, $lvl = E_USER_WARNING ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   389
		if ( MAGPIE_DEBUG ) {
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   390
			wp_trigger_error('', $errormsg, $lvl);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   391
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   392
			error_log( $errormsg, 0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   393
		}
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
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   397
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   398
if ( !function_exists('fetch_rss') ) :
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   399
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   400
 * Build Magpie object based on RSS from URL.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   401
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   402
 * @since 1.5.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   403
 * @package External
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   404
 * @subpackage MagpieRSS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   405
 *
18
be944660c56a Site enmi version 09/2022
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   406
 * @param string $url URL to retrieve feed.
be944660c56a Site enmi version 09/2022
ymh <ymh.work@gmail.com>
parents: 16
diff changeset
   407
 * @return MagpieRSS|false MagpieRSS object on success, false on failure.
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   408
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   409
function fetch_rss ($url) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   410
	// initialize constants
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   411
	init();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   412
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   413
	if ( !isset($url) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   414
		// error("fetch_rss called without a url");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   415
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   416
	}
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 cache is disabled
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   419
	if ( !MAGPIE_CACHE_ON ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   420
		// fetch file, and parse it
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   421
		$resp = _fetch_remote_file( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   422
		if ( is_success( $resp->status ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   423
			return _response_to_rss( $resp );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   424
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   425
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   426
			// error("Failed to fetch $url and cache is off");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   427
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   428
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   429
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   430
	// else cache is ON
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   431
	else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   432
		// Flow
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   433
		// 1. check cache
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   434
		// 2. if there is a hit, make sure it's fresh
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   435
		// 3. if cached obj fails freshness check, fetch remote
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   436
		// 4. if remote fails, return stale object, or error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   437
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   438
		$cache = new RSSCache( MAGPIE_CACHE_DIR, MAGPIE_CACHE_AGE );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   439
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   440
		if (MAGPIE_DEBUG and $cache->ERROR) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   441
			debug($cache->ERROR, E_USER_WARNING);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   442
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   443
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   444
		$cache_status 	 = 0;		// response of check_cache
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   445
		$request_headers = array(); // HTTP headers to send with fetch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   446
		$rss 			 = 0;		// parsed RSS object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   447
		$errormsg		 = 0;		// errors, if any
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   448
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   449
		if (!$cache->ERROR) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   450
			// return cache HIT, MISS, or STALE
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   451
			$cache_status = $cache->check_cache( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   452
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   453
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   454
		// if object cached, and cache is fresh, return cached obj
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   455
		if ( $cache_status == 'HIT' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   456
			$rss = $cache->get( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   457
			if ( isset($rss) and $rss ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   458
				$rss->from_cache = 1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   459
				if ( MAGPIE_DEBUG > 1) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   460
				debug("MagpieRSS: Cache HIT", E_USER_NOTICE);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   461
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   462
				return $rss;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   463
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   464
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   465
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   466
		// else attempt a conditional get
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   467
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   468
		// set up headers
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   469
		if ( $cache_status == 'STALE' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   470
			$rss = $cache->get( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   471
			if ( isset($rss->etag) and $rss->last_modified ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   472
				$request_headers['If-None-Match'] = $rss->etag;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   473
				$request_headers['If-Last-Modified'] = $rss->last_modified;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   474
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   475
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   476
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   477
		$resp = _fetch_remote_file( $url, $request_headers );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   478
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   479
		if (isset($resp) and $resp) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   480
			if ($resp->status == '304' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   481
				// we have the most current copy
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   482
				if ( MAGPIE_DEBUG > 1) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   483
					debug("Got 304 for $url");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   484
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   485
				// reset cache on 304 (at minutillo insistent prodding)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   486
				$cache->set($url, $rss);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   487
				return $rss;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   488
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   489
			elseif ( is_success( $resp->status ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   490
				$rss = _response_to_rss( $resp );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   491
				if ( $rss ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   492
					if (MAGPIE_DEBUG > 1) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   493
						debug("Fetch successful");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   494
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   495
					// add object to cache
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   496
					$cache->set( $url, $rss );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   497
					return $rss;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   498
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   499
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   500
			else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   501
				$errormsg = "Failed to fetch $url. ";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   502
				if ( $resp->error ) {
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   503
					# compensate for Snoopy's annoying habit to tacking
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   504
					# on '\n'
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   505
					$http_error = substr($resp->error, 0, -2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   506
					$errormsg .= "(HTTP Error: $http_error)";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   507
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   508
				else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   509
					$errormsg .=  "(HTTP Response: " . $resp->response_code .')';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   510
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   511
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   512
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   513
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   514
			$errormsg = "Unable to retrieve RSS file for unknown reasons.";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   515
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   516
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   517
		// else fetch failed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   518
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   519
		// attempt to return cached object
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   520
		if ($rss) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   521
			if ( MAGPIE_DEBUG ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   522
				debug("Returning STALE object for $url");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   523
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   524
			return $rss;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   525
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   526
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   527
		// else we totally failed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   528
		// error( $errormsg );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   529
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   530
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   531
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   532
	} // end if ( !MAGPIE_CACHE_ON ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   533
} // end fetch_rss()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   534
endif;
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
 * Retrieve URL headers and content using WP HTTP Request API.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   538
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   539
 * @since 1.5.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   540
 * @package External
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   541
 * @subpackage MagpieRSS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   542
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   543
 * @param string $url URL to retrieve
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   544
 * @param array $headers Optional. Headers to send to the URL. Default empty string.
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   545
 * @return Snoopy style response
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   546
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   547
function _fetch_remote_file($url, $headers = "" ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   548
	$resp = wp_safe_remote_request( $url, array( 'headers' => $headers, 'timeout' => MAGPIE_FETCH_TIME_OUT ) );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   549
	if ( is_wp_error($resp) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   550
		$error = array_shift($resp->errors);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   551
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   552
		$resp = new stdClass;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   553
		$resp->status = 500;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   554
		$resp->response_code = 500;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   555
		$resp->error = $error[0] . "\n"; //\n = Snoopy compatibility
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   556
		return $resp;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   557
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   558
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   559
	// Snoopy returns headers unprocessed.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   560
	// Also note, WP_HTTP lowercases all keys, Snoopy did not.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   561
	$return_headers = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   562
	foreach ( wp_remote_retrieve_headers( $resp ) as $key => $value ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   563
		if ( !is_array($value) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   564
			$return_headers[] = "$key: $value";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   565
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   566
			foreach ( $value as $v )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   567
				$return_headers[] = "$key: $v";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   568
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   569
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   570
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   571
	$response = new stdClass;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   572
	$response->status = wp_remote_retrieve_response_code( $resp );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   573
	$response->response_code = wp_remote_retrieve_response_code( $resp );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   574
	$response->headers = $return_headers;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   575
	$response->results = wp_remote_retrieve_body( $resp );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   576
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   577
	return $response;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   578
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   579
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   580
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   581
 * Retrieve
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   582
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   583
 * @since 1.5.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   584
 * @package External
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   585
 * @subpackage MagpieRSS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   586
 *
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   587
 * @param array $resp
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   588
 * @return MagpieRSS|bool
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   589
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   590
function _response_to_rss ($resp) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   591
	$rss = new MagpieRSS( $resp->results );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   592
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   593
	// if RSS parsed successfully
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   594
	if ( $rss && (!isset($rss->ERROR) || !$rss->ERROR) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   595
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   596
		// find Etag, and Last-Modified
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   597
		foreach ( (array) $resp->headers as $h) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   598
			// 2003-03-02 - Nicola Asuni (www.tecnick.com) - fixed bug "Undefined offset: 1"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   599
			if (strpos($h, ": ")) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   600
				list($field, $val) = explode(": ", $h, 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   601
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   602
			else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   603
				$field = $h;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   604
				$val = "";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   605
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   606
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   607
			if ( $field == 'etag' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   608
				$rss->etag = $val;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   609
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   610
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   611
			if ( $field == 'last-modified' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   612
				$rss->last_modified = $val;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   613
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   614
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   615
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   616
		return $rss;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   617
	} // else construct error message
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   618
	else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   619
		$errormsg = "Failed to parse RSS file.";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   620
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   621
		if ($rss) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   622
			$errormsg .= " (" . $rss->ERROR . ")";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   623
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   624
		// error($errormsg);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   625
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   626
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   627
	} // end if ($rss and !$rss->error)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   628
}
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
 * Set up constants with default values, unless user overrides.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   632
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   633
 * @since 1.5.0
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   634
 * 
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   635
 * @global string $wp_version The WordPress version string.
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   636
 * 
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   637
 * @package External
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   638
 * @subpackage MagpieRSS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   639
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   640
function init () {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   641
	if ( defined('MAGPIE_INITALIZED') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   642
		return;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   643
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   644
	else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   645
		define('MAGPIE_INITALIZED', 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   646
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   647
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   648
	if ( !defined('MAGPIE_CACHE_ON') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   649
		define('MAGPIE_CACHE_ON', 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   650
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   651
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   652
	if ( !defined('MAGPIE_CACHE_DIR') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   653
		define('MAGPIE_CACHE_DIR', './cache');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   654
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   655
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   656
	if ( !defined('MAGPIE_CACHE_AGE') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   657
		define('MAGPIE_CACHE_AGE', 60*60); // one hour
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   658
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   659
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   660
	if ( !defined('MAGPIE_CACHE_FRESH_ONLY') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   661
		define('MAGPIE_CACHE_FRESH_ONLY', 0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   662
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   663
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   664
		if ( !defined('MAGPIE_DEBUG') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   665
		define('MAGPIE_DEBUG', 0);
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
	if ( !defined('MAGPIE_USER_AGENT') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   669
		$ua = 'WordPress/' . $GLOBALS['wp_version'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   670
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   671
		if ( MAGPIE_CACHE_ON ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   672
			$ua = $ua . ')';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   673
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   674
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   675
			$ua = $ua . '; No cache)';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   676
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   677
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   678
		define('MAGPIE_USER_AGENT', $ua);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   679
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   680
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   681
	if ( !defined('MAGPIE_FETCH_TIME_OUT') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   682
		define('MAGPIE_FETCH_TIME_OUT', 2);	// 2 second timeout
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   683
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   684
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   685
	// use gzip encoding to fetch rss files if supported?
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   686
	if ( !defined('MAGPIE_USE_GZIP') ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   687
		define('MAGPIE_USE_GZIP', true);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   688
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   689
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   690
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   691
function is_info ($sc) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   692
	return $sc >= 100 && $sc < 200;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   693
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   694
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   695
function is_success ($sc) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   696
	return $sc >= 200 && $sc < 300;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   697
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   698
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   699
function is_redirect ($sc) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   700
	return $sc >= 300 && $sc < 400;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   701
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   702
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   703
function is_error ($sc) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   704
	return $sc >= 400 && $sc < 600;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   705
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   706
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   707
function is_client_error ($sc) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   708
	return $sc >= 400 && $sc < 500;
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
function is_server_error ($sc) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   712
	return $sc >= 500 && $sc < 600;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   713
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   714
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   715
class RSSCache {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   716
	var $BASE_CACHE;	// where the cache files are stored
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   717
	var $MAX_AGE	= 43200;  		// when are files stale, default twelve hours
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   718
	var $ERROR 		= '';			// accumulate error messages
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   719
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   720
	/**
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   721
	 * PHP5 constructor.
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   722
	 */
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   723
	function __construct( $base = '', $age = '' ) {
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   724
		$this->BASE_CACHE = WP_CONTENT_DIR . '/cache';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   725
		if ( $base ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   726
			$this->BASE_CACHE = $base;
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 ( $age ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   729
			$this->MAX_AGE = $age;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   730
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   731
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   732
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   733
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   734
	/**
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   735
	 * PHP4 constructor.
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   736
	 */
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   737
	public function RSSCache( $base = '', $age = '' ) {
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   738
		self::__construct( $base, $age );
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   739
	}
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   740
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   741
/*=======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   742
	Function:	set
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   743
	Purpose:	add an item to the cache, keyed on url
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   744
	Input:		url from which the rss file was fetched
5
5e2f62d02dcd upgrade wordpress + plugins
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   745
	Output:		true on success
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   746
\*=======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   747
	function set ($url, $rss) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   748
		$cache_option = 'rss_' . $this->file_name( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   749
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   750
		set_transient($cache_option, $rss, $this->MAX_AGE);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   751
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   752
		return $cache_option;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   753
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   754
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   755
/*=======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   756
	Function:	get
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   757
	Purpose:	fetch an item from the cache
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   758
	Input:		url from which the rss file was fetched
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   759
	Output:		cached object on HIT, false on MISS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   760
\*=======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   761
	function get ($url) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   762
		$this->ERROR = "";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   763
		$cache_option = 'rss_' . $this->file_name( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   764
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   765
		if ( ! $rss = get_transient( $cache_option ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   766
			$this->debug(
19
3d72ae0968f4 upgrade wordpress to 6.0.2
ymh <ymh.work@gmail.com>
parents: 18
diff changeset
   767
				"Cache does not contain: $url (cache option: $cache_option)"
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   768
			);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   769
			return 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   770
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   771
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   772
		return $rss;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   773
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   774
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   775
/*=======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   776
	Function:	check_cache
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   777
	Purpose:	check a url for membership in the cache
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   778
				and whether the object is older then MAX_AGE (ie. STALE)
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   779
	Input:		url from which the rss file was fetched
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   780
	Output:		cached object on HIT, false on MISS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   781
\*=======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   782
	function check_cache ( $url ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   783
		$this->ERROR = "";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   784
		$cache_option = 'rss_' . $this->file_name( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   785
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   786
		if ( get_transient($cache_option) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   787
			// object exists and is current
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   788
				return 'HIT';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   789
		} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   790
			// object does not exist
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   791
			return 'MISS';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   792
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   793
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   794
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   795
/*=======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   796
	Function:	serialize
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   797
\*=======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   798
	function serialize ( $rss ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   799
		return serialize( $rss );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   800
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   801
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   802
/*=======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   803
	Function:	unserialize
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   804
\*=======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   805
	function unserialize ( $data ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   806
		return unserialize( $data );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   807
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   808
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   809
/*=======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   810
	Function:	file_name
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   811
	Purpose:	map url to location in cache
7
cf61fcea0001 resynchronize code repo with production
ymh <ymh.work@gmail.com>
parents: 5
diff changeset
   812
	Input:		url from which the rss file was fetched
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   813
	Output:		a file name
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   814
\*=======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   815
	function file_name ($url) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   816
		return md5( $url );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   817
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   818
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   819
/*=======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   820
	Function:	error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   821
	Purpose:	register error
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   822
\*=======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   823
	function error ($errormsg, $lvl=E_USER_WARNING) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   824
		$this->ERROR = $errormsg;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   825
		if ( MAGPIE_DEBUG ) {
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   826
			wp_trigger_error( '', $errormsg, $lvl);
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   827
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   828
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   829
			error_log( $errormsg, 0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   830
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   831
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   832
			function debug ($debugmsg, $lvl=E_USER_NOTICE) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   833
		if ( MAGPIE_DEBUG ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   834
			$this->error("MagpieRSS [debug] $debugmsg", $lvl);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   835
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   836
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   837
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   838
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   839
if ( !function_exists('parse_w3cdtf') ) :
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   840
function parse_w3cdtf ( $date_str ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   841
21
48c4eec2b7e6 Add CLAUDE.md documentation and sync WordPress core files
ymh <ymh.work@gmail.com>
parents: 19
diff changeset
   842
	# regex to match W3C date/time formats
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   843
	$pat = "/(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2})(:(\d{2}))?(?:([-+])(\d{2}):?(\d{2})|(Z))?/";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   844
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   845
	if ( preg_match( $pat, $date_str, $match ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   846
		list( $year, $month, $day, $hours, $minutes, $seconds) =
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   847
			array( $match[1], $match[2], $match[3], $match[4], $match[5], $match[7]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   848
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   849
		# calc epoch for current date assuming GMT
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   850
		$epoch = gmmktime( $hours, $minutes, $seconds, $month, $day, $year);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   851
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   852
		$offset = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   853
		if ( $match[11] == 'Z' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   854
			# zulu time, aka GMT
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   855
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   856
		else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   857
			list( $tz_mod, $tz_hour, $tz_min ) =
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   858
				array( $match[8], $match[9], $match[10]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   859
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   860
			# zero out the variables
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   861
			if ( ! $tz_hour ) { $tz_hour = 0; }
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   862
			if ( ! $tz_min ) { $tz_min = 0; }
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   863
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   864
			$offset_secs = (($tz_hour*60)+$tz_min)*60;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   865
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   866
			# is timezone ahead of GMT?  then subtract offset
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   867
			#
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   868
			if ( $tz_mod == '+' ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   869
				$offset_secs = $offset_secs * -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   870
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   871
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   872
			$offset = $offset_secs;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   873
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   874
		$epoch = $epoch + $offset;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   875
		return $epoch;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   876
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   877
	else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   878
		return -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   879
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   880
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   881
endif;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   882
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   883
if ( !function_exists('wp_rss') ) :
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   884
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   885
 * Display all RSS items in a HTML ordered list.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   886
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   887
 * @since 1.5.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   888
 * @package External
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   889
 * @subpackage MagpieRSS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   890
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   891
 * @param string $url URL of feed to display. Will not auto sense feed URL.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   892
 * @param int $num_items Optional. Number of items to display, default is all.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   893
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   894
function wp_rss( $url, $num_items = -1 ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   895
	if ( $rss = fetch_rss( $url ) ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   896
		echo '<ul>';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   897
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   898
		if ( $num_items !== -1 ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   899
			$rss->items = array_slice( $rss->items, 0, $num_items );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   900
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   901
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   902
		foreach ( (array) $rss->items as $item ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   903
			printf(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   904
				'<li><a href="%1$s" title="%2$s">%3$s</a></li>',
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   905
				esc_url( $item['link'] ),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   906
				esc_attr( strip_tags( $item['description'] ) ),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   907
				esc_html( $item['title'] )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   908
			);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   909
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   910
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   911
		echo '</ul>';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   912
	} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   913
		_e( 'An error has occurred, which probably means the feed is down. Try again later.' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   914
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   915
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   916
endif;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   917
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   918
if ( !function_exists('get_rss') ) :
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   919
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   920
 * Display RSS items in HTML list items.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   921
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   922
 * You have to specify which HTML list you want, either ordered or unordered
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   923
 * before using the function. You also have to specify how many items you wish
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   924
 * to display. You can't display all of them like you can with wp_rss()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   925
 * function.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   926
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   927
 * @since 1.5.0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   928
 * @package External
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   929
 * @subpackage MagpieRSS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   930
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   931
 * @param string $url URL of feed to display. Will not auto sense feed URL.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   932
 * @param int $num_items Optional. Number of items to display, default is all.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   933
 * @return bool False on failure.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   934
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   935
function get_rss ($url, $num_items = 5) { // Like get posts, but for RSS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   936
	$rss = fetch_rss($url);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   937
	if ( $rss ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   938
		$rss->items = array_slice($rss->items, 0, $num_items);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   939
		foreach ( (array) $rss->items as $item ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   940
			echo "<li>\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   941
			echo "<a href='$item[link]' title='$item[description]'>";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   942
			echo esc_html($item['title']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   943
			echo "</a><br />\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   944
			echo "</li>\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   945
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   946
	} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   947
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   948
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   949
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   950
endif;