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