wp/wp-includes/SimplePie/Parser.php
author ymh <ymh.work@gmail.com>
Tue, 15 Dec 2020 15:52:01 +0100
changeset 17 34716fd837a4
parent 16 a86126ab1dd4
child 19 3d72ae0968f4
permissions -rw-r--r--
add ressources for a live page
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     1
<?php
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     2
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     3
 * SimplePie
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     5
 * A PHP-Based RSS and Atom Feed Framework.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     6
 * Takes the hard work out of managing a complete RSS/Atom solution.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
 *
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
     8
 * Copyright (c) 2004-2016, Ryan Parman, Sam Sneddon, Ryan McCue, and contributors
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
 * All rights reserved.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
 * Redistribution and use in source and binary forms, with or without modification, are
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
 * permitted provided that the following conditions are met:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    14
 * 	* Redistributions of source code must retain the above copyright notice, this list of
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    15
 * 	  conditions and the following disclaimer.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    16
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
 * 	* Redistributions in binary form must reproduce the above copyright notice, this list
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
 * 	  of conditions and the following disclaimer in the documentation and/or other materials
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    19
 * 	  provided with the distribution.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
 * 	* Neither the name of the SimplePie Team nor the names of its contributors may be used
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
 * 	  to endorse or promote products derived from this software without specific prior
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
 * 	  written permission.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
 * AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    30
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
 * POSSIBILITY OF SUCH DAMAGE.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
 * @package SimplePie
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    36
 * @copyright 2004-2016 Ryan Parman, Sam Sneddon, Ryan McCue
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
 * @author Ryan Parman
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    38
 * @author Sam Sneddon
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
 * @author Ryan McCue
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
 * @link http://simplepie.org/ SimplePie
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
 * @license http://www.opensource.org/licenses/bsd-license.php BSD License
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
 * Parses XML into something sane
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
 * This class can be overloaded with {@see SimplePie::set_parser_class()}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
 * @package SimplePie
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
 * @subpackage Parsing
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
class SimplePie_Parser
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
	var $error_code;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    56
	var $error_string;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
	var $current_line;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
	var $current_column;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    59
	var $current_byte;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    60
	var $separator = ' ';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    61
	var $namespace = array('');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
	var $element = array('');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
	var $xml_base = array('');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
	var $xml_base_explicit = array(false);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
	var $xml_lang = array('');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    66
	var $data = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
	var $datas = array(array());
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    68
	var $current_xhtml_construct = -1;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
	var $encoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
	protected $registry;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
	public function set_registry(SimplePie_Registry $registry)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    74
		$this->registry = $registry;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    77
	public function parse(&$data, $encoding, $url = '')
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    78
	{
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    79
		if (class_exists('DOMXpath') && function_exists('Mf2\parse')) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    80
			$doc = new DOMDocument();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    81
			@$doc->loadHTML($data);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    82
			$xpath = new DOMXpath($doc);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    83
			// Check for both h-feed and h-entry, as both a feed with no entries
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    84
			// and a list of entries without an h-feed wrapper are both valid.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    85
			$query = '//*[contains(concat(" ", @class, " "), " h-feed ") or '.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    86
				'contains(concat(" ", @class, " "), " h-entry ")]';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    87
			$result = $xpath->query($query);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    88
			if ($result->length !== 0) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    89
				return $this->parse_microformats($data, $url);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    90
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    91
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
    92
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
		// Use UTF-8 if we get passed US-ASCII, as every US-ASCII character is a UTF-8 character
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
		if (strtoupper($encoding) === 'US-ASCII')
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
			$this->encoding = 'UTF-8';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    97
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    98
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    99
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
			$this->encoding = $encoding;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   102
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   103
		// Strip BOM:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   104
		// UTF-32 Big Endian BOM
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   105
		if (substr($data, 0, 4) === "\x00\x00\xFE\xFF")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   106
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   107
			$data = substr($data, 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   108
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   109
		// UTF-32 Little Endian BOM
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
		elseif (substr($data, 0, 4) === "\xFF\xFE\x00\x00")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   112
			$data = substr($data, 4);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   113
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   114
		// UTF-16 Big Endian BOM
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
		elseif (substr($data, 0, 2) === "\xFE\xFF")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   116
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
			$data = substr($data, 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
		// UTF-16 Little Endian BOM
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   120
		elseif (substr($data, 0, 2) === "\xFF\xFE")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   122
			$data = substr($data, 2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
		// UTF-8 BOM
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
		elseif (substr($data, 0, 3) === "\xEF\xBB\xBF")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
			$data = substr($data, 3);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   130
		if (substr($data, 0, 5) === '<?xml' && strspn(substr($data, 5, 1), "\x09\x0A\x0D\x20") && ($pos = strpos($data, '?>')) !== false)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   131
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   132
			$declaration = $this->registry->create('XML_Declaration_Parser', array(substr($data, 5, $pos - 5)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   133
			if ($declaration->parse())
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   135
				$data = substr($data, $pos + 2);
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   136
				$data = '<?xml version="' . $declaration->version . '" encoding="' . $encoding . '" standalone="' . (($declaration->standalone) ? 'yes' : 'no') . '"?>' ."\n". $this->declare_html_entities() . $data;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   140
				$this->error_string = 'SimplePie bug! Please report this!';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
				return false;
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
		$return = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   146
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   147
		static $xml_is_sane = null;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   148
		if ($xml_is_sane === null)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   149
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   150
			$parser_check = xml_parser_create();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   151
			xml_parse_into_struct($parser_check, '<foo>&amp;</foo>', $values);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   152
			xml_parser_free($parser_check);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   153
			$xml_is_sane = isset($values[0]['value']);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   154
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   155
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   156
		// Create the parser
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   157
		if ($xml_is_sane)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   158
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   159
			$xml = xml_parser_create_ns($this->encoding, $this->separator);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
			xml_parser_set_option($xml, XML_OPTION_SKIP_WHITE, 1);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
			xml_parser_set_option($xml, XML_OPTION_CASE_FOLDING, 0);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
			xml_set_object($xml, $this);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
			xml_set_character_data_handler($xml, 'cdata');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
			xml_set_element_handler($xml, 'tag_open', 'tag_close');
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
			// Parse!
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
			if (!xml_parse($xml, $data, true))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
				$this->error_code = xml_get_error_code($xml);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
				$this->error_string = xml_error_string($this->error_code);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
				$return = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
			$this->current_line = xml_get_current_line_number($xml);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
			$this->current_column = xml_get_current_column_number($xml);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
			$this->current_byte = xml_get_current_byte_index($xml);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
			xml_parser_free($xml);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
			return $return;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
		}
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   179
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   180
		libxml_clear_errors();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   181
		$xml = new XMLReader();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   182
		$xml->xml($data);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   183
		while (@$xml->read())
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
		{
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   185
			switch ($xml->nodeType)
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   188
				case constant('XMLReader::END_ELEMENT'):
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   189
					if ($xml->namespaceURI !== '')
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   190
					{
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   191
						$tagName = $xml->namespaceURI . $this->separator . $xml->localName;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   192
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   193
					else
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   194
					{
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   195
						$tagName = $xml->localName;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   196
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   197
					$this->tag_close(null, $tagName);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   198
					break;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   199
				case constant('XMLReader::ELEMENT'):
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   200
					$empty = $xml->isEmptyElement;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   201
					if ($xml->namespaceURI !== '')
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   202
					{
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   203
						$tagName = $xml->namespaceURI . $this->separator . $xml->localName;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   204
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   205
					else
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   206
					{
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   207
						$tagName = $xml->localName;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   208
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   209
					$attributes = array();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   210
					while ($xml->moveToNextAttribute())
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   211
					{
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   212
						if ($xml->namespaceURI !== '')
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
						{
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   214
							$attrName = $xml->namespaceURI . $this->separator . $xml->localName;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
						else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
						{
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   218
							$attrName = $xml->localName;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
						}
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   220
						$attributes[$attrName] = $xml->value;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   221
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   222
					$this->tag_open(null, $tagName, $attributes);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   223
					if ($empty)
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   224
					{
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   225
						$this->tag_close(null, $tagName);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   226
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   227
					break;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   228
				case constant('XMLReader::TEXT'):
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   230
				case constant('XMLReader::CDATA'):
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   231
					$this->cdata(null, $xml->value);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   232
					break;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   233
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   234
		}
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   235
		if ($error = libxml_get_last_error())
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   236
		{
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   237
			$this->error_code = $error->code;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   238
			$this->error_string = $error->message;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   239
			$this->current_line = $error->line;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   240
			$this->current_column = $error->column;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   241
			return false;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   242
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   243
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   244
		return true;
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
	public function get_error_code()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   248
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   249
		return $this->error_code;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   251
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
	public function get_error_string()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
		return $this->error_string;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
	public function get_current_line()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   259
		return $this->current_line;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   261
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   262
	public function get_current_column()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   263
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   264
		return $this->current_column;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
	public function get_current_byte()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
		return $this->current_byte;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
	public function get_data()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
		return $this->data;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   275
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   276
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   277
	public function tag_open($parser, $tag, $attributes)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
		list($this->namespace[], $this->element[]) = $this->split_ns($tag);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
		$attribs = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
		foreach ($attributes as $name => $value)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
			list($attrib_namespace, $attribute) = $this->split_ns($name);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
			$attribs[$attrib_namespace][$attribute] = $value;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
		if (isset($attribs[SIMPLEPIE_NAMESPACE_XML]['base']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
			$base = $this->registry->call('Misc', 'absolutize_url', array($attribs[SIMPLEPIE_NAMESPACE_XML]['base'], end($this->xml_base)));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
			if ($base !== false)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
				$this->xml_base[] = $base;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   294
				$this->xml_base_explicit[] = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
			$this->xml_base[] = end($this->xml_base);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
			$this->xml_base_explicit[] = end($this->xml_base_explicit);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   302
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   303
		if (isset($attribs[SIMPLEPIE_NAMESPACE_XML]['lang']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   304
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   305
			$this->xml_lang[] = $attribs[SIMPLEPIE_NAMESPACE_XML]['lang'];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   306
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   307
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   308
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   309
			$this->xml_lang[] = end($this->xml_lang);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   310
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   311
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   312
		if ($this->current_xhtml_construct >= 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   313
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   314
			$this->current_xhtml_construct++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   315
			if (end($this->namespace) === SIMPLEPIE_NAMESPACE_XHTML)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   316
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   317
				$this->data['data'] .= '<' . end($this->element);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   318
				if (isset($attribs['']))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   319
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   320
					foreach ($attribs[''] as $name => $value)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   321
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   322
						$this->data['data'] .= ' ' . $name . '="' . htmlspecialchars($value, ENT_COMPAT, $this->encoding) . '"';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   323
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   324
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   325
				$this->data['data'] .= '>';
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
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   329
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   330
			$this->datas[] =& $this->data;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   331
			$this->data =& $this->data['child'][end($this->namespace)][end($this->element)][];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   332
			$this->data = array('data' => '', 'attribs' => $attribs, 'xml_base' => end($this->xml_base), 'xml_base_explicit' => end($this->xml_base_explicit), 'xml_lang' => end($this->xml_lang));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   333
			if ((end($this->namespace) === SIMPLEPIE_NAMESPACE_ATOM_03 && in_array(end($this->element), array('title', 'tagline', 'copyright', 'info', 'summary', 'content')) && isset($attribs['']['mode']) && $attribs['']['mode'] === 'xml')
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   334
			|| (end($this->namespace) === SIMPLEPIE_NAMESPACE_ATOM_10 && in_array(end($this->element), array('rights', 'subtitle', 'summary', 'info', 'title', 'content')) && isset($attribs['']['type']) && $attribs['']['type'] === 'xhtml')
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   335
			|| (end($this->namespace) === SIMPLEPIE_NAMESPACE_RSS_20 && in_array(end($this->element), array('title')))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   336
			|| (end($this->namespace) === SIMPLEPIE_NAMESPACE_RSS_090 && in_array(end($this->element), array('title')))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   337
			|| (end($this->namespace) === SIMPLEPIE_NAMESPACE_RSS_10 && in_array(end($this->element), array('title'))))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   338
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   339
				$this->current_xhtml_construct = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   340
			}
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
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   344
	public function cdata($parser, $cdata)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   345
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   346
		if ($this->current_xhtml_construct >= 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   347
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   348
			$this->data['data'] .= htmlspecialchars($cdata, ENT_QUOTES, $this->encoding);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   349
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   350
		else
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->data['data'] .= $cdata;
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
	public function tag_close($parser, $tag)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   357
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   358
		if ($this->current_xhtml_construct >= 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   359
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   360
			$this->current_xhtml_construct--;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   361
			if (end($this->namespace) === SIMPLEPIE_NAMESPACE_XHTML && !in_array(end($this->element), array('area', 'base', 'basefont', 'br', 'col', 'frame', 'hr', 'img', 'input', 'isindex', 'link', 'meta', 'param')))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   362
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   363
				$this->data['data'] .= '</' . end($this->element) . '>';
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
		if ($this->current_xhtml_construct === -1)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   367
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   368
			$this->data =& $this->datas[count($this->datas) - 1];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   369
			array_pop($this->datas);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   370
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   371
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   372
		array_pop($this->element);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   373
		array_pop($this->namespace);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   374
		array_pop($this->xml_base);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   375
		array_pop($this->xml_base_explicit);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   376
		array_pop($this->xml_lang);
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
	public function split_ns($string)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   380
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   381
		static $cache = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   382
		if (!isset($cache[$string]))
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 ($pos = strpos($string, $this->separator))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   385
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   386
				static $separator_length;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   387
				if (!$separator_length)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   388
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   389
					$separator_length = strlen($this->separator);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   390
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   391
				$namespace = substr($string, 0, $pos);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   392
				$local_name = substr($string, $pos + $separator_length);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   393
				if (strtolower($namespace) === SIMPLEPIE_NAMESPACE_ITUNES)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   394
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   395
					$namespace = SIMPLEPIE_NAMESPACE_ITUNES;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   396
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   397
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   398
				// Normalize the Media RSS namespaces
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   399
				if ($namespace === SIMPLEPIE_NAMESPACE_MEDIARSS_WRONG ||
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   400
					$namespace === SIMPLEPIE_NAMESPACE_MEDIARSS_WRONG2 ||
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   401
					$namespace === SIMPLEPIE_NAMESPACE_MEDIARSS_WRONG3 ||
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   402
					$namespace === SIMPLEPIE_NAMESPACE_MEDIARSS_WRONG4 ||
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   403
					$namespace === SIMPLEPIE_NAMESPACE_MEDIARSS_WRONG5 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   404
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   405
					$namespace = SIMPLEPIE_NAMESPACE_MEDIARSS;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   406
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   407
				$cache[$string] = array($namespace, $local_name);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   408
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   409
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   410
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   411
				$cache[$string] = array('', $string);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   412
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   413
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   414
		return $cache[$string];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   415
	}
16
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   416
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   417
	private function parse_hcard($data, $category = false) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   418
		$name = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   419
		$link = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   420
		// Check if h-card is set and pass that information on in the link.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   421
		if (isset($data['type']) && in_array('h-card', $data['type'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   422
			if (isset($data['properties']['name'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   423
				$name = $data['properties']['name'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   424
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   425
			if (isset($data['properties']['url'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   426
				$link = $data['properties']['url'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   427
				if ($name === '') {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   428
					$name = $link;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   429
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   430
				else {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   431
					// can't have commas in categories.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   432
					$name = str_replace(',', '', $name);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   433
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   434
				$person_tag = $category ? '<span class="person-tag"></span>' : '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   435
				return '<a class="h-card" href="'.$link.'">'.$person_tag.$name.'</a>';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   436
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   437
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   438
		return isset($data['value']) ? $data['value'] : '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   439
	}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   440
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   441
	private function parse_microformats(&$data, $url) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   442
		$feed_title = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   443
		$feed_author = NULL;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   444
		$author_cache = array();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   445
		$items = array();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   446
		$entries = array();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   447
		$mf = Mf2\parse($data, $url);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   448
		// First look for an h-feed.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   449
		$h_feed = array();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   450
		foreach ($mf['items'] as $mf_item) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   451
			if (in_array('h-feed', $mf_item['type'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   452
				$h_feed = $mf_item;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   453
				break;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   454
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   455
			// Also look for h-feed or h-entry in the children of each top level item.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   456
			if (!isset($mf_item['children'][0]['type'])) continue;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   457
			if (in_array('h-feed', $mf_item['children'][0]['type'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   458
				$h_feed = $mf_item['children'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   459
				// In this case the parent of the h-feed may be an h-card, so use it as
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   460
				// the feed_author.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   461
				if (in_array('h-card', $mf_item['type'])) $feed_author = $mf_item;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   462
				break;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   463
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   464
			else if (in_array('h-entry', $mf_item['children'][0]['type'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   465
				$entries = $mf_item['children'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   466
				// In this case the parent of the h-entry list may be an h-card, so use
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   467
				// it as the feed_author.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   468
				if (in_array('h-card', $mf_item['type'])) $feed_author = $mf_item;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   469
				break;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   470
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   471
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   472
		if (isset($h_feed['children'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   473
			$entries = $h_feed['children'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   474
			// Also set the feed title and store author from the h-feed if available.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   475
			if (isset($mf['items'][0]['properties']['name'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   476
				$feed_title = $mf['items'][0]['properties']['name'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   477
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   478
			if (isset($mf['items'][0]['properties']['author'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   479
				$feed_author = $mf['items'][0]['properties']['author'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   480
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   481
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   482
		else if (count($entries) === 0) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   483
			$entries = $mf['items'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   484
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   485
		for ($i = 0; $i < count($entries); $i++) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   486
			$entry = $entries[$i];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   487
			if (in_array('h-entry', $entry['type'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   488
				$item = array();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   489
				$title = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   490
				$description = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   491
				if (isset($entry['properties']['url'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   492
					$link = $entry['properties']['url'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   493
					if (isset($link['value'])) $link = $link['value'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   494
					$item['link'] = array(array('data' => $link));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   495
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   496
				if (isset($entry['properties']['uid'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   497
					$guid = $entry['properties']['uid'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   498
					if (isset($guid['value'])) $guid = $guid['value'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   499
					$item['guid'] = array(array('data' => $guid));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   500
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   501
				if (isset($entry['properties']['name'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   502
					$title = $entry['properties']['name'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   503
					if (isset($title['value'])) $title = $title['value'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   504
					$item['title'] = array(array('data' => $title));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   505
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   506
				if (isset($entry['properties']['author'][0]) || isset($feed_author)) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   507
					// author is a special case, it can be plain text or an h-card array.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   508
					// If it's plain text it can also be a url that should be followed to
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   509
					// get the actual h-card.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   510
					$author = isset($entry['properties']['author'][0]) ?
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   511
						$entry['properties']['author'][0] : $feed_author;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   512
					if (!is_string($author)) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   513
						$author = $this->parse_hcard($author);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   514
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   515
					else if (strpos($author, 'http') === 0) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   516
						if (isset($author_cache[$author])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   517
							$author = $author_cache[$author];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   518
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   519
						else {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   520
							$mf = Mf2\fetch($author);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   521
							foreach ($mf['items'] as $hcard) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   522
								// Only interested in an h-card by itself in this case.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   523
								if (!in_array('h-card', $hcard['type'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   524
									continue;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   525
								}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   526
								// It must have a url property matching what we fetched.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   527
								if (!isset($hcard['properties']['url']) ||
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   528
										!(in_array($author, $hcard['properties']['url']))) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   529
									continue;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   530
								}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   531
								// Save parse_hcard the trouble of finding the correct url.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   532
								$hcard['properties']['url'][0] = $author;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   533
								// Cache this h-card for the next h-entry to check.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   534
								$author_cache[$author] = $this->parse_hcard($hcard);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   535
								$author = $author_cache[$author];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   536
								break;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   537
							}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   538
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   539
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   540
					$item['author'] = array(array('data' => $author));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   541
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   542
				if (isset($entry['properties']['photo'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   543
					// If a photo is also in content, don't need to add it again here.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   544
					$content = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   545
					if (isset($entry['properties']['content'][0]['html'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   546
						$content = $entry['properties']['content'][0]['html'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   547
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   548
					$photo_list = array();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   549
					for ($j = 0; $j < count($entry['properties']['photo']); $j++) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   550
						$photo = $entry['properties']['photo'][$j];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   551
						if (!empty($photo) && strpos($content, $photo) === false) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   552
							$photo_list[] = $photo;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   553
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   554
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   555
					// When there's more than one photo show the first and use a lightbox.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   556
					// Need a permanent, unique name for the image set, but don't have
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   557
					// anything unique except for the content itself, so use that.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   558
					$count = count($photo_list);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   559
					if ($count > 1) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   560
						$image_set_id = preg_replace('/[[:^alnum:]]/', '', $photo_list[0]);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   561
						$description = '<p>';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   562
						for ($j = 0; $j < $count; $j++) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   563
							$hidden = $j === 0 ? '' : 'class="hidden" ';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   564
							$description .= '<a href="'.$photo_list[$j].'" '.$hidden.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   565
								'data-lightbox="image-set-'.$image_set_id.'">'.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   566
								'<img src="'.$photo_list[$j].'"></a>';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   567
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   568
						$description .= '<br><b>'.$count.' photos</b></p>';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   569
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   570
					else if ($count == 1) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   571
						$description = '<p><img src="'.$photo_list[0].'"></p>';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   572
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   573
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   574
				if (isset($entry['properties']['content'][0]['html'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   575
					// e-content['value'] is the same as p-name when they are on the same
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   576
					// element. Use this to replace title with a strip_tags version so
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   577
					// that alt text from images is not included in the title.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   578
					if ($entry['properties']['content'][0]['value'] === $title) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   579
						$title = strip_tags($entry['properties']['content'][0]['html']);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   580
						$item['title'] = array(array('data' => $title));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   581
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   582
					$description .= $entry['properties']['content'][0]['html'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   583
					if (isset($entry['properties']['in-reply-to'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   584
						$in_reply_to = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   585
						if (is_string($entry['properties']['in-reply-to'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   586
							$in_reply_to = $entry['properties']['in-reply-to'][0];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   587
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   588
						else if (isset($entry['properties']['in-reply-to'][0]['value'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   589
							$in_reply_to = $entry['properties']['in-reply-to'][0]['value'];
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   590
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   591
						if ($in_reply_to !== '') {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   592
							$description .= '<p><span class="in-reply-to"></span> '.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   593
								'<a href="'.$in_reply_to.'">'.$in_reply_to.'</a><p>';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   594
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   595
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   596
					$item['description'] = array(array('data' => $description));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   597
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   598
				if (isset($entry['properties']['category'])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   599
					$category_csv = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   600
					// Categories can also contain h-cards.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   601
					foreach ($entry['properties']['category'] as $category) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   602
						if ($category_csv !== '') $category_csv .= ', ';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   603
						if (is_string($category)) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   604
							// Can't have commas in categories.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   605
							$category_csv .= str_replace(',', '', $category);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   606
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   607
						else {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   608
							$category_csv .= $this->parse_hcard($category, true);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   609
						}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   610
					}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   611
					$item['category'] = array(array('data' => $category_csv));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   612
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   613
				if (isset($entry['properties']['published'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   614
					$timestamp = strtotime($entry['properties']['published'][0]);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   615
					$pub_date = date('F j Y g:ia', $timestamp).' GMT';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   616
					$item['pubDate'] = array(array('data' => $pub_date));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   617
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   618
				// The title and description are set to the empty string to represent
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   619
				// a deleted item (which also makes it an invalid rss item).
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   620
				if (isset($entry['properties']['deleted'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   621
					$item['title'] = array(array('data' => ''));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   622
					$item['description'] = array(array('data' => ''));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   623
				}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   624
				$items[] = array('child' => array('' => $item));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   625
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   626
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   627
		// Mimic RSS data format when storing microformats.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   628
		$link = array(array('data' => $url));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   629
		$image = '';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   630
		if (!is_string($feed_author) &&
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   631
				isset($feed_author['properties']['photo'][0])) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   632
			$image = array(array('child' => array('' => array('url' =>
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   633
				array(array('data' => $feed_author['properties']['photo'][0]))))));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   634
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   635
		// Use the name given for the h-feed, or get the title from the html.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   636
		if ($feed_title !== '') {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   637
			$feed_title = array(array('data' => htmlspecialchars($feed_title)));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   638
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   639
		else if ($position = strpos($data, '<title>')) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   640
			$start = $position < 200 ? 0 : $position - 200;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   641
			$check = substr($data, $start, 400);
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   642
			$matches = array();
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   643
			if (preg_match('/<title>(.+)<\/title>/', $check, $matches)) {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   644
				$feed_title = array(array('data' => htmlspecialchars($matches[1])));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   645
			}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   646
		}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   647
		$channel = array('channel' => array(array('child' => array('' =>
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   648
			array('link' => $link, 'image' => $image, 'title' => $feed_title,
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   649
			      'item' => $items)))));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   650
		$rss = array(array('attribs' => array('' => array('version' => '2.0')),
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   651
		                   'child' => array('' => $channel)));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   652
		$this->data = array('child' => array('' => array('rss' => $rss)));
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   653
		return true;
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   654
	}
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   655
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   656
	private function declare_html_entities() {
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   657
		// This is required because the RSS specification says that entity-encoded
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   658
		// html is allowed, but the xml specification says they must be declared.
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   659
		return '<!DOCTYPE html [ <!ENTITY nbsp "&#x00A0;"> <!ENTITY iexcl "&#x00A1;"> <!ENTITY cent "&#x00A2;"> <!ENTITY pound "&#x00A3;"> <!ENTITY curren "&#x00A4;"> <!ENTITY yen "&#x00A5;"> <!ENTITY brvbar "&#x00A6;"> <!ENTITY sect "&#x00A7;"> <!ENTITY uml "&#x00A8;"> <!ENTITY copy "&#x00A9;"> <!ENTITY ordf "&#x00AA;"> <!ENTITY laquo "&#x00AB;"> <!ENTITY not "&#x00AC;"> <!ENTITY shy "&#x00AD;"> <!ENTITY reg "&#x00AE;"> <!ENTITY macr "&#x00AF;"> <!ENTITY deg "&#x00B0;"> <!ENTITY plusmn "&#x00B1;"> <!ENTITY sup2 "&#x00B2;"> <!ENTITY sup3 "&#x00B3;"> <!ENTITY acute "&#x00B4;"> <!ENTITY micro "&#x00B5;"> <!ENTITY para "&#x00B6;"> <!ENTITY middot "&#x00B7;"> <!ENTITY cedil "&#x00B8;"> <!ENTITY sup1 "&#x00B9;"> <!ENTITY ordm "&#x00BA;"> <!ENTITY raquo "&#x00BB;"> <!ENTITY frac14 "&#x00BC;"> <!ENTITY frac12 "&#x00BD;"> <!ENTITY frac34 "&#x00BE;"> <!ENTITY iquest "&#x00BF;"> <!ENTITY Agrave "&#x00C0;"> <!ENTITY Aacute "&#x00C1;"> <!ENTITY Acirc "&#x00C2;"> <!ENTITY Atilde "&#x00C3;"> <!ENTITY Auml "&#x00C4;"> <!ENTITY Aring "&#x00C5;"> <!ENTITY AElig "&#x00C6;"> <!ENTITY Ccedil "&#x00C7;"> <!ENTITY Egrave "&#x00C8;"> <!ENTITY Eacute "&#x00C9;"> <!ENTITY Ecirc "&#x00CA;"> <!ENTITY Euml "&#x00CB;"> <!ENTITY Igrave "&#x00CC;"> <!ENTITY Iacute "&#x00CD;"> <!ENTITY Icirc "&#x00CE;"> <!ENTITY Iuml "&#x00CF;"> <!ENTITY ETH "&#x00D0;"> <!ENTITY Ntilde "&#x00D1;"> <!ENTITY Ograve "&#x00D2;"> <!ENTITY Oacute "&#x00D3;"> <!ENTITY Ocirc "&#x00D4;"> <!ENTITY Otilde "&#x00D5;"> <!ENTITY Ouml "&#x00D6;"> <!ENTITY times "&#x00D7;"> <!ENTITY Oslash "&#x00D8;"> <!ENTITY Ugrave "&#x00D9;"> <!ENTITY Uacute "&#x00DA;"> <!ENTITY Ucirc "&#x00DB;"> <!ENTITY Uuml "&#x00DC;"> <!ENTITY Yacute "&#x00DD;"> <!ENTITY THORN "&#x00DE;"> <!ENTITY szlig "&#x00DF;"> <!ENTITY agrave "&#x00E0;"> <!ENTITY aacute "&#x00E1;"> <!ENTITY acirc "&#x00E2;"> <!ENTITY atilde "&#x00E3;"> <!ENTITY auml "&#x00E4;"> <!ENTITY aring "&#x00E5;"> <!ENTITY aelig "&#x00E6;"> <!ENTITY ccedil "&#x00E7;"> <!ENTITY egrave "&#x00E8;"> <!ENTITY eacute "&#x00E9;"> <!ENTITY ecirc "&#x00EA;"> <!ENTITY euml "&#x00EB;"> <!ENTITY igrave "&#x00EC;"> <!ENTITY iacute "&#x00ED;"> <!ENTITY icirc "&#x00EE;"> <!ENTITY iuml "&#x00EF;"> <!ENTITY eth "&#x00F0;"> <!ENTITY ntilde "&#x00F1;"> <!ENTITY ograve "&#x00F2;"> <!ENTITY oacute "&#x00F3;"> <!ENTITY ocirc "&#x00F4;"> <!ENTITY otilde "&#x00F5;"> <!ENTITY ouml "&#x00F6;"> <!ENTITY divide "&#x00F7;"> <!ENTITY oslash "&#x00F8;"> <!ENTITY ugrave "&#x00F9;"> <!ENTITY uacute "&#x00FA;"> <!ENTITY ucirc "&#x00FB;"> <!ENTITY uuml "&#x00FC;"> <!ENTITY yacute "&#x00FD;"> <!ENTITY thorn "&#x00FE;"> <!ENTITY yuml "&#x00FF;"> <!ENTITY OElig "&#x0152;"> <!ENTITY oelig "&#x0153;"> <!ENTITY Scaron "&#x0160;"> <!ENTITY scaron "&#x0161;"> <!ENTITY Yuml "&#x0178;"> <!ENTITY fnof "&#x0192;"> <!ENTITY circ "&#x02C6;"> <!ENTITY tilde "&#x02DC;"> <!ENTITY Alpha "&#x0391;"> <!ENTITY Beta "&#x0392;"> <!ENTITY Gamma "&#x0393;"> <!ENTITY Epsilon "&#x0395;"> <!ENTITY Zeta "&#x0396;"> <!ENTITY Eta "&#x0397;"> <!ENTITY Theta "&#x0398;"> <!ENTITY Iota "&#x0399;"> <!ENTITY Kappa "&#x039A;"> <!ENTITY Lambda "&#x039B;"> <!ENTITY Mu "&#x039C;"> <!ENTITY Nu "&#x039D;"> <!ENTITY Xi "&#x039E;"> <!ENTITY Omicron "&#x039F;"> <!ENTITY Pi "&#x03A0;"> <!ENTITY Rho "&#x03A1;"> <!ENTITY Sigma "&#x03A3;"> <!ENTITY Tau "&#x03A4;"> <!ENTITY Upsilon "&#x03A5;"> <!ENTITY Phi "&#x03A6;"> <!ENTITY Chi "&#x03A7;"> <!ENTITY Psi "&#x03A8;"> <!ENTITY Omega "&#x03A9;"> <!ENTITY alpha "&#x03B1;"> <!ENTITY beta "&#x03B2;"> <!ENTITY gamma "&#x03B3;"> <!ENTITY delta "&#x03B4;"> <!ENTITY epsilon "&#x03B5;"> <!ENTITY zeta "&#x03B6;"> <!ENTITY eta "&#x03B7;"> <!ENTITY theta "&#x03B8;"> <!ENTITY iota "&#x03B9;"> <!ENTITY kappa "&#x03BA;"> <!ENTITY lambda "&#x03BB;"> <!ENTITY mu "&#x03BC;"> <!ENTITY nu "&#x03BD;"> <!ENTITY xi "&#x03BE;"> <!ENTITY omicron "&#x03BF;"> <!ENTITY pi "&#x03C0;"> <!ENTITY rho "&#x03C1;"> <!ENTITY sigmaf "&#x03C2;"> <!ENTITY sigma "&#x03C3;"> <!ENTITY tau "&#x03C4;"> <!ENTITY upsilon "&#x03C5;"> <!ENTITY phi "&#x03C6;"> <!ENTITY chi "&#x03C7;"> <!ENTITY psi "&#x03C8;"> <!ENTITY omega "&#x03C9;"> <!ENTITY thetasym "&#x03D1;"> <!ENTITY upsih "&#x03D2;"> <!ENTITY piv "&#x03D6;"> <!ENTITY ensp "&#x2002;"> <!ENTITY emsp "&#x2003;"> <!ENTITY thinsp "&#x2009;"> <!ENTITY zwnj "&#x200C;"> <!ENTITY zwj "&#x200D;"> <!ENTITY lrm "&#x200E;"> <!ENTITY rlm "&#x200F;"> <!ENTITY ndash "&#x2013;"> <!ENTITY mdash "&#x2014;"> <!ENTITY lsquo "&#x2018;"> <!ENTITY rsquo "&#x2019;"> <!ENTITY sbquo "&#x201A;"> <!ENTITY ldquo "&#x201C;"> <!ENTITY rdquo "&#x201D;"> <!ENTITY bdquo "&#x201E;"> <!ENTITY dagger "&#x2020;"> <!ENTITY Dagger "&#x2021;"> <!ENTITY bull "&#x2022;"> <!ENTITY hellip "&#x2026;"> <!ENTITY permil "&#x2030;"> <!ENTITY prime "&#x2032;"> <!ENTITY Prime "&#x2033;"> <!ENTITY lsaquo "&#x2039;"> <!ENTITY rsaquo "&#x203A;"> <!ENTITY oline "&#x203E;"> <!ENTITY frasl "&#x2044;"> <!ENTITY euro "&#x20AC;"> <!ENTITY image "&#x2111;"> <!ENTITY weierp "&#x2118;"> <!ENTITY real "&#x211C;"> <!ENTITY trade "&#x2122;"> <!ENTITY alefsym "&#x2135;"> <!ENTITY larr "&#x2190;"> <!ENTITY uarr "&#x2191;"> <!ENTITY rarr "&#x2192;"> <!ENTITY darr "&#x2193;"> <!ENTITY harr "&#x2194;"> <!ENTITY crarr "&#x21B5;"> <!ENTITY lArr "&#x21D0;"> <!ENTITY uArr "&#x21D1;"> <!ENTITY rArr "&#x21D2;"> <!ENTITY dArr "&#x21D3;"> <!ENTITY hArr "&#x21D4;"> <!ENTITY forall "&#x2200;"> <!ENTITY part "&#x2202;"> <!ENTITY exist "&#x2203;"> <!ENTITY empty "&#x2205;"> <!ENTITY nabla "&#x2207;"> <!ENTITY isin "&#x2208;"> <!ENTITY notin "&#x2209;"> <!ENTITY ni "&#x220B;"> <!ENTITY prod "&#x220F;"> <!ENTITY sum "&#x2211;"> <!ENTITY minus "&#x2212;"> <!ENTITY lowast "&#x2217;"> <!ENTITY radic "&#x221A;"> <!ENTITY prop "&#x221D;"> <!ENTITY infin "&#x221E;"> <!ENTITY ang "&#x2220;"> <!ENTITY and "&#x2227;"> <!ENTITY or "&#x2228;"> <!ENTITY cap "&#x2229;"> <!ENTITY cup "&#x222A;"> <!ENTITY int "&#x222B;"> <!ENTITY there4 "&#x2234;"> <!ENTITY sim "&#x223C;"> <!ENTITY cong "&#x2245;"> <!ENTITY asymp "&#x2248;"> <!ENTITY ne "&#x2260;"> <!ENTITY equiv "&#x2261;"> <!ENTITY le "&#x2264;"> <!ENTITY ge "&#x2265;"> <!ENTITY sub "&#x2282;"> <!ENTITY sup "&#x2283;"> <!ENTITY nsub "&#x2284;"> <!ENTITY sube "&#x2286;"> <!ENTITY supe "&#x2287;"> <!ENTITY oplus "&#x2295;"> <!ENTITY otimes "&#x2297;"> <!ENTITY perp "&#x22A5;"> <!ENTITY sdot "&#x22C5;"> <!ENTITY lceil "&#x2308;"> <!ENTITY rceil "&#x2309;"> <!ENTITY lfloor "&#x230A;"> <!ENTITY rfloor "&#x230B;"> <!ENTITY lang "&#x2329;"> <!ENTITY rang "&#x232A;"> <!ENTITY loz "&#x25CA;"> <!ENTITY spades "&#x2660;"> <!ENTITY clubs "&#x2663;"> <!ENTITY hearts "&#x2665;"> <!ENTITY diams "&#x2666;"> ]>';
a86126ab1dd4 update enmi-conf
ymh <ymh.work@gmail.com>
parents: 0
diff changeset
   660
	}
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   661
}