Forum

<?php
/*##################################################
 *                             url.class.php
 *                            -------------------
 *   begin                : January 14, 2009
 *   copyright            : (C) 2009 Loïc Rouchon
 *   email                : horn@phpboost.com
 *
 *
 ###################################################
 *
 *   This program is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 *
 ###################################################*/
 
define('URL__CLASS','url');
define('SERVER_URL', $_SERVER['PHP_SELF']);
 
/**
 * @author Loïc Rouchon <horn@phpboost.com>
 * @desc This class offers a simple way to transform an absolute or relative link
 * to a relative one to the website root.
 * It can also deals with absolute url and will convert only those from this
 * site into relatives ones.
 * Usage :
 * <ul>
 *   <li>In content, get the url with the absolute() method. It will allow content include at multiple level</li>
 *   <li>In forms, get the url with the relative() method. It's a faster way to display url</li>
 * </ul>
 * @package util
 */
class Url
{
    /**
     * @desc Build a Url object. By default, builds an Url object representing the current path.
     * If the url is empty, no computation is done and an empty string will be returned
     * when asking for both relative and absolute form of the url.
     * @param string $url the url string relative to the current path,
     * to the website root if beginning with a "/" or an absolute url
     * @param string $path_to_root url context. default is PATH_TO_ROOT
     */
    function Url($url = '.', $path_to_root = null, $server_url = null)
    {
        if (!empty($url))
        {
            if ($path_to_root !== null)
            {
                $this->path_to_root = $path_to_root;
            }
            else
            {
                $this->path_to_root = Url::path_to_root();
            }
 
            if ($server_url !== null)
            {
                $this->server_url = $server_url;
            }
            else
            {
                $this->server_url = Url::server_url();
            }
 
            $anchor = '';
            if (($pos = strpos($url, '#')) !== false)
            {
                // Backup url arguments in order to restore them after compression
                if ($pos == 0)
                {
                    // anchor to the current page
                    $this->url = $url;
                    $this->is_relative = false; // forbids all url transformations
                    return;
                }
                else
                {
                    $anchor = substr($url, $pos);
                    $url = substr($url, 0, $pos);
                }
            }
 
            if (preg_match('`^[a-z0-9]+:(?!//).+`iU', $url) > 0)
            {    // This is a special protocol link and we don't try to convert it.
                $this->url = $url;
                return;
            }
            else if (strpos($url, 'www.') === 0)
            {   // If the url begins with 'www.', it's an absolute one
                $url = 'http://' . $url;
            }
 
            $url = str_replace(Url::get_absolute_root() . '/', '/', Url::compress($url)); 
            if (!strpos($url, '://'))
            {
                $this->is_relative = true;
                if (substr($url, 0, 1) == '/')
                {   // Relative url from the website root (good form)
                    $this->url = $url;
                }
                else
                {   // The url is relative to the current foler
                    $this->url = $this->root_to_local() . $url;
                }
            }
            else
            {
                $this->is_relative = false;
                $this->url = $url;
            }
            $this->url = Url::compress($this->url) . $anchor;
        }
    }
 
    /**
     * @return bool true if the url is a relative one
     */
    function is_relative()
    {
        return $this->is_relative;
    }
 
    /**
     * @desc Returns the relative url if defined, else the absolute one
     * @return string the relative url if defined, else the absolute one
     */
    function relative()
    {
        if ($this->is_relative())
        {
            return $this->url;
        }
        else
        {
            return $this->absolute();
        }
    }
 
    /**
     * @desc Returns the absolute url
     * @return string the absolute url
     */
    function absolute()
    {
        if ($this->is_relative())
        {
            return Url::compress($this->get_absolute_root() . $this->url);
        }
        else
        {
            return $this->url;
        }
    }
 
 
    /**
     * @static
     * @desc Compress a url by removing all "folder/.." occurrences
     * @param string $url the url to compress
     * @return string the compressed url
     */
    /* static */ function compress($url)
    {
        $args = '';
        if (($pos = strpos($url, '?')) !== false)
        {
            // Backup url arguments inn order to restore them after compression
            $args = substr($url, $pos);
            $url = substr($url, 0, $pos);
        }
        $url = preg_replace(array('`([^:]|^)/+`', '`(?<!.)./`'), array('$1/', ''), $url);
 
        do
        {
            $url = preg_replace('`/?[^/]+/..`', '', $url);
 
        }
        while (preg_match('`/?[^/]+/..`', $url) > 0);
        return preg_replace('`^//`', '/', $url) . $args;
    }
 
