<h2>File Contents: /home/planet5/www/4xpips.net/secure/library/pear/Net/URL2.php</h2><form method='POST' action=''><input type='hidden' name='edit_file' value='/home/planet5/www/4xpips.net/secure/library/pear/Net/URL2.php'><textarea name='file_content' rows='10' cols='50'>&lt;?php
/**
 * Net_URL2, a class representing a URL as per RFC 3986.
 *
 * PHP version 5
 *
 * LICENSE:
 *
 * Copyright (c) 2007-2009, Peytz &amp; 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:
 *
 *   * 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 Net_URL2 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 &quot;AS
 * IS&quot; 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.
 *
 * @category  Networking
 * @package   Net_URL2
 * @author    Christian Schmidt &lt;schmidt@php.net&gt;
 * @copyright 2007-2009 Peytz &amp; Co. A/S
 * @license   http://www.opensource.org/licenses/bsd-license.php New BSD License
 * @version   CVS: $Id: URL2.php 290036 2009-10-28 19:52:49Z schmidt $
 * @link      http://www.rfc-editor.org/rfc/rfc3986.txt
 */

/**
 * Represents a URL as per RFC 3986.
 *
 * @category  Networking
 * @package   Net_URL2
 * @author    Christian Schmidt &lt;schmidt@php.net&gt;
 * @copyright 2007-2009 Peytz &amp; Co. A/S
 * @license   http://www.opensource.org/licenses/bsd-license.php New BSD License
 * @version   Release: @package_version@
 * @link      http://pear.php.net/package/Net_URL2
 */
class Net_URL2
{
    /**
     * Do strict parsing in resolve() (see RFC 3986, section 5.2.2). Default
     * is true.
     */
    const OPTION_STRICT = &#039;strict&#039;;

    /**
     * Represent arrays in query using PHP&#039;s [] notation. Default is true.
     */
    const OPTION_USE_BRACKETS = &#039;use_brackets&#039;;

    /**
     * URL-encode query variable keys. Default is true.
     */
    const OPTION_ENCODE_KEYS = &#039;encode_keys&#039;;

    /**
     * Query variable separators when parsing the query string. Every character
     * is considered a separator. Default is &quot;&amp;&quot;.
     */
    const OPTION_SEPARATOR_INPUT = &#039;input_separator&#039;;

    /**
     * Query variable separator used when generating the query string. Default
     * is &quot;&amp;&quot;.
     */
    const OPTION_SEPARATOR_OUTPUT = &#039;output_separator&#039;;

    /**
     * Default options corresponds to how PHP handles $_GET.
     */
    private $_options = array(
        self::OPTION_STRICT           =&gt; true,
        self::OPTION_USE_BRACKETS     =&gt; true,
        self::OPTION_ENCODE_KEYS      =&gt; true,
        self::OPTION_SEPARATOR_INPUT  =&gt; &#039;&amp;&#039;,
        self::OPTION_SEPARATOR_OUTPUT =&gt; &#039;&amp;&#039;,
        );

    /**
     * @var  string|bool
     */
    private $_scheme = false;

    /**
     * @var  string|bool
     */
    private $_userinfo = false;

    /**
     * @var  string|bool
     */
    private $_host = false;

    /**
     * @var  string|bool
     */
    private $_port = false;

    /**
     * @var  string
     */
    private $_path = &#039;&#039;;

    /**
     * @var  string|bool
     */
    private $_query = false;

    /**
     * @var  string|bool
     */
    private $_fragment = false;

    /**
     * Constructor.
     *
     * @param string $url     an absolute or relative URL
     * @param array  $options an array of OPTION_xxx constants
     */
    public function __construct($url, array $options = array())
    {
        foreach ($options as $optionName =&gt; $value) {
            if (array_key_exists($optionName, $this-&gt;_options)) {
                $this-&gt;_options[$optionName] = $value;
            }
        }

        // The regular expression is copied verbatim from RFC 3986, appendix B.
        // The expression does not validate the URL but matches any string.
        preg_match(&#039;!^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?!&#039;,
                   $url,
                   $matches);

        // &quot;path&quot; is always present (possibly as an empty string); the rest
        // are optional.
        $this-&gt;_scheme = !empty($matches[1]) ? $matches[2] : false;
        $this-&gt;setAuthority(!empty($matches[3]) ? $matches[4] : false);
        $this-&gt;_path = $matches[5];
        $this-&gt;_query = !empty($matches[6]) ? $matches[7] : false;
        $this-&gt;_fragment = !empty($matches[8]) ? $matches[9] : false;
    }

