From e4db5ce340a9b16ef8abb36f771e52a75e40acf3 Mon Sep 17 00:00:00 2001
From: Jon Atkins <github@jonatkins.com>
Date: Tue, 30 Apr 2013 18:38:50 +0100
Subject: [PATCH] add absoluteurl -
 http://sourceforge.net/projects/absoluteurl/

---
 website/page/code/url/CHANGELOG.txt       |  24 ++
 website/page/code/url/README.txt          |  26 ++
 website/page/code/url/url_to_absolute.php | 485 ++++++++++++++++++++++
 3 files changed, 535 insertions(+)
 create mode 100644 website/page/code/url/CHANGELOG.txt
 create mode 100644 website/page/code/url/README.txt
 create mode 100644 website/page/code/url/url_to_absolute.php

diff --git a/website/page/code/url/CHANGELOG.txt b/website/page/code/url/CHANGELOG.txt
new file mode 100644
index 00000000..cb7d743f
--- /dev/null
+++ b/website/page/code/url/CHANGELOG.txt
@@ -0,0 +1,24 @@
+Changelog
+---------
+
+absoluteurl v1.6, March 12, 2010
+---------------------------------
+- added encode_url function to convert an absolute url to its percentage 
+  encoded equivalent, according to RFC 3986
+
+absoluteurl v1.5, March 11, 2010
+---------------------------------
+- fixed to allow spaces in the path of url
+
+absoluteurl v1.4, October 2, 2009
+----------------------------------------------
+- Percentage encoding of the absolute url disabled.
+
+absoluteurl v1.2, 2009-02-27
+-----------------------------------------------
+- Minor bug fix
+
+
+absoluteurl v1.0, 2009-08-28
+----------------------------------------
+- Initial release
\ No newline at end of file
diff --git a/website/page/code/url/README.txt b/website/page/code/url/README.txt
new file mode 100644
index 00000000..35f9c8d2
--- /dev/null
+++ b/website/page/code/url/README.txt
@@ -0,0 +1,26 @@
+absoluteurl
+---------------------
+
+This script converts the relative url to absolute url, provided a base url.
+
+
+For more, look here: http://publicmind.in/blog/urltoabsolute
+
+Usage:
+----------
+
+Extract the script (url_to_absolute.php) into your web directory, include it into your current php file using:
+
+require(path-to-file);
+
+then, you can convert the relative url to absolute url by calling:
+
+url_to_absolute( $baseUrl, $relativeUrl);
+
+It return false on failure, otherwise returns the absolute url. If the $relativeUrl is a valid absolute url, it is returned without any modification.
+
+Author/credits
+-----------
+
+1) Original author: David R. Nadeau, NadeauSoftware.com
+2) Edited and maintained by: Nitin Kr, Gupta, publicmind.in
\ No newline at end of file
diff --git a/website/page/code/url/url_to_absolute.php b/website/page/code/url/url_to_absolute.php
new file mode 100644
index 00000000..c6df5c24
--- /dev/null
+++ b/website/page/code/url/url_to_absolute.php
@@ -0,0 +1,485 @@
+<?php
+/**
+ * Edited by Nitin Kr. Gupta, publicmind.in
+ */
+
+/**
+ * Copyright (c) 2008, David R. Nadeau, NadeauSoftware.com.
+ * 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 names of David R. Nadeau or NadeauSoftware.com, 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 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.
+ */
+
+/*
+ * This is a BSD License approved by the Open Source Initiative (OSI).
+ * See:  http://www.opensource.org/licenses/bsd-license.php
+ */
+
+/**
+ * Combine a base URL and a relative URL to produce a new
+ * absolute URL.  The base URL is often the URL of a page,
+ * and the relative URL is a URL embedded on that page.
+ *
+ * This function implements the "absolutize" algorithm from
+ * the RFC3986 specification for URLs.
+ *
+ * This function supports multi-byte characters with the UTF-8 encoding,
+ * per the URL specification.
+ *
+ * Parameters:
+ * 	baseUrl		the absolute base URL.
+ *
+ * 	url		the relative URL to convert.
+ *
+ * Return values:
+ * 	An absolute URL that combines parts of the base and relative
+ * 	URLs, or FALSE if the base URL is not absolute or if either
+ * 	URL cannot be parsed.
+ */
+function url_to_absolute( $baseUrl, $relativeUrl )
+{
+	// If relative URL has a scheme, clean path and return.
+	$r = split_url( $relativeUrl );
+	if ( $r === FALSE )
+		return FALSE;
+	if ( !empty( $r['scheme'] ) )
+	{
+		if ( !empty( $r['path'] ) && $r['path'][0] == '/' )
+			$r['path'] = url_remove_dot_segments( $r['path'] );
+		return join_url( $r );
+	}
+
+	// Make sure the base URL is absolute.
+	$b = split_url( $baseUrl );
+	if ( $b === FALSE || empty( $b['scheme'] ) || empty( $b['host'] ) )
+		return FALSE;
+	$r['scheme'] = $b['scheme'];
+
+	// If relative URL has an authority, clean path and return.
+	if ( isset( $r['host'] ) )
+	{
+		if ( !empty( $r['path'] ) )
+			$r['path'] = url_remove_dot_segments( $r['path'] );
+		return join_url( $r );
+	}
+	unset( $r['port'] );
+	unset( $r['user'] );
+	unset( $r['pass'] );
+
+	// Copy base authority.
+	$r['host'] = $b['host'];
+	if ( isset( $b['port'] ) ) $r['port'] = $b['port'];
+	if ( isset( $b['user'] ) ) $r['user'] = $b['user'];
+	if ( isset( $b['pass'] ) ) $r['pass'] = $b['pass'];
+
+	// If relative URL has no path, use base path
+	if ( empty( $r['path'] ) )
+	{
+		if ( !empty( $b['path'] ) )
+			$r['path'] = $b['path'];
+		if ( !isset( $r['query'] ) && isset( $b['query'] ) )
+			$r['query'] = $b['query'];
+		return join_url( $r );
+	}
+
+	// If relative URL path doesn't start with /, merge with base path
+	if ( $r['path'][0] != '/' )
+	{
+		$base = mb_strrchr( $b['path'], '/', TRUE, 'UTF-8' );
+		if ( $base === FALSE ) $base = '';
+		$r['path'] = $base . '/' . $r['path'];
+	}
+	$r['path'] = url_remove_dot_segments( $r['path'] );
+	return join_url( $r );
+}
+
+/**
+ * Filter out "." and ".." segments from a URL's path and return
+ * the result.
+ *
+ * This function implements the "remove_dot_segments" algorithm from
+ * the RFC3986 specification for URLs.
+ *
+ * This function supports multi-byte characters with the UTF-8 encoding,
+ * per the URL specification.
+ *
+ * Parameters:
+ * 	path	the path to filter
+ *
+ * Return values:
+ * 	The filtered path with "." and ".." removed.
+ */
+function url_remove_dot_segments( $path )
+{
+	// multi-byte character explode
+	$inSegs  = preg_split( '!/!u', $path );
+	$outSegs = array( );
+	foreach ( $inSegs as $seg )
+	{
+		if ( $seg == '' || $seg == '.')
+			continue;
+		if ( $seg == '..' )
+			array_pop( $outSegs );
+		else
+			array_push( $outSegs, $seg );
+	}
+	$outPath = implode( '/', $outSegs );
+	if ( $path[0] == '/' )
+		$outPath = '/' . $outPath;
+	// compare last multi-byte character against '/'
+	if ( $outPath != '/' &&
+		(mb_strlen($path)-1) == mb_strrpos( $path, '/', 'UTF-8' ) )
+		$outPath .= '/';
+	return $outPath;
+}
+
+
+/**
+ * This function parses an absolute or relative URL and splits it
+ * into individual components.
+ *
+ * RFC3986 specifies the components of a Uniform Resource Identifier (URI).
+ * A portion of the ABNFs are repeated here:
+ *
+ *	URI-reference	= URI
+ *			/ relative-ref
+ *
+ *	URI		= scheme ":" hier-part [ "?" query ] [ "#" fragment ]
+ *
+ *	relative-ref	= relative-part [ "?" query ] [ "#" fragment ]
+ *
+ *	hier-part	= "//" authority path-abempty
+ *			/ path-absolute
+ *			/ path-rootless
+ *			/ path-empty
+ *
+ *	relative-part	= "//" authority path-abempty
+ *			/ path-absolute
+ *			/ path-noscheme
+ *			/ path-empty
+ *
+ *	authority	= [ userinfo "@" ] host [ ":" port ]
+ *
+ * So, a URL has the following major components:
+ *
+ *	scheme
+ *		The name of a method used to interpret the rest of
+ *		the URL.  Examples:  "http", "https", "mailto", "file'.
+ *
+ *	authority
+ *		The name of the authority governing the URL's name
+ *		space.  Examples:  "example.com", "user@example.com",
+ *		"example.com:80", "user:password@example.com:80".
+ *
+ *		The authority may include a host name, port number,
+ *		user name, and password.
+ *
+ *		The host may be a name, an IPv4 numeric address, or
+ *		an IPv6 numeric address.
+ *
+ *	path
+ *		The hierarchical path to the URL's resource.
+ *		Examples:  "/index.htm", "/scripts/page.php".
+ *
+ *	query
+ *		The data for a query.  Examples:  "?search=google.com".
+ *
+ *	fragment
+ *		The name of a secondary resource relative to that named
+ *		by the path.  Examples:  "#section1", "#header".
+ *
+ * An "absolute" URL must include a scheme and path.  The authority, query,
+ * and fragment components are optional.
+ *
+ * A "relative" URL does not include a scheme and must include a path.  The
+ * authority, query, and fragment components are optional.
+ *
+ * This function splits the $url argument into the following components
+ * and returns them in an associative array.  Keys to that array include:
+ *
+ *	"scheme"	The scheme, such as "http".
+ *	"host"		The host name, IPv4, or IPv6 address.
+ *	"port"		The port number.
+ *	"user"		The user name.
+ *	"pass"		The user password.
+ *	"path"		The path, such as a file path for "http".
+ *	"query"		The query.
+ *	"fragment"	The fragment.
+ *
+ * One or more of these may not be present, depending upon the URL.
+ *
+ * Optionally, the "user", "pass", "host" (if a name, not an IP address),
+ * "path", "query", and "fragment" may have percent-encoded characters
+ * decoded.  The "scheme" and "port" cannot include percent-encoded
+ * characters and are never decoded.  Decoding occurs after the URL has
+ * been parsed.
+ *
+ * Parameters:
+ * 	url		the URL to parse.
+ *
+ * 	decode		an optional boolean flag selecting whether
+ * 			to decode percent encoding or not.  Default = TRUE.
+ *
+ * Return values:
+ * 	the associative array of URL parts, or FALSE if the URL is
+ * 	too malformed to recognize any parts.
+ */
+function split_url( $url, $decode=FALSE)
+{
+	// Character sets from RFC3986.
+	$xunressub     = 'a-zA-Z\d\-._~\!$&\'()*+,;=';
+	$xpchar        = $xunressub . ':@% ';
+
+	// Scheme from RFC3986.
+	$xscheme        = '([a-zA-Z][a-zA-Z\d+-.]*)';
+
+	// User info (user + password) from RFC3986.
+	$xuserinfo     = '((['  . $xunressub . '%]*)' .
+	                 '(:([' . $xunressub . ':%]*))?)';
+
+	// IPv4 from RFC3986 (without digit constraints).
+	$xipv4         = '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})';
+
+	// IPv6 from RFC2732 (without digit and grouping constraints).
+	$xipv6         = '(\[([a-fA-F\d.:]+)\])';
+
+	// Host name from RFC1035.  Technically, must start with a letter.
+	// Relax that restriction to better parse URL structure, then
+	// leave host name validation to application.
+	$xhost_name    = '([a-zA-Z\d-.%]+)';
+
+	// Authority from RFC3986.  Skip IP future.
+	$xhost         = '(' . $xhost_name . '|' . $xipv4 . '|' . $xipv6 . ')';
+	$xport         = '(\d*)';
+	$xauthority    = '((' . $xuserinfo . '@)?' . $xhost .
+		         '?(:' . $xport . ')?)';
+
+	// Path from RFC3986.  Blend absolute & relative for efficiency.
+	$xslash_seg    = '(/[' . $xpchar . ']*)';
+	$xpath_authabs = '((//' . $xauthority . ')((/[' . $xpchar . ']*)*))';
+	$xpath_rel     = '([' . $xpchar . ']+' . $xslash_seg . '*)';
+	$xpath_abs     = '(/(' . $xpath_rel . ')?)';
+	$xapath        = '(' . $xpath_authabs . '|' . $xpath_abs .
+			 '|' . $xpath_rel . ')';
+
+	// Query and fragment from RFC3986.
+	$xqueryfrag    = '([' . $xpchar . '/?' . ']*)';
+
+	// URL.
+	$xurl          = '^(' . $xscheme . ':)?' .  $xapath . '?' .
+	                 '(\?' . $xqueryfrag . ')?(#' . $xqueryfrag . ')?$';
+
+
+	// Split the URL into components.
+	if ( !preg_match( '!' . $xurl . '!', $url, $m ) )
+		return FALSE;
+
+	if ( !empty($m[2]) )		$parts['scheme']  = strtolower($m[2]);
+
+	if ( !empty($m[7]) ) {
+		if ( isset( $m[9] ) )	$parts['user']    = $m[9];
+		else			$parts['user']    = '';
+	}
+	if ( !empty($m[10]) )		$parts['pass']    = $m[11];
+
+	if ( !empty($m[13]) )		$h=$parts['host'] = $m[13];
+	else if ( !empty($m[14]) )	$parts['host']    = $m[14];
+	else if ( !empty($m[16]) )	$parts['host']    = $m[16];
+	else if ( !empty( $m[5] ) )	$parts['host']    = '';
+	if ( !empty($m[17]) )		$parts['port']    = $m[18];
+
+	if ( !empty($m[19]) )		$parts['path']    = $m[19];
+	else if ( !empty($m[21]) )	$parts['path']    = $m[21];
+	else if ( !empty($m[25]) )	$parts['path']    = $m[25];
+
+	if ( !empty($m[27]) )		$parts['query']   = $m[28];
+	if ( !empty($m[29]) )		$parts['fragment']= $m[30];
+
+	if ( !$decode )
+		return $parts;
+	if ( !empty($parts['user']) )
+		$parts['user']     = rawurldecode( $parts['user'] );
+	if ( !empty($parts['pass']) )
+		$parts['pass']     = rawurldecode( $parts['pass'] );
+	if ( !empty($parts['path']) )
+		$parts['path']     = rawurldecode( $parts['path'] );
+	if ( isset($h) )
+		$parts['host']     = rawurldecode( $parts['host'] );
+	if ( !empty($parts['query']) )
+		$parts['query']    = rawurldecode( $parts['query'] );
+	if ( !empty($parts['fragment']) )
+		$parts['fragment'] = rawurldecode( $parts['fragment'] );
+	return $parts;
+}
+
+
+/**
+ * This function joins together URL components to form a complete URL.
+ *
+ * RFC3986 specifies the components of a Uniform Resource Identifier (URI).
+ * This function implements the specification's "component recomposition"
+ * algorithm for combining URI components into a full URI string.
+ *
+ * The $parts argument is an associative array containing zero or
+ * more of the following:
+ *
+ *	"scheme"	The scheme, such as "http".
+ *	"host"		The host name, IPv4, or IPv6 address.
+ *	"port"		The port number.
+ *	"user"		The user name.
+ *	"pass"		The user password.
+ *	"path"		The path, such as a file path for "http".
+ *	"query"		The query.
+ *	"fragment"	The fragment.
+ *
+ * The "port", "user", and "pass" values are only used when a "host"
+ * is present.
+ *
+ * The optional $encode argument indicates if appropriate URL components
+ * should be percent-encoded as they are assembled into the URL.  Encoding
+ * is only applied to the "user", "pass", "host" (if a host name, not an
+ * IP address), "path", "query", and "fragment" components.  The "scheme"
+ * and "port" are never encoded.  When a "scheme" and "host" are both
+ * present, the "path" is presumed to be hierarchical and encoding
+ * processes each segment of the hierarchy separately (i.e., the slashes
+ * are left alone).
+ *
+ * The assembled URL string is returned.
+ *
+ * Parameters:
+ * 	parts		an associative array of strings containing the
+ * 			individual parts of a URL.
+ *
+ * 	encode		an optional boolean flag selecting whether
+ * 			to do percent encoding or not.  Default = true.
+ *
+ * Return values:
+ * 	Returns the assembled URL string.  The string is an absolute
+ * 	URL if a scheme is supplied, and a relative URL if not.  An
+ * 	empty string is returned if the $parts array does not contain
+ * 	any of the needed values.
+ */
+function join_url( $parts, $encode=FALSE)
+{
+	if ( $encode )
+	{
+		if ( isset( $parts['user'] ) )
+			$parts['user']     = rawurlencode( $parts['user'] );
+		if ( isset( $parts['pass'] ) )
+			$parts['pass']     = rawurlencode( $parts['pass'] );
+		if ( isset( $parts['host'] ) &&
+			!preg_match( '!^(\[[\da-f.:]+\]])|([\da-f.:]+)$!ui', $parts['host'] ) )
+			$parts['host']     = rawurlencode( $parts['host'] );
+		if ( !empty( $parts['path'] ) )
+			$parts['path']     = preg_replace( '!%2F!ui', '/',
+				rawurlencode( $parts['path'] ) );
+		if ( isset( $parts['query'] ) )
+			$parts['query']    = rawurlencode( $parts['query'] );
+		if ( isset( $parts['fragment'] ) )
+			$parts['fragment'] = rawurlencode( $parts['fragment'] );
+	}
+
+	$url = '';
+	if ( !empty( $parts['scheme'] ) )
+		$url .= $parts['scheme'] . ':';
+	if ( isset( $parts['host'] ) )
+	{
+		$url .= '//';
+		if ( isset( $parts['user'] ) )
+		{
+			$url .= $parts['user'];
+			if ( isset( $parts['pass'] ) )
+				$url .= ':' . $parts['pass'];
+			$url .= '@';
+		}
+		if ( preg_match( '!^[\da-f]*:[\da-f.:]+$!ui', $parts['host'] ) )
+			$url .= '[' . $parts['host'] . ']';	// IPv6
+		else
+			$url .= $parts['host'];			// IPv4 or name
+		if ( isset( $parts['port'] ) )
+			$url .= ':' . $parts['port'];
+		if ( !empty( $parts['path'] ) && $parts['path'][0] != '/' )
+			$url .= '/';
+	}
+	if ( !empty( $parts['path'] ) )
+		$url .= $parts['path'];
+	if ( isset( $parts['query'] ) )
+		$url .= '?' . $parts['query'];
+	if ( isset( $parts['fragment'] ) )
+		$url .= '#' . $parts['fragment'];
+	return $url;
+}
+
+/**
+ * This function encodes URL to form a URL which is properly 
+ * percent encoded to replace disallowed characters.
+ *
+ * RFC3986 specifies the allowed characters in the URL as well as
+ * reserved characters in the URL. This function replaces all the 
+ * disallowed characters in the URL with their repective percent 
+ * encodings. Already encoded characters are not encoded again,
+ * such as '%20' is not encoded to '%2520'.
+ *
+ * Parameters:
+ * 	url		the url to encode.
+ *
+ * Return values:
+ * 	Returns the encoded URL string. 
+ */
+function encode_url($url) {
+  $reserved = array(
+    ":" => '!%3A!ui',
+    "/" => '!%2F!ui',
+    "?" => '!%3F!ui',
+    "#" => '!%23!ui',
+    "[" => '!%5B!ui',
+    "]" => '!%5D!ui',
+    "@" => '!%40!ui',
+    "!" => '!%21!ui',
+    "$" => '!%24!ui',
+    "&" => '!%26!ui',
+    "'" => '!%27!ui',
+    "(" => '!%28!ui',
+    ")" => '!%29!ui',
+    "*" => '!%2A!ui',
+    "+" => '!%2B!ui',
+    "," => '!%2C!ui',
+    ";" => '!%3B!ui',
+    "=" => '!%3D!ui',
+    "%" => '!%25!ui',
+  );
+
+  $url = rawurlencode($url);
+  $url = preg_replace(array_values($reserved), array_keys($reserved), $url);
+  return $url;
+}
+
+?>
\ No newline at end of file