xpressengine / xe-core

        $pre = '(?:/(?:12[0-8]|1[0-1][0-9]|[1-9][0-9]|[0-9]))';   // /0 - /128

        //      prefix check

        if (strpos($aIP, '/') !== false)

        {

                if (preg_match('#' . $pre . '$#s', $aIP, $find))

                {

                        $aIP = substr($aIP, 0, 0-strlen($find[0]));

                        unset($find);

                }

                else

                {

                        return false;

                }

        }

        //      IPv4-compatiblity check

        if (preg_match('#(?<=:'.')' . $this->ip4 . '$#s', $aIP, $find))

	}

	$url = Context::getUrl($num_args, $args_list, NULL, FALSE);

	if(strncasecmp('http', $url, 4) !== 0)

	{

		preg_match('/^(http|https):\/\/([^\/]+)\//', $request_uri, $match);

		$url = Context::getUrl($num_args, $args_list, NULL, FALSE);

		return substr($match[0], 0, -1) . $url;

	}

	return $url;

}