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