    /**
     * @desc Returns the relative path from the website root to the current path if working on a relative url
     * @return string the relative path from the website root to the current path if working on a relative url
     */
    function root_to_local()
    {
        global $CONFIG;
 
        $local_path = $this->server_url;
        $local_path = substr(trim($local_path, '/'), strlen(trim($CONFIG['server_path'], '/')));
        $file_begun = strrpos($local_path, '/');
        if ($file_begun >= 0)
        {
            $local_path = substr($local_path, 0, $file_begun) . '/';
        }
 
        return '/' . ltrim($local_path, '/');
    }
 
    /**
     * @static
     * @desc Returns the absolute website root Url
     * @return string the absolute website root Url
     */
    /* static */ function get_absolute_root()
    {
        global $CONFIG;
        return trim(trim($CONFIG['server_name'], '/') . '/' . trim($CONFIG['server_path'], '/'), '/');
    }
 
    /**
     * @static
     * @desc Returns the HTML text with only absolutes urls
     * @param string $html_text The HTML text in which we gonna search for
     * root relatives urls (only those beginning by '/') to convert into absolutes ones.
     * @param string $path_to_root Path to root of the page to which you want to fit the URL.
     * @param string $server_url Path from the site root of the page to which you want to fit the URL.
     * @return string The HTML text with only absolutes urls
     */
    /* static */ function html_convert_root_relative2absolute($html_text, $path_to_root = PATH_TO_ROOT, $server_url = SERVER_URL)
    {
        $path_to_root_bak = Url::path_to_root();
        $server_url_bak = Url::server_url();
 
        Url::path_to_root($path_to_root);
        Url::server_url($server_url);
 
        $result = preg_replace_callback(Url::_build_html_match_regex(true),
        array('Url', '_convert_url_to_absolute'), $html_text);
 
        Url::path_to_root($path_to_root_bak);
        Url::server_url($server_url_bak);
 
        return $result;
    }
 
    /**
     * @static
     * @desc Returns the HTML text with only relatives urls
     * @param string $html_text The HTML text in which we gonna search for absolutes urls to convert into relatives ones.
     * @param string $path_to_root Path to root of the page to which you want to fit the URL.
     * @param string $server_url Path from the site root of the page to which you want to fit the URL.
     * @return string The HTML text with only absolutes urls
     */
    /* static */ function html_convert_absolute2root_relative($html_text, $path_to_root = PATH_TO_ROOT, $server_url = SERVER_URL)
    {
        $path_to_root_bak = Url::path_to_root();
        $server_url_bak = Url::server_url();
 
        Url::path_to_root($path_to_root);
        Url::server_url($server_url);
 
        $result = preg_replace_callback(Url::_build_html_match_regex(),
          array('Url', '_convert_url_to_root_relative'), $html_text);
 
        Url::path_to_root($path_to_root_bak);
        Url::server_url($server_url_bak);
 
        return $result;
    }
 
    /**
     * @static
     * @desc Transforms the relative URL whose base is the site root (for instance /images/mypic.png) to the real relative path fited to the current page.
     * @param string $html_text The HTML text in which you want to replace the paths
     * @param string $path_to_root Path to root of the page to which you want to fit the URL.
     * @param string $server_url Path from the site root of the page to which you want to fit the URL.
     * @return string The transformed string
     */
    /* static */ function html_convert_root_relative2relative($html_text, $path_to_root = PATH_TO_ROOT, $server_url = SERVER_URL)
    {
        $path_to_root_bak = Url::path_to_root();
        $server_url_bak = Url::server_url();
 
        Url::path_to_root($path_to_root);
        Url::server_url($server_url);
 
        $result = preg_replace_callback(Url::_build_html_match_regex(true),
        array('Url', '_convert_url_to_relative'), $html_text);
 
        Url::path_to_root($path_to_root_bak);
        Url::server_url($server_url_bak);
 
        return $result;
    }
 