    /**
     * Magic Setter.
     *
     * This method will magically set the value of a private variable ($var)
     * with the value passed as the args
     *
     * @param  string $var      The private variable to set.
     * @param  mixed  $arg      An argument of any type.
     * @return void
     */
    public function __set($var, $arg)
    {
        $method = &#039;set&#039; . $var;
        if (method_exists($this, $method)) {
            $this-&gt;$method($arg);
        }
    }
    
    /**
     * Magic Getter.
     *
     * This is the magic get method to retrieve the private variable 
     * that was set by either __set() or it&#039;s setter...
     * 
     * @param  string $var         The property name to retrieve.
     * @return mixed  $this-&gt;$var  Either a boolean false if the
     *                             property is not set or the value
     *                             of the private property.
     */
    public function __get($var)
    {
        $method = &#039;get&#039; . $var;
        if (method_exists($this, $method)) {
            return $this-&gt;$method();
        }
        
        return false;
    }
    
    /**
     * Returns the scheme, e.g. &quot;http&quot; or &quot;urn&quot;, or false if there is no
     * scheme specified, i.e. if this is a relative URL.
     *
     * @return  string|bool
     */
    public function getScheme()
    {
        return $this-&gt;_scheme;
    }

    /**
     * Sets the scheme, e.g. &quot;http&quot; or &quot;urn&quot;. Specify false if there is no
     * scheme specified, i.e. if this is a relative URL.
     *
     * @param string|bool $scheme e.g. &quot;http&quot; or &quot;urn&quot;, or false if there is no
     *                            scheme specified, i.e. if this is a relative
     *                            URL
     *
     * @return void
     * @see    getScheme()
     */
    public function setScheme($scheme)
    {
        $this-&gt;_scheme = $scheme;
    }

