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