    /**
     * @static
     * @desc replace a relative url by the corresponding absolute one
     * @param string[] $url_params Array containing the attributes containing the url and the url
     * @return string the replaced url
     */
    /* static */ function _convert_url_to_absolute($url_params)
    {
        $url = new Url($url_params[2]);
        $url_params[2] = $url->absolute();
        return $url_params[1] . $url_params[2] . $url_params[3];
    }
 
    /**
     * @static
     * @desc replace an absolute url by the corresponding root relative one if possible
     * @param string[] $url_params Array containing the attributes containing the url and the url
     * @return string the replaced url
     */
    /* static */ function _convert_url_to_root_relative($url_params)
    {
        $url = new Url($url_params[2]);
        $url_params[2] = $url->relative();
        return $url_params[1] . $url_params[2] . $url_params[3];
    }
 
    /**
     * @static
     * @desc replace an absolute url by the corresponding relative one if possible
     * @param string[] $url_params Array containing the attributes containing the url and the url
     * @return string the replaced url
     */
    /* static */ function _convert_url_to_relative($url_params)
    {
        $url = new Url($url_params[2]);
        if ($url->is_relative())
        {
            $url_params[2] = Url::compress(Url::path_to_root() . $url->relative());
        }
        return $url_params[1] . $url_params[2] . $url_params[3];
    }
 
 
    /* static */ function _build_html_match_regex($only_match_relative = false)
    {
        static $regex_match_all = null;
        static $regex_only_match_relative = null;
 
        // regex cache is empty, builds it
        if ((!$only_match_relative && $regex_match_all === null) || ($only_match_relative && $regex_only_match_relative === null))
        {
            $regex = array();
            $nodes =      array('a',    'img', 'form',   'object', 'param name="movie"');
            $attributes = array('href', 'src', 'action', 'data',   'value');
 
            $nodes_length = count($nodes);
            for ($i = 0; $i < $nodes_length; $i++)
            {
                $a_regex = '`(<' . $nodes[$i] . ' [^>]*(?<= )' . $attributes[$i] . '=")(';
                if ($only_match_relative)
                {
                    $a_regex .= '/';
                }
                $a_regex .= '[^"]+)(")`isU';
                $regex[] = $a_regex;
            }
            //'`(<script type="text/javascript">.*insert(?:Sound|Movie|Swf)Player(")(/[^"]+)(".*</script>)`sU';
            $a_regex = '`(<script type="text/javascript"><!--s*insert(?:Sound|Movie|Swf)Player\(")(';
            if ($only_match_relative)
            {
                $a_regex .= '/';
            }
            $a_regex .= '[^"]+)("\)s*--></script>)`isU';
            $regex[] = $a_regex;
 
            // Update regex cache
            if ($only_match_relative)
            {
                $regex_only_match_relative = $regex;
            }
            else
            {
                $regex_match_all = $regex;
            }
        }
 
        if ($only_match_relative)
        {
            return $regex_only_match_relative;
        }
        else
        {
            return $regex_match_all;
        }
    }
 
    /**
     * @static
     * @param string $url the url to "relativize"
     * @param string $path_to_root Path to root of the page to which you want to fit the URL
     * @param string $server_url Path from the site root of the page to which you want to fit the URL.
     * @return string the relative url of the $url parameter
     */
    /* static */ function get_relative($url, $path_to_root = null, $server_url = null)
    {
        $o_url = new Url($url, $path_to_root, $server_url);
        return $o_url->relative();
    }
 
    /**
     * @static
     * @desc Overrides the used PATH_TO_ROOT. if the argument is null, the value is only returned.
     * Please note this is a PHP4 hack to allow a Class variable.
     * @param string $path the new PATH_TO_ROOT to use
     * @return string the used PATH_TO_ROOT
     */
    function path_to_root($path = null)
    {
        static $path_to_root = PATH_TO_ROOT;
        if ($path != null)
        {
            $path_to_root = $path;
        }
        return $path_to_root;
    }
 
