814 lines
23 KiB
PHP
814 lines
23 KiB
PHP
|
<?php
|
||
|
|
// +-----------------------------------------------------------------------+
|
||
|
|
// | Copyright (c) 2007-2008, Christian Schmidt, Peytz & Co. A/S |
|
||
|
|
// | All rights reserved. |
|
||
|
|
// | |
|
||
|
|
// | Redistribution and use in source and binary forms, with or without |
|
||
|
|
// | modification, are permitted provided that the following conditions |
|
||
|
|
// | are met: |
|
||
|
|
// | |
|
||
|
|
// | o Redistributions of source code must retain the above copyright |
|
||
|
|
// | notice, this list of conditions and the following disclaimer. |
|
||
|
|
// | o 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.|
|
||
|
|
// | o The names of the authors may not 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 |
|
||
|
|
// | OWNER OR 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. |
|
||
|
|
// | |
|
||
|
|
// +-----------------------------------------------------------------------+
|
||
|
|
// | Author: Christian Schmidt <schmidt at php dot net> |
|
||
|
|
// +-----------------------------------------------------------------------+
|
||
|
|
//
|
||
|
|
// $Id: URL2.php,v 1.10 2008/04/26 21:57:08 schmidt Exp $
|
||
|
|
//
|
||
|
|
// Net_URL2 Class (PHP5 Only)
|
||
|
|
|
||
|
|
// This code is released under the BSD License - http://www.opensource.org/licenses/bsd-license.php
|
||
|
|
/**
|
||
|
|
* @license BSD License
|
||
|
|
*/
|
||
|
|
class Net_URL2
|
||
|
|
{
|
||
|
|
/**
|
||
|
|
* Do strict parsing in resolve() (see RFC 3986, section 5.2.2). Default
|
||
|
|
* is true.
|
||
|
|
*/
|
||
|
|
const OPTION_STRICT = 'strict';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Represent arrays in query using PHP's [] notation. Default is true.
|
||
|
|
*/
|
||
|
|
const OPTION_USE_BRACKETS = 'use_brackets';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* URL-encode query variable keys. Default is true.
|
||
|
|
*/
|
||
|
|
const OPTION_ENCODE_KEYS = 'encode_keys';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Query variable separators when parsing the query string. Every character
|
||
|
|
* is considered a separator. Default is specified by the
|
||
|
|
* arg_separator.input php.ini setting (this defaults to "&").
|
||
|
|
*/
|
||
|
|
const OPTION_SEPARATOR_INPUT = 'input_separator';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Query variable separator used when generating the query string. Default
|
||
|
|
* is specified by the arg_separator.output php.ini setting (this defaults
|
||
|
|
* to "&").
|
||
|
|
*/
|
||
|
|
const OPTION_SEPARATOR_OUTPUT = 'output_separator';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Default options corresponds to how PHP handles $_GET.
|
||
|
|
*/
|
||
|
|
private $options = array(
|
||
|
|
self::OPTION_STRICT => true,
|
||
|
|
self::OPTION_USE_BRACKETS => true,
|
||
|
|
self::OPTION_ENCODE_KEYS => true,
|
||
|
|
self::OPTION_SEPARATOR_INPUT => 'x&',
|
||
|
|
self::OPTION_SEPARATOR_OUTPUT => 'x&',
|
||
|
|
);
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string|bool
|
||
|
|
*/
|
||
|
|
private $scheme = false;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string|bool
|
||
|
|
*/
|
||
|
|
private $userinfo = false;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string|bool
|
||
|
|
*/
|
||
|
|
private $host = false;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var int|bool
|
||
|
|
*/
|
||
|
|
private $port = false;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string
|
||
|
|
*/
|
||
|
|
private $path = '';
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string|bool
|
||
|
|
*/
|
||
|
|
private $query = false;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @var string|bool
|
||
|
|
*/
|
||
|
|
private $fragment = false;
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $url an absolute or relative URL
|
||
|
|
* @param array $options
|
||
|
|
*/
|
||
|
|
public function __construct($url, $options = null)
|
||
|
|
{
|
||
|
|
$this->setOption(self::OPTION_SEPARATOR_INPUT,
|
||
|
|
ini_get('arg_separator.input'));
|
||
|
|
$this->setOption(self::OPTION_SEPARATOR_OUTPUT,
|
||
|
|
ini_get('arg_separator.output'));
|
||
|
|
if (is_array($options)) {
|
||
|
|
foreach ($options as $optionName => $value) {
|
||
|
|
$this->setOption($optionName);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (preg_match('@^([a-z][a-z0-9.+-]*):@i', $url, $reg)) {
|
||
|
|
$this->scheme = $reg[1];
|
||
|
|
$url = substr($url, strlen($reg[0]));
|
||
|
|
}
|
||
|
|
|
||
|
|
if (preg_match('@^//([^/#?]+)@', $url, $reg)) {
|
||
|
|
$this->setAuthority($reg[1]);
|
||
|
|
$url = substr($url, strlen($reg[0]));
|
||
|
|
}
|
||
|
|
|
||
|
|
$i = strcspn($url, '?#');
|
||
|
|
$this->path = substr($url, 0, $i);
|
||
|
|
$url = substr($url, $i);
|
||
|
|
|
||
|
|
if (preg_match('@^\?([^#]*)@', $url, $reg)) {
|
||
|
|
$this->query = $reg[1];
|
||
|
|
$url = substr($url, strlen($reg[0]));
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($url) {
|
||
|
|
$this->fragment = substr($url, 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the scheme, e.g. "http" or "urn", or false if there is no
|
||
|
|
* scheme specified, i.e. if this is a relative URL.
|
||
|
|
*
|
||
|
|
* @return string|bool
|
||
|
|
*/
|
||
|
|
public function getScheme()
|
||
|
|
{
|
||
|
|
return $this->scheme;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string|bool $scheme
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
* @see getScheme()
|
||
|
|
*/
|
||
|
|
public function setScheme($scheme)
|
||
|
|
{
|
||
|
|
$this->scheme = $scheme;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the user part of the userinfo part (the part preceding the first
|
||
|
|
* ":"), or false if there is no userinfo part.
|
||
|
|
*
|
||
|
|
* @return string|bool
|
||
|
|
*/
|
||
|
|
public function getUser()
|
||
|
|
{
|
||
|
|
return $this->userinfo !== false ? preg_replace('@:.*$@', '', $this->userinfo) : false;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the password part of the userinfo part (the part after the first
|
||
|
|
* ":"), or false if there is no userinfo part (i.e. the URL does not
|
||
|
|
* contain "@" in front of the hostname) or the userinfo part does not
|
||
|
|
* contain ":".
|
||
|
|
*
|
||
|
|
* @return string|bool
|
||
|
|
*/
|
||
|
|
public function getPassword()
|
||
|
|
{
|
||
|
|
return $this->userinfo !== false ? substr(strstr($this->userinfo, ':'), 1) : false;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the userinfo part, or false if there is none, i.e. if the
|
||
|
|
* authority part does not contain "@".
|
||
|
|
*
|
||
|
|
* @return string|bool
|
||
|
|
*/
|
||
|
|
public function getUserinfo()
|
||
|
|
{
|
||
|
|
return $this->userinfo;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Sets the userinfo part. If two arguments are passed, they are combined
|
||
|
|
* in the userinfo part as username ":" password.
|
||
|
|
*
|
||
|
|
* @param string|bool $userinfo userinfo or username
|
||
|
|
* @param string|bool $password
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
*/
|
||
|
|
public function setUserinfo($userinfo, $password = false)
|
||
|
|
{
|
||
|
|
$this->userinfo = $userinfo;
|
||
|
|
if ($password !== false) {
|
||
|
|
$this->userinfo .= ':' . $password;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the host part, or false if there is no authority part, e.g.
|
||
|
|
* relative URLs.
|
||
|
|
*
|
||
|
|
* @return string|bool
|
||
|
|
*/
|
||
|
|
public function getHost()
|
||
|
|
{
|
||
|
|
return $this->host;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string|bool $host
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
*/
|
||
|
|
public function setHost($host)
|
||
|
|
{
|
||
|
|
$this->host = $host;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the port number, or false if there is no port number specified,
|
||
|
|
* i.e. if the default port is to be used.
|
||
|
|
*
|
||
|
|
* @return int|bool
|
||
|
|
*/
|
||
|
|
public function getPort()
|
||
|
|
{
|
||
|
|
return $this->port;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param int|bool $port
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
*/
|
||
|
|
public function setPort($port)
|
||
|
|
{
|
||
|
|
$this->port = intval($port);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the authority part, i.e. [ userinfo "@" ] host [ ":" port ], or
|
||
|
|
* false if there is no authority none.
|
||
|
|
*
|
||
|
|
* @return string|bool
|
||
|
|
*/
|
||
|
|
public function getAuthority()
|
||
|
|
{
|
||
|
|
if (!$this->host) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$authority = '';
|
||
|
|
|
||
|
|
if ($this->userinfo !== false) {
|
||
|
|
$authority .= $this->userinfo . '@';
|
||
|
|
}
|
||
|
|
|
||
|
|
$authority .= $this->host;
|
||
|
|
|
||
|
|
if ($this->port !== false) {
|
||
|
|
$authority .= ':' . $this->port;
|
||
|
|
}
|
||
|
|
|
||
|
|
return $authority;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string|false $authority
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
*/
|
||
|
|
public function setAuthority($authority)
|
||
|
|
{
|
||
|
|
$this->user = false;
|
||
|
|
$this->pass = false;
|
||
|
|
$this->host = false;
|
||
|
|
$this->port = false;
|
||
|
|
if (preg_match('@^(([^\@]+)\@)?([^:]+)(:(\d*))?$@', $authority, $reg)) {
|
||
|
|
if ($reg[1]) {
|
||
|
|
$this->userinfo = $reg[2];
|
||
|
|
}
|
||
|
|
|
||
|
|
$this->host = $reg[3];
|
||
|
|
if (isset($reg[5])) {
|
||
|
|
$this->port = intval($reg[5]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the path part (possibly an empty string).
|
||
|
|
*
|
||
|
|
* @return string
|
||
|
|
*/
|
||
|
|
public function getPath()
|
||
|
|
{
|
||
|
|
return $this->path;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $path
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
*/
|
||
|
|
public function setPath($path)
|
||
|
|
{
|
||
|
|
$this->path = $path;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the query string (excluding the leading "?"), or false if "?"
|
||
|
|
* isn't present in the URL.
|
||
|
|
*
|
||
|
|
* @return string|bool
|
||
|
|
* @see self::getQueryVariables()
|
||
|
|
*/
|
||
|
|
public function getQuery()
|
||
|
|
{
|
||
|
|
return $this->query;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string|bool $query
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
* @see self::setQueryVariables()
|
||
|
|
*/
|
||
|
|
public function setQuery($query)
|
||
|
|
{
|
||
|
|
$this->query = $query;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the fragment name, or false if "#" isn't present in the URL.
|
||
|
|
*
|
||
|
|
* @return string|bool
|
||
|
|
*/
|
||
|
|
public function getFragment()
|
||
|
|
{
|
||
|
|
return $this->fragment;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string|bool $fragment
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
*/
|
||
|
|
public function setFragment($fragment)
|
||
|
|
{
|
||
|
|
$this->fragment = $fragment;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the query string like an array as the variables would appear in
|
||
|
|
* $_GET in a PHP script.
|
||
|
|
*
|
||
|
|
* @return array
|
||
|
|
*/
|
||
|
|
public function getQueryVariables()
|
||
|
|
{
|
||
|
|
$pattern = '/[' .
|
||
|
|
preg_quote($this->getOption(self::OPTION_SEPARATOR_INPUT), '/') .
|
||
|
|
']/';
|
||
|
|
$parts = preg_split($pattern, $this->query, -1, PREG_SPLIT_NO_EMPTY);
|
||
|
|
$return = array();
|
||
|
|
|
||
|
|
foreach ($parts as $part) {
|
||
|
|
if (strpos($part, '=') !== false) {
|
||
|
|
list($key, $value) = explode('=', $part, 2);
|
||
|
|
} else {
|
||
|
|
$key = $part;
|
||
|
|
$value = null;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->getOption(self::OPTION_ENCODE_KEYS)) {
|
||
|
|
$key = rawurldecode($key);
|
||
|
|
}
|
||
|
|
$value = rawurldecode($value);
|
||
|
|
|
||
|
|
if ($this->getOption(self::OPTION_USE_BRACKETS) &&
|
||
|
|
preg_match('#^(.*)\[([0-9a-z_-]*)\]#i', $key, $matches)) {
|
||
|
|
|
||
|
|
$key = $matches[1];
|
||
|
|
$idx = $matches[2];
|
||
|
|
|
||
|
|
// Ensure is an array
|
||
|
|
if (empty($return[$key]) || !is_array($return[$key])) {
|
||
|
|
$return[$key] = array();
|
||
|
|
}
|
||
|
|
|
||
|
|
// Add data
|
||
|
|
if ($idx === '') {
|
||
|
|
$return[$key][] = $value;
|
||
|
|
} else {
|
||
|
|
$return[$key][$idx] = $value;
|
||
|
|
}
|
||
|
|
} elseif (!$this->getOption(self::OPTION_USE_BRACKETS)
|
||
|
|
&& !empty($return[$key])
|
||
|
|
) {
|
||
|
|
$return[$key] = (array) $return[$key];
|
||
|
|
$return[$key][] = $value;
|
||
|
|
} else {
|
||
|
|
$return[$key] = $value;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $return;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param array $array (name => value) array
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
*/
|
||
|
|
public function setQueryVariables(array $array)
|
||
|
|
{
|
||
|
|
if (!$array) {
|
||
|
|
$this->query = false;
|
||
|
|
} else {
|
||
|
|
foreach ($array as $name => $value) {
|
||
|
|
if ($this->getOption(self::OPTION_ENCODE_KEYS)) {
|
||
|
|
$name = rawurlencode($name);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (is_array($value)) {
|
||
|
|
foreach ($value as $k => $v) {
|
||
|
|
$parts[] = $this->getOption(self::OPTION_USE_BRACKETS)
|
||
|
|
? sprintf('%s[%s]=%s', $name, $k, $v)
|
||
|
|
: ($name . '=' . $v);
|
||
|
|
}
|
||
|
|
} elseif (!is_null($value)) {
|
||
|
|
$parts[] = $name . '=' . $value;
|
||
|
|
} else {
|
||
|
|
$parts[] = $name;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$this->query = implode($this->getOption(self::OPTION_SEPARATOR_OUTPUT),
|
||
|
|
$parts);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $name
|
||
|
|
* @param mixed $value
|
||
|
|
*
|
||
|
|
* @return array
|
||
|
|
*/
|
||
|
|
public function setQueryVariable($name, $value)
|
||
|
|
{
|
||
|
|
$array = $this->getQueryVariables();
|
||
|
|
$array[$name] = $value;
|
||
|
|
$this->setQueryVariables($array);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* @param string $name
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
*/
|
||
|
|
public function unsetQueryVariable($name)
|
||
|
|
{
|
||
|
|
$array = $this->getQueryVariables();
|
||
|
|
unset($array[$name]);
|
||
|
|
$this->setQueryVariables($array);
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns a string representation of this URL.
|
||
|
|
*
|
||
|
|
* @return string
|
||
|
|
*/
|
||
|
|
public function getURL()
|
||
|
|
{
|
||
|
|
// See RFC 3986, section 5.3
|
||
|
|
$url = "";
|
||
|
|
|
||
|
|
if ($this->scheme !== false) {
|
||
|
|
$url .= $this->scheme . ':';
|
||
|
|
}
|
||
|
|
|
||
|
|
$authority = $this->getAuthority();
|
||
|
|
if ($authority !== false) {
|
||
|
|
$url .= '//' . $authority;
|
||
|
|
}
|
||
|
|
$url .= $this->path;
|
||
|
|
|
||
|
|
if ($this->query !== false) {
|
||
|
|
$url .= '?' . $this->query;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->fragment !== false) {
|
||
|
|
$url .= '#' . $this->fragment;
|
||
|
|
}
|
||
|
|
|
||
|
|
return $url;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns a normalized string representation of this URL. This is useful
|
||
|
|
* for comparison of URLs.
|
||
|
|
*
|
||
|
|
* @return string
|
||
|
|
*/
|
||
|
|
public function getNormalizedURL()
|
||
|
|
{
|
||
|
|
$url = clone $this;
|
||
|
|
$url->normalize();
|
||
|
|
return $url->getUrl();
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns a normalized Net_URL2 instance.
|
||
|
|
*
|
||
|
|
* @return Net_URL2
|
||
|
|
*/
|
||
|
|
public function normalize()
|
||
|
|
{
|
||
|
|
// See RFC 3886, section 6
|
||
|
|
|
||
|
|
// Schemes are case-insensitive
|
||
|
|
if ($this->scheme) {
|
||
|
|
$this->scheme = strtolower($this->scheme);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Hostnames are case-insensitive
|
||
|
|
if ($this->host) {
|
||
|
|
$this->host = strtolower($this->host);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Remove default port number for known schemes (RFC 3986, section 6.2.3)
|
||
|
|
if ($this->port &&
|
||
|
|
$this->scheme &&
|
||
|
|
$this->port == getservbyname($this->scheme, 'tcp')) {
|
||
|
|
|
||
|
|
$this->port = false;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Normalize case of %XX percentage-encodings (RFC 3986, section 6.2.2.1)
|
||
|
|
foreach (array('userinfo', 'host', 'path') as $part) {
|
||
|
|
if ($this->$part) {
|
||
|
|
$this->$part = preg_replace('/%[0-9a-f]{2}/ie', 'strtoupper("\0")', $this->$part);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Path segment normalization (RFC 3986, section 6.2.2.3)
|
||
|
|
$this->path = self::removeDotSegments($this->path);
|
||
|
|
|
||
|
|
// Scheme based normalization (RFC 3986, section 6.2.3)
|
||
|
|
if ($this->host && !$this->path) {
|
||
|
|
$this->path = '/';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns whether this instance represents an absolute URL.
|
||
|
|
*
|
||
|
|
* @return bool
|
||
|
|
*/
|
||
|
|
public function isAbsolute()
|
||
|
|
{
|
||
|
|
return (bool) $this->scheme;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns an Net_URL2 instance representing an absolute URL relative to
|
||
|
|
* this URL.
|
||
|
|
*
|
||
|
|
* @param Net_URL2|string $reference relative URL
|
||
|
|
*
|
||
|
|
* @return Net_URL2
|
||
|
|
*/
|
||
|
|
public function resolve($reference)
|
||
|
|
{
|
||
|
|
if (is_string($reference)) {
|
||
|
|
$reference = new self($reference);
|
||
|
|
}
|
||
|
|
if (!$this->isAbsolute()) {
|
||
|
|
throw new Exception('Base-URL must be absolute');
|
||
|
|
}
|
||
|
|
|
||
|
|
// A non-strict parser may ignore a scheme in the reference if it is
|
||
|
|
// identical to the base URI's scheme.
|
||
|
|
if (!$this->getOption(self::OPTION_STRICT) && $reference->scheme == $this->scheme) {
|
||
|
|
$reference->scheme = false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$target = new self('');
|
||
|
|
if ($reference->scheme !== false) {
|
||
|
|
$target->scheme = $reference->scheme;
|
||
|
|
$target->setAuthority($reference->getAuthority());
|
||
|
|
$target->path = self::removeDotSegments($reference->path);
|
||
|
|
$target->query = $reference->query;
|
||
|
|
} else {
|
||
|
|
$authority = $reference->getAuthority();
|
||
|
|
if ($authority !== false) {
|
||
|
|
$target->setAuthority($authority);
|
||
|
|
$target->path = self::removeDotSegments($reference->path);
|
||
|
|
$target->query = $reference->query;
|
||
|
|
} else {
|
||
|
|
if ($reference->path == '') {
|
||
|
|
$target->path = $this->path;
|
||
|
|
if ($reference->query !== false) {
|
||
|
|
$target->query = $reference->query;
|
||
|
|
} else {
|
||
|
|
$target->query = $this->query;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if (substr($reference->path, 0, 1) == '/') {
|
||
|
|
$target->path = self::removeDotSegments($reference->path);
|
||
|
|
} else {
|
||
|
|
// Merge paths (RFC 3986, section 5.2.3)
|
||
|
|
if ($this->host !== false && $this->path == '') {
|
||
|
|
$target->path = '/' . $this->path;
|
||
|
|
} else {
|
||
|
|
$i = strrpos($this->path, '/');
|
||
|
|
if ($i !== false) {
|
||
|
|
$target->path = substr($this->path, 0, $i + 1);
|
||
|
|
}
|
||
|
|
$target->path .= $reference->path;
|
||
|
|
}
|
||
|
|
$target->path = self::removeDotSegments($target->path);
|
||
|
|
}
|
||
|
|
$target->query = $reference->query;
|
||
|
|
}
|
||
|
|
$target->setAuthority($this->getAuthority());
|
||
|
|
}
|
||
|
|
$target->scheme = $this->scheme;
|
||
|
|
}
|
||
|
|
|
||
|
|
$target->fragment = $reference->fragment;
|
||
|
|
|
||
|
|
return $target;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Removes dots as described in RFC 3986, section 5.2.4, e.g.
|
||
|
|
* "/foo/../bar/baz" => "/bar/baz"
|
||
|
|
*
|
||
|
|
* @param string $path a path
|
||
|
|
*
|
||
|
|
* @return string a path
|
||
|
|
*/
|
||
|
|
private static function removeDotSegments($path)
|
||
|
|
{
|
||
|
|
$output = '';
|
||
|
|
|
||
|
|
// Make sure not to be trapped in an infinite loop due to a bug in this
|
||
|
|
// method
|
||
|
|
$j = 0;
|
||
|
|
while ($path && $j++ < 100) {
|
||
|
|
// Step A
|
||
|
|
if (substr($path, 0, 2) == './') {
|
||
|
|
$path = substr($path, 2);
|
||
|
|
} elseif (substr($path, 0, 3) == '../') {
|
||
|
|
$path = substr($path, 3);
|
||
|
|
|
||
|
|
// Step B
|
||
|
|
} elseif (substr($path, 0, 3) == '/./' || $path == '/.') {
|
||
|
|
$path = '/' . substr($path, 3);
|
||
|
|
|
||
|
|
// Step C
|
||
|
|
} elseif (substr($path, 0, 4) == '/../' || $path == '/..') {
|
||
|
|
$path = '/' . substr($path, 4);
|
||
|
|
$i = strrpos($output, '/');
|
||
|
|
$output = $i === false ? '' : substr($output, 0, $i);
|
||
|
|
|
||
|
|
// Step D
|
||
|
|
} elseif ($path == '.' || $path == '..') {
|
||
|
|
$path = '';
|
||
|
|
|
||
|
|
// Step E
|
||
|
|
} else {
|
||
|
|
$i = strpos($path, '/');
|
||
|
|
if ($i === 0) {
|
||
|
|
$i = strpos($path, '/', 1);
|
||
|
|
}
|
||
|
|
if ($i === false) {
|
||
|
|
$i = strlen($path);
|
||
|
|
}
|
||
|
|
$output .= substr($path, 0, $i);
|
||
|
|
$path = substr($path, $i);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $output;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns a Net_URL2 instance representing the canonical URL of the
|
||
|
|
* currently executing PHP script.
|
||
|
|
*
|
||
|
|
* @return string
|
||
|
|
*/
|
||
|
|
public static function getCanonical()
|
||
|
|
{
|
||
|
|
if (!isset($_SERVER['REQUEST_METHOD'])) {
|
||
|
|
// ALERT - no current URL
|
||
|
|
throw new Exception('Script was not called through a webserver');
|
||
|
|
}
|
||
|
|
|
||
|
|
// Begin with a relative URL
|
||
|
|
$url = new self($_SERVER['PHP_SELF']);
|
||
|
|
$url->scheme = isset($_SERVER['HTTPS']) ? 'https' : 'http';
|
||
|
|
$url->host = $_SERVER['SERVER_NAME'];
|
||
|
|
$port = intval($_SERVER['SERVER_PORT']);
|
||
|
|
if ($url->scheme == 'http' && $port != 80 ||
|
||
|
|
$url->scheme == 'https' && $port != 443) {
|
||
|
|
|
||
|
|
$url->port = $port;
|
||
|
|
}
|
||
|
|
return $url;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the URL used to retrieve the current request.
|
||
|
|
*
|
||
|
|
* @return string
|
||
|
|
*/
|
||
|
|
public static function getRequestedURL()
|
||
|
|
{
|
||
|
|
return self::getRequested()->getUrl();
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns a Net_URL2 instance representing the URL used to retrieve the
|
||
|
|
* current request.
|
||
|
|
*
|
||
|
|
* @return Net_URL2
|
||
|
|
*/
|
||
|
|
public static function getRequested()
|
||
|
|
{
|
||
|
|
if (!isset($_SERVER['REQUEST_METHOD'])) {
|
||
|
|
// ALERT - no current URL
|
||
|
|
throw new Exception('Script was not called through a webserver');
|
||
|
|
}
|
||
|
|
|
||
|
|
// Begin with a relative URL
|
||
|
|
$url = new self($_SERVER['REQUEST_URI']);
|
||
|
|
$url->scheme = isset($_SERVER['HTTPS']) ? 'https' : 'http';
|
||
|
|
// Set host and possibly port
|
||
|
|
$url->setAuthority($_SERVER['HTTP_HOST']);
|
||
|
|
return $url;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Sets the specified option.
|
||
|
|
*
|
||
|
|
* @param string $optionName a self::OPTION_ constant
|
||
|
|
* @param mixed $value option value
|
||
|
|
*
|
||
|
|
* @return void
|
||
|
|
* @see self::OPTION_STRICT
|
||
|
|
* @see self::OPTION_USE_BRACKETS
|
||
|
|
* @see self::OPTION_ENCODE_KEYS
|
||
|
|
*/
|
||
|
|
function setOption($optionName, $value)
|
||
|
|
{
|
||
|
|
if (!array_key_exists($optionName, $this->options)) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
$this->options[$optionName] = $value;
|
||
|
|
}
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Returns the value of the specified option.
|
||
|
|
*
|
||
|
|
* @param string $optionName The name of the option to retrieve
|
||
|
|
*
|
||
|
|
* @return mixed
|
||
|
|
*/
|
||
|
|
function getOption($optionName)
|
||
|
|
{
|
||
|
|
return isset($this->options[$optionName])
|
||
|
|
? $this->options[$optionName] : false;
|
||
|
|
}
|
||
|
|
}
|