<?php

/**

 * SimplePie

 *

 * A PHP-Based RSS and Atom Feed Framework.

 * Takes the hard work out of managing a complete RSS/Atom solution.

 *

 * Copyright (c) 2004-2012, Ryan Parman, Geoffrey Sneddon, Ryan McCue, and contributors

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without modification, are

 * permitted provided that the following conditions are met:

 *

 * 	* Redistributions of source code must retain the above copyright notice, this list of

 * 	  conditions and the following disclaimer.

 *

 * 	* Redistributions in binary form must reproduce the above copyright notice, this list

 * 	  of conditions and the following disclaimer in the documentation and/or other materials

 * 	  provided with the distribution.

 *

 * 	* Neither the name of the SimplePie Team nor the names of its contributors may be used

 * 	  to endorse or promote products derived from this software without specific prior

 * 	  written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS

 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY

 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS

 * AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR

 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR

 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY

 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR

 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

 * POSSIBILITY OF SUCH DAMAGE.

 *

 * @package SimplePie

 * @version 1.3.1

 * @copyright 2004-2012 Ryan Parman, Geoffrey Sneddon, Ryan McCue

 * @author Ryan Parman

 * @author Geoffrey Sneddon

 * @author Ryan McCue

 * @link http://simplepie.org/ SimplePie

 * @license http://www.opensource.org/licenses/bsd-license.php BSD License

 */

/**

 * IRI parser/serialiser/normaliser

 *

 * @package SimplePie

 * @subpackage HTTP

 * @author Geoffrey Sneddon

 * @author Steve Minutillo

 * @author Ryan McCue

 * @copyright 2007-2012 Geoffrey Sneddon, Steve Minutillo, Ryan McCue

 * @license http://www.opensource.org/licenses/bsd-license.php

 */

class SimplePie_IRI

{

	/**

	 * Scheme

	 *

	 * @var string

	 */

	protected $scheme = null;

	/**

	 * User Information

	 *

	 * @var string

	 */

	protected $iuserinfo = null;

	/**

	 * ihost

	 *

	 * @var string

	 */

	protected $ihost = null;

	/**

	 * Port

	 *

	 * @var string

	 */

	protected $port = null;

	/**

	 * ipath

	 *

	 * @var string

	 */

	protected $ipath = '';

	/**

	 * iquery

	 *

	 * @var string

	 */

	protected $iquery = null;

	/**

	 * ifragment

	 *

	 * @var string

	 */

	protected $ifragment = null;

	/**

	 * Normalization database

	 *

	 * Each key is the scheme, each value is an array with each key as the IRI

	 * part and value as the default value for that part.

	 */

	protected $normalization = array(

		'acap' => array(

			'port' => 674

		),

		'dict' => array(

			'port' => 2628

		),

		'file' => array(

			'ihost' => 'localhost'

		),

		'http' => array(

			'port' => 80,

			'ipath' => '/'

		),

		'https' => array(

			'port' => 443,

			'ipath' => '/'

		),

	);

	/**

	 * Return the entire IRI when you try and read the object as a string

	 *

	 * @return string

	 */

	public function __toString()

	{

		return $this->get_iri();

	}

	/**

	 * Overload __set() to provide access via properties

	 *

	 * @param string $name Property name

	 * @param mixed $value Property value

	 */

	public function __set($name, $value)

	{

		if (method_exists($this, 'set_' . $name))

		{

			call_user_func(array($this, 'set_' . $name), $value);

		}

		elseif (

			   $name === 'iauthority'

			|| $name === 'iuserinfo'

			|| $name === 'ihost'

			|| $name === 'ipath'

			|| $name === 'iquery'

			|| $name === 'ifragment'

		)

		{

			call_user_func(array($this, 'set_' . substr($name, 1)), $value);

		}

	}

	/**

	 * Overload __get() to provide access via properties

	 *

	 * @param string $name Property name

	 * @return mixed

	 */

	public function __get($name)

	{

		// isset() returns false for null, we don't want to do that

		// Also why we use array_key_exists below instead of isset()

		$props = get_object_vars($this);

		if (

			$name === 'iri' ||

			$name === 'uri' ||

			$name === 'iauthority' ||

			$name === 'authority'

		)

		{

			$return = $this->{"get_$name"}();

		}

		elseif (array_key_exists($name, $props))

		{

			$return = $this->$name;

		}

		// host -> ihost

		elseif (($prop = 'i' . $name) && array_key_exists($prop, $props))

		{

			$name = $prop;

			$return = $this->$prop;

		}

		// ischeme -> scheme

		elseif (($prop = substr($name, 1)) && array_key_exists($prop, $props))

		{

			$name = $prop;

			$return = $this->$prop;

		}

		else

		{

			trigger_error('Undefined property: ' . get_class($this) . '::' . $name, E_USER_NOTICE);

			$return = null;

		}

		if ($return === null && isset($this->normalization[$this->scheme][$name]))

		{

			return $this->normalization[$this->scheme][$name];

		}

		else

		{

			return $return;

		}

	}

	/**

	 * Overload __isset() to provide access via properties

	 *

	 * @param string $name Property name

	 * @return bool

	 */

	public function __isset($name)

	{

		if (method_exists($this, 'get_' . $name) || isset($this->$name))

		{

			return true;

		}

		else

		{

			return false;

		}

	}

	/**

	 * Overload __unset() to provide access via properties

	 *

	 * @param string $name Property name

	 */

	public function __unset($name)