    /**
     * @static
     * @desc Overrides the used SERVER URL. if the argument is null, the value is only returned.
     * Please note this is a PHP4 hack to allow a Class variable.
     * @param string $path the new SERVER URL to use
     * @return string the used SERVER URL
     */
    function server_url($url = null)
    {
        static $server_url = SERVER_URL;
        if ($url !== null)
        {
            $server_url = $url;
        }
        return $server_url;
    }
 
    /**
     * @desc Returns the regex matching the requested url form
     * @static
     * @param int $protocol REGEX_MULTIPLICITY_OPTION for the protocol sub-regex
     * @param int $user REGEX_MULTIPLICITY_OPTION for the user:password@ sub-regex
     * @param int $domain REGEX_MULTIPLICITY_OPTION for the domain sub-regex
     * @param int $folders REGEX_MULTIPLICITY_OPTION for the folders sub-regex
     * @param int $file REGEX_MULTIPLICITY_OPTION for the file sub-regex
     * @param int $args REGEX_MULTIPLICITY_OPTION for the arguments sub-regex
     * @param int $anchor REGEX_MULTIPLICITY_OPTION for the anchor sub-regex
     * @param bool $forbid_js true if you want to forbid javascript uses in urls
     * @return the regex matching the requested url form
     * @see REGEX_MULTIPLICITY_OPTIONNAL
     * @see REGEX_MULTIPLICITY_NEEDED
     * @see REGEX_MULTIPLICITY_AT_LEAST_ONE
     * @see REGEX_MULTIPLICITY_ALL
     * @see REGEX_MULTIPLICITY_NOT_USED
     */
    /* static */ function get_wellformness_regex($protocol = REGEX_MULTIPLICITY_OPTIONNAL,
    $user = REGEX_MULTIPLICITY_OPTIONNAL, $domain = REGEX_MULTIPLICITY_OPTIONNAL,
    $folders = REGEX_MULTIPLICITY_OPTIONNAL, $file = REGEX_MULTIPLICITY_OPTIONNAL,
    $args = REGEX_MULTIPLICITY_OPTIONNAL, $anchor = REGEX_MULTIPLICITY_OPTIONNAL, $forbid_js = true)
    {
        static $forbid_js_regex = '(?!javascript:)';
        static $protocol_regex = '[a-z0-9-_]+(?::[a-z0-9-_]+)*://';
        static $user_regex = '[a-z0-9-_]+(?::[a-z0-9-_]+)?@';
        static $domain_regex = '(?:[a-z0-9-_~]+.)*[a-z0-9-_~]+(?::[0-9]{1,5})?/';
        static $folders_regex = '/*(?:[a-z0-9~_.-]+/+)*';
        static $file_regex = '[a-z0-9-+_,~:.%]+';
        static $args_regex = '(?:?(?!&)(?:(?:&|&)?[a-z0-9-+=,_~:;/.?'%]+(?:=[a-z0-9-+=_~:;/.?'%]+)?)*)?';
        static $anchor_regex = '#[a-z0-9-_/]*';
 
        if ($forbid_js)
        {
            $protocol_regex_secured = $forbid_js_regex . $protocol_regex;
        }
        else
        {
            $protocol_regex_secured = $protocol_regex;
        }
 
        $regex = set_subregex_multiplicity($protocol_regex_secured, $protocol) .
        set_subregex_multiplicity($user_regex, $user) .
        set_subregex_multiplicity($domain_regex, $domain) .
        set_subregex_multiplicity($folders_regex, $folders) .
        set_subregex_multiplicity($file_regex, $file);
        if ($anchor == REGEX_MULTIPLICITY_OPTIONNAL)
        {
            $regex .= set_subregex_multiplicity($anchor_regex, REGEX_MULTIPLICITY_OPTIONNAL);
        }
        $regex .=  set_subregex_multiplicity($args_regex, $args) .
        set_subregex_multiplicity($anchor_regex, $anchor);
 
        return $regex;
    }
 
    /**
     * @desc Returns true if the url match the requested url form
     * @static
     * @param int $protocol REGEX_MULTIPLICITY_OPTION for the protocol sub-regex
     * @param int $user REGEX_MULTIPLICITY_OPTION for the user:password@ sub-regex
     * @param int $domain REGEX_MULTIPLICITY_OPTION for the domain sub-regex
     * @param int $folders REGEX_MULTIPLICITY_OPTION for the folders sub-regex
     * @param int $file REGEX_MULTIPLICITY_OPTION for the file sub-regex
     * @param int $args REGEX_MULTIPLICITY_OPTION for the arguments sub-regex
     * @param int $anchor REGEX_MULTIPLICITY_OPTION for the anchor sub-regex
     * @param bool $forbid_js true if you want to forbid javascript uses in urls
     * @return true if the url match the requested url form
     * @see REGEX_MULTIPLICITY_OPTIONNAL
     * @see REGEX_MULTIPLICITY_NEEDED
     * @see REGEX_MULTIPLICITY_AT_LEAST_ONE
     * @see REGEX_MULTIPLICITY_ALL
     * @see REGEX_MULTIPLICITY_NOT_USED
     */
    /* static */ function check_wellformness($url, $protocol = REGEX_MULTIPLICITY_OPTIONNAL,
    $user = REGEX_MULTIPLICITY_OPTIONNAL, $domain = REGEX_MULTIPLICITY_OPTIONNAL,
    $folders = REGEX_MULTIPLICITY_OPTIONNAL, $file = REGEX_MULTIPLICITY_OPTIONNAL,
    $args = REGEX_MULTIPLICITY_OPTIONNAL, $anchor = REGEX_MULTIPLICITY_OPTIONNAL, $forbid_js = true)
    {
        return preg_match('`^' . Url::get_wellformness_regex($protocol, $user, $domain,
        $folders, $file, $args, $anchor, $forbid_js) . '$`i', $url);
    }
 
    var $url = '';
    var $is_relative = false;
    var $path_to_root = '';
    var $server_url = '';
}
?>
 

<?php
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
define('URL__CLASS','url');
define('SERVER_URL',$_SERVER['PHP_SELF']);
 
 
 
 
 
 
 
 
 
 
 
 
 
 
class Url
{
 
 
 
 
 
 
 
 
function Url($url='.',$path_to_root=null,$server_url=null)
{
if(!empty($url))
{
if($path_to_root!==null)
{
$this->path_to_root=$path_to_root;
}
else
{
$this->path_to_root=Url::path_to_root();
}
 
if($server_url!==null)
{
$this->server_url=$server_url;
}
else
{
$this->server_url=Url::server_url();
}
 
$anchor='';
if(($pos=strpos($url,'#'))!==false)
{
 
if($pos==0)
{
 
$this->url=$url;
$this->is_relative=false;
return;
}
else
{
$anchor=substr($url,$pos);
$url=substr($url,0,$pos);
}
}
 
if(preg_match('`^[a-z0-9]+:(?!//).+`iU',$url)>0)
{
$this->url=$url;
return;
}
else if(strpos($url,'www.')===0)
{
$url='http://'.$url;
}
 
$url=str_replace(Url::get_absolute_root().'/','/',Url::compress($url));
if(!strpos($url,'://'))
{
$this->is_relative=true;
if(substr($url,0,1)=='/')
{
$this->url=$url;
}
else
{
$this->url=$this->root_to_local().$url;
}
}
else
{
$this->is_relative=false;
$this->url=$url;
}
$this->url=Url::compress($this->url).$anchor;
}
}
 
 
 
 
function is_relative()
{
return $this->is_relative;
}
 
 
 
 
 
function relative()
{
if($this->is_relative())
{
return $this->url;
}
else
{
return $this->absolute();
}
}
 
 
 
 
 
function absolute()
{
if($this->is_relative())
{
return Url::compress($this->get_absolute_root().$this->url);
}
else
{
return $this->url;
}
}
 
 
 
 
 
 
 
 
function compress($url)
{
$args='';
if(($pos=strpos($url,'?'))!==false)
{
 
$args=substr($url,$pos);
$url=substr($url,0,$pos);
}
$url=preg_replace(array('`([^:]|^)/+`','`(?<!.)./`'),array('$1/',''),$url);
 
do
{
$url=preg_replace('`/?[^/]+/..`','',$url);
 
}
while(preg_match('`/?[^/]+/..`',$url)>0);
return preg_replace('`^//`','/',$url).$args;
}
 
 
 
 
 
function root_to_local()
{
global $CONFIG;
 
$local_path=$this->server_url;
$local_path=substr(trim($local_path,'/'),strlen(trim($CONFIG['server_path'],'/')));
$file_begun=strrpos($local_path,'/');
if($file_begun>=0)
{
$local_path=substr($local_path,0,$file_begun).'/';
}
 
return '/'.ltrim($local_path,'/');
}
 
 
 
 
 
 
function get_absolute_root()
{
global $CONFIG;
return trim(trim($CONFIG['server_name'],'/').'/'.trim($CONFIG['server_path'],'/'),'/');
}
 
 
 
 
 
 
 
 
 
 
function html_convert_root_relative2absolute($html_text,$path_to_root=PATH_TO_ROOT,$server_url=SERVER_URL)
{
$path_to_root_bak=Url::path_to_root();
$server_url_bak=Url::server_url();
 
Url::path_to_root($path_to_root);
Url::server_url($server_url);
 
$result=preg_replace_callback(Url::_build_html_match_regex(true),
array('Url','_convert_url_to_absolute'),$html_text);
 
Url::path_to_root($path_to_root_bak);
Url::server_url($server_url_bak);
 
return $result;
}
 
 
 
 
 
 
 
 
 
function html_convert_absolute2root_relative($html_text,$path_to_root=PATH_TO_ROOT,$server_url=SERVER_URL)
{
$path_to_root_bak=Url::path_to_root();
$server_url_bak=Url::server_url();
 
Url::path_to_root($path_to_root);
Url::server_url($server_url);
 
$result=preg_replace_callback(Url::_build_html_match_regex(),
array('Url','_convert_url_to_root_relative'),$html_text);
 
Url::path_to_root($path_to_root_bak);
Url::server_url($server_url_bak);
 
return $result;
}
 
 
 
 
 
 
 
 
 
function html_convert_root_relative2relative($html_text,$path_to_root=PATH_TO_ROOT,$server_url=SERVER_URL)
{
$path_to_root_bak=Url::path_to_root();
$server_url_bak=Url::server_url();
 
Url::path_to_root($path_to_root);
Url::server_url($server_url);
 
$result=preg_replace_callback(Url::_build_html_match_regex(true),
array('Url','_convert_url_to_relative'),$html_text);
 
Url::path_to_root($path_to_root_bak);
Url::server_url($server_url_bak);
 
return $result;
}
 
 
 
 
 
 
 
function _convert_url_to_absolute($url_params)
{
$url=new Url($url_params[2]);
$url_params[2]=$url->absolute();
return $url_params[1].$url_params[2].$url_params[3];
}
 
 
 
 
 
 
 
function _convert_url_to_root_relative($url_params)
{
$url=new Url($url_params[2]);
$url_params[2]=$url->relative();
return $url_params[1].$url_params[2].$url_params[3];
}
 
 
 
 
 
 
 
function _convert_url_to_relative($url_params)
{
$url=new Url($url_params[2]);
if($url->is_relative())
{
$url_params[2]=Url::compress(Url::path_to_root().$url->relative());
}
return $url_params[1].$url_params[2].$url_params[3];
}
 
 
function _build_html_match_regex($only_match_relative=false)
{
static $regex_match_all=null;
static $regex_only_match_relative=null;
 
 
if((!$only_match_relative&&$regex_match_all===null)||($only_match_relative&&$regex_only_match_relative===null))
{
$regex=array();
$nodes=array('a','img','form','object','param name="movie"');
$attributes=array('href','src','action','data','value');
 
$nodes_length=count($nodes);
for($i=0;$i<$nodes_length;$i++)
{
$a_regex='`(<'.$nodes[$i].' [^>]*(?<= )'.$attributes[$i].'=")(';
if($only_match_relative)
{
$a_regex.='/';
}
$a_regex.='[^"]+)(")`isU';
$regex[]=$a_regex;
}
 
$a_regex='`(<script type="text/javascript"><!--s*insert(?:Sound|Movie|Swf)Player\(")(';
if($only_match_relative)
{
$a_regex.='/';
}
$a_regex.='[^"]+)("\)s*--></script>)`isU';
$regex[]=$a_regex;
 
 
if($only_match_relative)
{
$regex_only_match_relative=$regex;
}
else
{
$regex_match_all=$regex;
}
}
 
if($only_match_relative)
{
return $regex_only_match_relative;
}
else
{
return $regex_match_all;
}
}
 
 
 
 
 
 
 
 
function get_relative($url,$path_to_root=null,$server_url=null)
{
$o_url=new Url($url,$path_to_root,$server_url);
return $o_url->relative();
}
 
 
 
 
 
 
 
 
function path_to_root($path=null)
{
static $path_to_root=PATH_TO_ROOT;
if($path!=null)
{
$path_to_root=$path;
}
return $path_to_root;
}
 
 
 
 
 
 
 
 
function server_url($url=null)
{
static $server_url=SERVER_URL;
if($url!==null)
{
$server_url=$url;
}
return $server_url;
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
function get_wellformness_regex($protocol=REGEX_MULTIPLICITY_OPTIONNAL,
$user=REGEX_MULTIPLICITY_OPTIONNAL,$domain=REGEX_MULTIPLICITY_OPTIONNAL,
$folders=REGEX_MULTIPLICITY_OPTIONNAL,$file=REGEX_MULTIPLICITY_OPTIONNAL,
$args=REGEX_MULTIPLICITY_OPTIONNAL,$anchor=REGEX_MULTIPLICITY_OPTIONNAL,$forbid_js=true)
{
static $forbid_js_regex='(?!javascript:)';
static $protocol_regex='[a-z0-9-_]+(?::[a-z0-9-_]+)*://';
static $user_regex='[a-z0-9-_]+(?::[a-z0-9-_]+)?@';
static $domain_regex='(?:[a-z0-9-_~]+.)*[a-z0-9-_~]+(?::[0-9]{1,5})?/';
static $folders_regex='/*(?:[a-z0-9~_.-]+/+)*';
static $file_regex='[a-z0-9-+_~:.%]+';
static $args_regex='(?:?(?!&)(?:(?:&|&)?[a-z0-9-+=_~:;/.?'%]+=[a-z0-9-+=_~:;/.?'%]+)*)?';
static $anchor_regex='#[a-z0-9-_/]*';
 
if($forbid_js)
{
$protocol_regex_secured=$forbid_js_regex.$protocol_regex;
}
else
{
$protocol_regex_secured=$protocol_regex;
}
 
return set_subregex_multiplicity($protocol_regex_secured,$protocol).
set_subregex_multiplicity($user_regex,$user).
set_subregex_multiplicity($domain_regex,$domain).
set_subregex_multiplicity($folders_regex,$folders).
set_subregex_multiplicity($file_regex,$file).
set_subregex_multiplicity($anchor_regex,REGEX_MULTIPLICITY_OPTIONNAL).
set_subregex_multiplicity($args_regex,$args).
set_subregex_multiplicity($anchor_regex,$anchor);
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
function check_wellformness($url,$protocol=REGEX_MULTIPLICITY_OPTIONNAL,
$user=REGEX_MULTIPLICITY_OPTIONNAL,$domain=REGEX_MULTIPLICITY_OPTIONNAL,
$folders=REGEX_MULTIPLICITY_OPTIONNAL,$file=REGEX_MULTIPLICITY_OPTIONNAL,
$args=REGEX_MULTIPLICITY_OPTIONNAL,$anchor=REGEX_MULTIPLICITY_OPTIONNAL,$forbid_js=true)
{
return preg_match('`^'.Url::get_wellformness_regex($protocol,$user,$domain,
$folders,$file,$args,$anchor,$forbid_js).'$`i',$url);
}
 
var $url='';
var $is_relative=false;
var $path_to_root='';
var $server_url='';
}
?>