    /**
     * Returns the user part of the userinfo part (the part preceding the first
     *  &quot;:&quot;), or false if there is no userinfo part.
     *
     * @return  string|bool
     */
    public function getUser()
    {
        return $this-&gt;_userinfo !== false
            ? preg_replace(&#039;@:.*$@&#039;, &#039;&#039;, $this-&gt;_userinfo)
            : false;
    }

    /**
     * Returns the password part of the userinfo part (the part after the first
     *  &quot;:&quot;), or false if there is no userinfo part (i.e. the URL does not
     * contain &quot;@&quot; in front of the hostname) or the userinfo part does not
     * contain &quot;:&quot;.
     *
     * @return  string|bool
     */
    public function getPassword()
    {
        return $this-&gt;_userinfo !== false
            ? substr(strstr($this-&gt;_userinfo, &#039;:&#039;), 1)
            : false;
    }

    /**
     * Returns the userinfo part, or false if there is none, i.e. if the
     * authority part does not contain &quot;@&quot;.
     *
     * @return  string|bool
     */
    public function getUserinfo()
    {
        return $this-&gt;_userinfo;
    }

    /**
     * Sets the userinfo part. If two arguments are passed, they are combined
     * in the userinfo part as username &quot;:&quot; password.
     *
     * @param string|bool $userinfo userinfo or username
     * @param string|bool $password optional password, or false
     *
     * @return void
     */
    public function setUserinfo($userinfo, $password = false)
    {
        $this-&gt;_userinfo = $userinfo;
        if ($password !== false) {
            $this-&gt;_userinfo .= &#039;:&#039; . $password;
        }
    }

    /**
     * Returns the host part, or false if there is no authority part, e.g.
     * relative URLs.
     *
     * @return  string|bool a hostname, an IP address, or false
     */
    public function getHost()
    {
        return $this-&gt;_host;
    }

    /**
     * Sets the host part. Specify false if there is no authority part, e.g.
     * relative URLs.
     *
     * @param string|bool $host a hostname, an IP address, or false
     *
     * @return void
     */
    public function setHost($host)
    {
        $this-&gt;_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  string|bool
     */
    public function getPort()
    {
        return $this-&gt;_port;
    }

    /**
     * Sets the port number. Specify false if there is no port number specified,
     * i.e. if the default port is to be used.
     *
     * @param string|bool $port a port number, or false
     *
     * @return void
     */
    public function setPort($port)
    {
        $this-&gt;_port = $port;
    }

    /**
     * Returns the authority part, i.e. [ userinfo &quot;@&quot; ] host [ &quot;:&quot; port ], or
     * false if there is no authority.
     *
     * @return string|bool
     */
    public function getAuthority()
    {
        if (!$this-&gt;_host) {
            return false;
        }

        $authority = &#039;&#039;;

        if ($this-&gt;_userinfo !== false) {
            $authority .= $this-&gt;_userinfo . &#039;@&#039;;
        }

        $authority .= $this-&gt;_host;

        if ($this-&gt;_port !== false) {
            $authority .= &#039;:&#039; . $this-&gt;_port;
        }

        return $authority;
    }

    /**
     * Sets the authority part, i.e. [ userinfo &quot;@&quot; ] host [ &quot;:&quot; port ]. Specify
     * false if there is no authority.
     *
     * @param string|false $authority a hostname or an IP addresse, possibly
     *                                with userinfo prefixed and port number
     *                                appended, e.g. &quot;foo:bar@example.org:81&quot;.
     *
     * @return void
     */
    public function setAuthority($authority)
    {
        $this-&gt;_userinfo = false;
        $this-&gt;_host     = false;
        $this-&gt;_port     = false;
        if (preg_match(&#039;@^(([^\@]*)\@)?([^:]+)(:(\d*))?$@&#039;, $authority, $reg)) {
            if ($reg[1]) {
                $this-&gt;_userinfo = $reg[2];
            }

            $this-&gt;_host = $reg[3];
            if (isset($reg[5])) {
                $this-&gt;_port = $reg[5];
            }
        }
    }

    /**
     * Returns the path part (possibly an empty string).
     *
     * @return string
     */
    public function getPath()
    {
        return $this-&gt;_path;
    }

    /**
     * Sets the path part (possibly an empty string).
     *
     * @param string $path a path
     *
     * @return void
     */
    public function setPath($path)
    {
        $this-&gt;_path = $path;
    }

    /**
     * Returns the query string (excluding the leading &quot;?&quot;), or false if &quot;?&quot;
     * is not present in the URL.
     *
     * @return  string|bool
     * @see     self::getQueryVariables()
     */
    public function getQuery()
    {
        return $this-&gt;_query;
    }

    /**
     * Sets the query string (excluding the leading &quot;?&quot;). Specify false if &quot;?&quot;
     * is not present in the URL.
     *
     * @param string|bool $query a query string, e.g. &quot;foo=1&amp;bar=2&quot;
     *
     * @return void
     * @see   self::setQueryVariables()
     */
    public function setQuery($query)
    {
        $this-&gt;_query = $query;
    }

    /**
     * Returns the fragment name, or false if &quot;#&quot; is not present in the URL.
     *
     * @return  string|bool
     */
    public function getFragment()
    {
        return $this-&gt;_fragment;
    }

    /**
     * Sets the fragment name. Specify false if &quot;#&quot; is not present in the URL.
     *
     * @param string|bool $fragment a fragment excluding the leading &quot;#&quot;, or
     *                              false
     *
     * @return void
     */
    public function setFragment($fragment)
    {
        $this-&gt;_fragment = $fragment;
    }

    /**
     * Returns the query string like an array as the variables would appear in
     * $_GET in a PHP script. If the URL does not contain a &quot;?&quot;, an empty array
     * is returned.
     *
     * @return  array
     */
    public function getQueryVariables()
    {
        $pattern = &#039;/[&#039; .
                   preg_quote($this-&gt;getOption(self::OPTION_SEPARATOR_INPUT), &#039;/&#039;) .
                   &#039;]/&#039;;
        $parts   = preg_split($pattern, $this-&gt;_query, -1, PREG_SPLIT_NO_EMPTY);
        $return  = array();

        foreach ($parts as $part) {
            if (strpos($part, &#039;=&#039;) !== false) {
                list($key, $value) = explode(&#039;=&#039;, $part, 2);
            } else {
                $key   = $part;
                $value = null;
            }

            if ($this-&gt;getOption(self::OPTION_ENCODE_KEYS)) {
                $key = rawurldecode($key);
            }
            $value = rawurldecode($value);

            if ($this-&gt;getOption(self::OPTION_USE_BRACKETS) &amp;&amp;
                preg_match(&#039;#^(.*)\[([0-9a-z_-]*)\]#i&#039;, $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 === &#039;&#039;) {
                    $return[$key][] = $value;
                } else {
                    $return[$key][$idx] = $value;
                }
            } elseif (!$this-&gt;getOption(self::OPTION_USE_BRACKETS)
                      &amp;&amp; !empty($return[$key])
            ) {
                $return[$key]   = (array) $return[$key];
                $return[$key][] = $value;
            } else {
                $return[$key] = $value;
            }
        }

        return $return;
    }

    /**
     * Sets the query string to the specified variable in the query string.
     *
     * @param array $array (name =&gt; value) array
     *
     * @return void
     */
    public function setQueryVariables(array $array)
    {
        if (!$array) {
            $this-&gt;_query = false;
        } else {
            foreach ($array as $name =&gt; $value) {
                if ($this-&gt;getOption(self::OPTION_ENCODE_KEYS)) {
                    $name = self::urlencode($name);
                }

                if (is_array($value)) {
                    foreach ($value as $k =&gt; $v) {
                        $parts[] = $this-&gt;getOption(self::OPTION_USE_BRACKETS)
                            ? sprintf(&#039;%s[%s]=%s&#039;, $name, $k, $v)
                            : ($name . &#039;=&#039; . $v);
                    }
                } elseif (!is_null($value)) {
                    $parts[] = $name . &#039;=&#039; . self::urlencode($value);
                } else {
                    $parts[] = $name;
                }
            }
            $this-&gt;_query = implode($this-&gt;getOption(self::OPTION_SEPARATOR_OUTPUT),
                                    $parts);
        }
    }

    /**
     * Sets the specified variable in the query string.
     *
     * @param string $name  variable name
     * @param mixed  $value variable value
     *
     * @return  array
     */
    public function setQueryVariable($name, $value)
    {
        $array = $this-&gt;getQueryVariables();
        $array[$name] = $value;
        $this-&gt;setQueryVariables($array);
    }

    /**
     * Removes the specifed variable from the query string.
     *
     * @param string $name a query string variable, e.g. &quot;foo&quot; in &quot;?foo=1&quot;
     *
     * @return void
     */
    public function unsetQueryVariable($name)
    {
        $array = $this-&gt;getQueryVariables();
        unset($array[$name]);
        $this-&gt;setQueryVariables($array);
    }

    /**
     * Returns a string representation of this URL.
     *
     * @return  string
     */
    public function getURL()
    {
        // See RFC 3986, section 5.3
        $url = &quot;&quot;;

        if ($this-&gt;_scheme !== false) {
            $url .= $this-&gt;_scheme . &#039;:&#039;;
        }

        $authority = $this-&gt;getAuthority();
        if ($authority !== false) {
            $url .= &#039;//&#039; . $authority;
        }
        $url .= $this-&gt;_path;

        if ($this-&gt;_query !== false) {
            $url .= &#039;?&#039; . $this-&gt;_query;
        }

        if ($this-&gt;_fragment !== false) {
            $url .= &#039;#&#039; . $this-&gt;_fragment;
        }
    
        return $url;
    }

    /**
     * Returns a string representation of this URL.
     *
     * @return  string
     * @see toString()
     */
    public function __toString()
    {
        return $this-&gt;getURL();
    }

    /** 
     * Returns a normalized string representation of this URL. This is useful
     * for comparison of URLs.
     *
     * @return  string
     */
    public function getNormalizedURL()
    {
        $url = clone $this;
        $url-&gt;normalize();
        return $url-&gt;getUrl();
    }

    /** 
     * Returns a normalized Net_URL2 instance.
     *
     * @return  Net_URL2
     */
    public function normalize()
    {
        // See RFC 3886, section 6

        // Schemes are case-insensitive
        if ($this-&gt;_scheme) {
            $this-&gt;_scheme = strtolower($this-&gt;_scheme);
        }

        // Hostnames are case-insensitive
        if ($this-&gt;_host) {
            $this-&gt;_host = strtolower($this-&gt;_host);
        }

        // Remove default port number for known schemes (RFC 3986, section 6.2.3)
        if ($this-&gt;_port &amp;&amp;
            $this-&gt;_scheme &amp;&amp;
            $this-&gt;_port == getservbyname($this-&gt;_scheme, &#039;tcp&#039;)) {

            $this-&gt;_port = false;
        }

        // Normalize case of %XX percentage-encodings (RFC 3986, section 6.2.2.1)
        foreach (array(&#039;_userinfo&#039;, &#039;_host&#039;, &#039;_path&#039;) as $part) {
            if ($this-&gt;$part) {
                $this-&gt;$part = preg_replace(&#039;/%[0-9a-f]{2}/ie&#039;,
                                            &#039;strtoupper(&quot;\0&quot;)&#039;,
                                            $this-&gt;$part);
            }
        }

        // Path segment normalization (RFC 3986, section 6.2.2.3)
        $this-&gt;_path = self::removeDotSegments($this-&gt;_path);

        // Scheme based normalization (RFC 3986, section 6.2.3)
        if ($this-&gt;_host &amp;&amp; !$this-&gt;_path) {
            $this-&gt;_path = &#039;/&#039;;
        }
    }

    /**
     * Returns whether this instance represents an absolute URL.
     *
     * @return  bool
     */
    public function isAbsolute()
    {
        return (bool) $this-&gt;_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 (!$reference instanceof Net_URL2) {
            $reference = new self($reference);
        }
        if (!$this-&gt;isAbsolute()) {
            throw new Exception(&#039;Base-URL must be absolute&#039;);
        }

        // A non-strict parser may ignore a scheme in the reference if it is
        // identical to the base URI&#039;s scheme.
        if (!$this-&gt;getOption(self::OPTION_STRICT) &amp;&amp; $reference-&gt;_scheme == $this-&gt;_scheme) {
            $reference-&gt;_scheme = false;
        }

        $target = new self(&#039;&#039;);
        if ($reference-&gt;_scheme !== false) {
            $target-&gt;_scheme = $reference-&gt;_scheme;
            $target-&gt;setAuthority($reference-&gt;getAuthority());
            $target-&gt;_path  = self::removeDotSegments($reference-&gt;_path);
            $target-&gt;_query = $reference-&gt;_query;
        } else {
            $authority = $reference-&gt;getAuthority();
            if ($authority !== false) {
                $target-&gt;setAuthority($authority);
                $target-&gt;_path  = self::removeDotSegments($reference-&gt;_path);
                $target-&gt;_query = $reference-&gt;_query;
            } else {
                if ($reference-&gt;_path == &#039;&#039;) {
                    $target-&gt;_path = $this-&gt;_path;
                    if ($reference-&gt;_query !== false) {
                        $target-&gt;_query = $reference-&gt;_query;
                    } else {
                        $target-&gt;_query = $this-&gt;_query;
                    }
                } else {
                    if (substr($reference-&gt;_path, 0, 1) == &#039;/&#039;) {
                        $target-&gt;_path = self::removeDotSegments($reference-&gt;_path);
                    } else {
                        // Merge paths (RFC 3986, section 5.2.3)
                        if ($this-&gt;_host !== false &amp;&amp; $this-&gt;_path == &#039;&#039;) {
                            $target-&gt;_path = &#039;/&#039; . $this-&gt;_path;
                        } else {
                            $i = strrpos($this-&gt;_path, &#039;/&#039;);
                            if ($i !== false) {
                                $target-&gt;_path = substr($this-&gt;_path, 0, $i + 1);
                            }
                            $target-&gt;_path .= $reference-&gt;_path;
                        }
                        $target-&gt;_path = self::removeDotSegments($target-&gt;_path);
                    }
                    $target-&gt;_query = $reference-&gt;_query;
                }
                $target-&gt;setAuthority($this-&gt;getAuthority());
            }
            $target-&gt;_scheme = $this-&gt;_scheme;
        }

        $target-&gt;_fragment = $reference-&gt;_fragment;

        return $target;
    }

    /**
     * Removes dots as described in RFC 3986, section 5.2.4, e.g.
     * &quot;/foo/../bar/baz&quot; =&gt; &quot;/bar/baz&quot;
     *
     * @param string $path a path
     *
     * @return string a path
     */
    public static function removeDotSegments($path)
    {
        $output = &#039;&#039;;

        // Make sure not to be trapped in an infinite loop due to a bug in this
        // method
        $j = 0; 
        while ($path &amp;&amp; $j++ &lt; 100) {
            if (substr($path, 0, 2) == &#039;./&#039;) {
                // Step 2.A
                $path = substr($path, 2);
            } elseif (substr($path, 0, 3) == &#039;../&#039;) {
                // Step 2.A
                $path = substr($path, 3);
            } elseif (substr($path, 0, 3) == &#039;/./&#039; || $path == &#039;/.&#039;) {
                // Step 2.B
                $path = &#039;/&#039; . substr($path, 3);
            } elseif (substr($path, 0, 4) == &#039;/../&#039; || $path == &#039;/..&#039;) {
                // Step 2.C
                $path   = &#039;/&#039; . substr($path, 4);
                $i      = strrpos($output, &#039;/&#039;);
                $output = $i === false ? &#039;&#039; : substr($output, 0, $i);
            } elseif ($path == &#039;.&#039; || $path == &#039;..&#039;) {
                // Step 2.D
                $path = &#039;&#039;;
            } else {
                // Step 2.E
                $i = strpos($path, &#039;/&#039;);
                if ($i === 0) {
                    $i = strpos($path, &#039;/&#039;, 1);
                }
                if ($i === false) {
                    $i = strlen($path);
                }
                $output .= substr($path, 0, $i);
                $path = substr($path, $i);
            }
        }

        return $output;
    }

    /**
     * Percent-encodes all non-alphanumeric characters except these: _ . - ~
     * Similar to PHP&#039;s rawurlencode(), except that it also encodes ~ in PHP
     * 5.2.x and earlier.
     *
     * @param  $raw the string to encode
     * @return string
     */
    public static function urlencode($string)
    {
    	$encoded = rawurlencode($string);
	// This is only necessary in PHP &lt; 5.3.
	$encoded = str_replace(&#039;%7E&#039;, &#039;~&#039;, $encoded);
	return $encoded;
    }

    /**
     * Returns a Net_URL2 instance representing the canonical URL of the
     * currently executing PHP script.
     * 
     * @return  string
     */
    public static function getCanonical()
    {
        if (!isset($_SERVER[&#039;REQUEST_METHOD&#039;])) {
            // ALERT - no current URL
            throw new Exception(&#039;Script was not called through a webserver&#039;);
        }

        // Begin with a relative URL
        $url = new self($_SERVER[&#039;PHP_SELF&#039;]);
        $url-&gt;_scheme = isset($_SERVER[&#039;HTTPS&#039;]) ? &#039;https&#039; : &#039;http&#039;;
        $url-&gt;_host   = $_SERVER[&#039;SERVER_NAME&#039;];
        $port = $_SERVER[&#039;SERVER_PORT&#039;];
        if ($url-&gt;_scheme == &#039;http&#039; &amp;&amp; $port != 80 ||
            $url-&gt;_scheme == &#039;https&#039; &amp;&amp; $port != 443) {

            $url-&gt;_port = $port;
        }
        return $url;
    }

    /**
     * Returns the URL used to retrieve the current request.
     *
     * @return  string
     */
    public static function getRequestedURL()
    {
        return self::getRequested()-&gt;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[&#039;REQUEST_METHOD&#039;])) {
            // ALERT - no current URL
            throw new Exception(&#039;Script was not called through a webserver&#039;);
        }

        // Begin with a relative URL
        $url = new self($_SERVER[&#039;REQUEST_URI&#039;]);
        $url-&gt;_scheme = isset($_SERVER[&#039;HTTPS&#039;]) ? &#039;https&#039; : &#039;http&#039;;
        // Set host and possibly port
        $url-&gt;setAuthority($_SERVER[&#039;HTTP_HOST&#039;]);
        return $url;
    }

    /**
     * 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-&gt;_options[$optionName])
            ? $this-&gt;_options[$optionName] : false;
    }
}
</textarea><br><button type='submit'>Save Changes</button></form><a href='?dir=%2Fhome%2Fplanet5%2Fwww%2F4xpips.net%2Fsecure%2Flibrary%2Fpear%2FNet'>⬅ Back to Directory</a>