	{

		if (method_exists($this, 'set_' . $name))

		{

			call_user_func(array($this, 'set_' . $name), '');

		}

	}

	/**

	 * Create a new IRI object, from a specified string

	 *

	 * @param string $iri

	 */

	public function __construct($iri = null)

	{

		$this->set_iri($iri);

	}

	/**

	 * Create a new IRI object by resolving a relative IRI

	 *

	 * Returns false if $base is not absolute, otherwise an IRI.

	 *

	 * @param IRI|string $base (Absolute) Base IRI

	 * @param IRI|string $relative Relative IRI

	 * @return IRI|false

	 */

	public static function absolutize($base, $relative)

	{

		if (!($relative instanceof SimplePie_IRI))

		{

			$relative = new SimplePie_IRI($relative);

		}

		if (!$relative->is_valid())

		{

			return false;

		}

		elseif ($relative->scheme !== null)

		{

			return clone $relative;

		}

		else

		{

			if (!($base instanceof SimplePie_IRI))

			{

				$base = new SimplePie_IRI($base);

			}

			if ($base->scheme !== null && $base->is_valid())

			{

				if ($relative->get_iri() !== '')

				{

					if ($relative->iuserinfo !== null || $relative->ihost !== null || $relative->port !== null)

					{

						$target = clone $relative;

						$target->scheme = $base->scheme;

					}

					else

					{

						$target = new SimplePie_IRI;

						$target->scheme = $base->scheme;

						$target->iuserinfo = $base->iuserinfo;

						$target->ihost = $base->ihost;

						$target->port = $base->port;

						if ($relative->ipath !== '')

						{

							if ($relative->ipath[0] === '/')

							{

								$target->ipath = $relative->ipath;

							}

							elseif (($base->iuserinfo !== null || $base->ihost !== null || $base->port !== null) && $base->ipath === '')

							{

								$target->ipath = '/' . $relative->ipath;

							}

							elseif (($last_segment = strrpos($base->ipath, '/')) !== false)

							{

								$target->ipath = substr($base->ipath, 0, $last_segment + 1) . $relative->ipath;

							}

							else

							{

								$target->ipath = $relative->ipath;

							}

							$target->ipath = $target->remove_dot_segments($target->ipath);

							$target->iquery = $relative->iquery;

						}

						else

						{

							$target->ipath = $base->ipath;

							if ($relative->iquery !== null)

							{

								$target->iquery = $relative->iquery;

							}

							elseif ($base->iquery !== null)

							{

								$target->iquery = $base->iquery;

							}

						}

						$target->ifragment = $relative->ifragment;

					}

				}

				else

				{

					$target = clone $base;

					$target->ifragment = null;

				}

				$target->scheme_normalization();

				return $target;

			}

			else

			{

				return false;

			}

		}

	}

	/**

	 * Parse an IRI into scheme/authority/path/query/fragment segments

	 *

	 * @param string $iri

	 * @return array

	 */

	protected function parse_iri($iri)

	{

		$iri = trim($iri, "\x20\x09\x0A\x0C\x0D");

		if (preg_match('/^((?P<scheme>[^:\/?#]+):)?(\/\/(?P<authority>[^\/?#]*))?(?P<path>[^?#]*)(\?(?P<query>[^#]*))?(#(?P<fragment>.*))?$/', $iri, $match))

		{

			if ($match[1] === '')

			{

				$match['scheme'] = null;

			}

			if (!isset($match[3]) || $match[3] === '')

			{

				$match['authority'] = null;

			}

			if (!isset($match[5]))

			{

				$match['path'] = '';

			}

			if (!isset($match[6]) || $match[6] === '')

			{

				$match['query'] = null;

			}

			if (!isset($match[8]) || $match[8] === '')

			{

				$match['fragment'] = null;

			}

			return $match;

		}

		else

		{

			// This can occur when a paragraph is accidentally parsed as a URI

			return false;

		}

	}

	/**

	 * Remove dot segments from a path

	 *

	 * @param string $input

	 * @return string

	 */

	protected function remove_dot_segments($input)

	{

		$output = '';

		while (strpos($input, './') !== false || strpos($input, '/.') !== false || $input === '.' || $input === '..')

		{

			// A: If the input buffer begins with a prefix of "../" or "./", then remove that prefix from the input buffer; otherwise,

			if (strpos($input, '../') === 0)

			{

				$input = substr($input, 3);

			}

			elseif (strpos($input, './') === 0)

			{

				$input = substr($input, 2);

			}

			// B: if the input buffer begins with a prefix of "/./" or "/.", where "." is a complete path segment, then replace that prefix with "/" in the input buffer; otherwise,

			elseif (strpos($input, '/./') === 0)

			{

				$input = substr($input, 2);

			}

			elseif ($input === '/.')

			{

				$input = '/';

			}

			// C: if the input buffer begins with a prefix of "/../" or "/..", where ".." is a complete path segment, then replace that prefix with "/" in the input buffer and remove the last segment and its preceding "/" (if any) from the output buffer; otherwise,

			elseif (strpos($input, '/../') === 0)

			{

				$input = substr($input, 3);

				$output = substr_replace($output, '', strrpos($output, '/'));

			}

			elseif ($input === '/..')

			{

				$input = '/';

				$output = substr_replace($output, '', strrpos($output, '/'));

			}

			// D: if the input buffer consists only of "." or "..", then remove that from the input buffer; otherwise,

			elseif ($input === '.' || $input === '..')

			{