<?php if (! defined('BASEPATH')) {
    exit('No direct script access allowed.');
}

/**
 * This source file is part of the open source project
 * ExpressionEngine (https://expressionengine.com)
 *
 * @link      https://expressionengine.com/
 * @copyright Copyright (c) 2003-2023, Packet Tide, LLC (https://www.packettide.com)
 * @license   https://expressionengine.com/license Licensed under Apache License, Version 2.0
 */

/**
 * URL Helper
 */

/**
 * Create a CP Path
 *
 * @param	string	path
 * @param	mixed	query string [array|string]
 * @return	string
 */
function cp_url($path, $qs = '')
{
    ee()->load->library('logger');
    ee()->logger->deprecated('3.0', 'ee(\'CP/URL\', \'' . $path . '\')');

    $url = new \ExpressionEngine\Library\CP\URL(
        $path,
        ee()->session->session_id(),
        $qs,
        (REQ != 'CP') ? ee()->config->item('cp_url') : ''
    );

    return $url->compile();
}

/**
 * Create URL Title
 *
 * Takes a "title" string as input and creates a
 * human-friendly URL string with either a dash
 * or an underscore as the word separator.
 *
 * @review maybe roll into CI proper
 *
 * @access	public
 * @param	string	the string
 * @param	string	the separator: dash, or underscore
 * @return	string
 */
if (! function_exists('url_title')) {
    function url_title($str, $separator = 'dash', $lowercase = false)
    {
        ee()->load->library('logger');
        ee()->logger->deprecated('4.0.0', "ee('Format')->make('Text', \$str)->urlSlug()");

        // to not break legacy code using this function, invalid separators will map to an underscore
        $separator = ($separator == 'dash') ? '-' : '_';

        return (string) ee('Format')->make('Text', $str)->urlSlug(['separator' => $separator, 'lowercase' => $lowercase]);
    }
}

/**
 * Anchor Link
 *
 * Creates an anchor based on the local URL.
 *
 * @access	public
 * @param	string	the URL
 * @param	string	the link title
 * @param	mixed	any attributes
 * @return	string
 */
function anchor($uri = '', $title = '', $attributes = '')
{
    $title = (string) $title;

    $site_url = is_array($uri) ? implode('/', $uri) : $uri;

    if (REQ != 'CP' && ! preg_match('!^\w+://! i', $site_url)) {
        $site_url = ee()->functions->fetch_site_index(true) . $site_url;
    }

    if ($title == '') {
        $title = $site_url;
    }

    if ($attributes != '') {
        $attributes = _parse_attributes($attributes);
    }

    return '<a href="' . $site_url . '"' . $attributes . '>' . $title . '</a>';
}

/**
 * Site URL
 *
 * Create a local URL based on your basepath. Segments can be passed via the
 * first parameter either as a string or an array.
 *
 * @access	public
 * @param	string
 * @return	string
 */
if (! function_exists('site_url')) {
    function site_url($uri = '')
    {
        return ee()->config->site_url($uri);
    }
}

/**
 * Base URL
 *
 * Returns the "base_url" item from your config file
 *
 * @access	public
 * @return	string
 */
if (! function_exists('base_url')) {
    function base_url()
    {
        return ee()->config->slash_item('base_url');
    }
}

/**
 * Current URL
 *
 * Returns the full URL (including segments) of the page where this
 * function is placed
 *
 * @access	public
 * @return	string
 */
if (! function_exists('current_url')) {
    function current_url()
    {
        return ee()->config->site_url(ee()->uri->uri_string());
    }
}
/**
 * URL String
 *
 * Returns the URI segments.
 *
 * @access	public
 * @return	string
 */
if (! function_exists('uri_string')) {
    function uri_string()
    {
        return ee()->uri->uri_string();
    }
}

/**
 * Index page
 *
 * Returns the "index_page" from your config file
 *
 * @access	public
 * @return	string
 */
if (! function_exists('index_page')) {
    function index_page()
    {
        return ee()->config->item('index_page');
    }
}

/**
 * Anchor Link - Pop-up version
 *
 * Creates an anchor based on the local URL. The link
 * opens a new window based on the attributes specified.
 *
 * @access	public
 * @param	string	the URL
 * @param	string	the link title
 * @param	mixed	any attributes
 * @return	string
 */
if (! function_exists('anchor_popup')) {
    function anchor_popup($uri = '', $title = '', $attributes = false)
    {
        $title = (string) $title;

        $site_url = (! preg_match('!^\w+://! i', $uri)) ? site_url($uri) : $uri;

        if ($title == '') {
            $title = $site_url;
        }

        if ($attributes === false) {
            return "<a href='javascript:void(0);' onclick=\"window.open('" . $site_url . "', '_blank');\">" . $title . "</a>";
        }

        if (! is_array($attributes)) {
            $attributes = array();
        }

        foreach (array('width' => '800', 'height' => '600', 'scrollbars' => 'yes', 'status' => 'yes', 'resizable' => 'yes', 'screenx' => '0', 'screeny' => '0') as $key => $val) {
            $atts[$key] = (! isset($attributes[$key])) ? $val : $attributes[$key];
            unset($attributes[$key]);
        }

        if ($attributes != '') {
            $attributes = _parse_attributes($attributes);
        }

        return "<a href='javascript:void(0);' onclick=\"window.open('" . $site_url . "', '_blank', '" . _parse_attributes($atts, true) . "');\"$attributes>" . $title . "</a>";
    }
}

/**
 * Mailto Link
 *
 * @access	public
 * @param	string	the email address
 * @param	string	the link title
 * @param	mixed	any attributes
 * @return	string
 */
if (! function_exists('mailto')) {
    function mailto($email, $title = '', $attributes = '')
    {
        $title = (string) $title;

        if ($title == "") {
            $title = $email;
        }

        $attributes = _parse_attributes($attributes);

        return '<a href="mailto:' . $email . '"' . $attributes . '>' . $title . '</a>';
    }
}

/**
 * Encoded Mailto Link
 *
 * Create a spam-protected mailto link written in Javascript
 *
 * @access	public
 * @param	string	the email address
 * @param	string	the link title
 * @param	mixed	any attributes
 * @return	string
 */
if (! function_exists('safe_mailto')) {
    function safe_mailto($email, $title = '', $attributes = '')
    {
        $title = (string) $title;

        if ($title == "") {
            $title = $email;
        }

        for ($i = 0; $i < 16; $i++) {
            $x[] = substr('<a href="mailto:', $i, 1);
        }

        for ($i = 0; $i < strlen($email); $i++) {
            $x[] = "|" . ord(substr($email, $i, 1));
        }

        $x[] = '"';

        if ($attributes != '') {
            if (is_array($attributes)) {
                foreach ($attributes as $key => $val) {
                    $x[] = ' ' . $key . '="';
                    for ($i = 0; $i < strlen($val); $i++) {
                        $x[] = "|" . ord(substr($val, $i, 1));
                    }
                    $x[] = '"';
                }
            } else {
                for ($i = 0; $i < strlen($attributes); $i++) {
                    $x[] = substr($attributes, $i, 1);
                }
            }
        }

        $x[] = '>';

        $temp = array();
        for ($i = 0; $i < strlen($title); $i++) {
            $ordinal = ord($title[$i]);

            if ($ordinal < 128) {
                $x[] = "|" . $ordinal;
            } else {
                if (count($temp) == 0) {
                    $count = ($ordinal < 224) ? 2 : 3;
                }

                $temp[] = $ordinal;
                if (count($temp) == $count) {
                    $number = ($count == 3) ? (($temp['0'] % 16) * 4096) + (($temp['1'] % 64) * 64) + ($temp['2'] % 64) : (($temp['0'] % 32) * 64) + ($temp['1'] % 64);
                    $x[] = "|" . $number;
                    $count = 1;
                    $temp = array();
                }
            }
        }

        $x[] = '<';
        $x[] = '/';
        $x[] = 'a';
        $x[] = '>';

        $x = array_reverse($x);
        ob_start(); ?><script type="text/javascript">
	//<![CDATA[
	var l=new Array();
	<?php
    $i = 0;
        foreach ($x as $val) { ?>l[<?php echo $i++; ?>]='<?php echo $val; ?>';<?php } ?>

	for (var i = l.length-1; i >= 0; i=i-1){
	if (l[i].substring(0, 1) == '|') document.write("&#"+decodeURIComponent(l[i].substring(1))+";");
	else document.write(decodeURIComponent(l[i]));}
	//]]>
	</script><?php

        $buffer = ob_get_contents();
        ob_end_clean();

        return $buffer;
    }
}

/**
 * Auto-linker
 *
 * Automatically links URL and Email addresses.
 * Note: There's a bit of extra code here to deal with
 * URLs or emails that end in a period.  We'll strip these
 * off and add them after the link.
 *
 * @access	public
 * @param	string	the string
 * @param	string	the type: email, url, or both
 * @param	bool	whether to create pop-up links
 * @return	string
 */
if (! function_exists('auto_link')) {
    function auto_link($str, $type = 'both', $popup = false)
    {
        if ($type != 'email') {
            if (preg_match_all("#(^|\s|\()((http(s?)://)|(www\.))(\w+[^\s\)\<]+)#i", $str, $matches)) {
                $pop = ($popup == true) ? " target=\"_blank\" " : "";

                for ($i = 0; $i < count($matches['0']); $i++) {
                    $period = '';
                    if (preg_match("|\.$|", $matches['6'][$i])) {
                        $period = '.';
                        $matches['6'][$i] = substr($matches['6'][$i], 0, -1);
                    }

                    $str = str_replace(
                        $matches['0'][$i],
                        $matches['1'][$i] . '<a href="http' .
                                        $matches['4'][$i] . '://' .
                                        $matches['5'][$i] .
                                        $matches['6'][$i] . '"' . $pop . '>http' .
                                        $matches['4'][$i] . '://' .
                                        $matches['5'][$i] .
                                        $matches['6'][$i] . '</a>' .
                                        $period,
                        $str
                    );
                }
            }
        }

        if ($type != 'url') {
            if (preg_match_all("/([a-zA-Z0-9_\.\-\+]+)@([a-zA-Z0-9\-]+)\.([a-zA-Z0-9\-\.]*)/i", $str, $matches)) {
                for ($i = 0; $i < count($matches['0']); $i++) {
                    $period = '';
                    if (preg_match("|\.$|", $matches['3'][$i])) {
                        $period = '.';
                        $matches['3'][$i] = substr($matches['3'][$i], 0, -1);
                    }

                    $str = str_replace($matches['0'][$i], safe_mailto($matches['1'][$i] . '@' . $matches['2'][$i] . '.' . $matches['3'][$i]) . $period, $str);
                }
            }
        }

        return $str;
    }
}

/**
 * Prep URL
 *
 * Simply adds the http:// part if no scheme is included
 *
 * @access	public
 * @param	string	the URL
 * @return	string
 */
if (! function_exists('prep_url')) {
    function prep_url($str = '')
    {
        ee()->load->library('logger');
        ee()->logger->deprecated('4.2.0', "ee('Format')->make('Text', \$str)->url()");

        return (string) ee('Format')->make('Text', $str)->url();
    }
}

/**
 * Header Redirect
 *
 * Header redirect in two flavors
 * For very fine grained control over headers, you could use the Output
 * Library's set_header() function.
 *
 * @access	public
 * @param	string	the URL
 * @param	string	the method: location or redirect
 * @return	string
 */
if (! function_exists('redirect')) {
    function redirect($uri = '', $method = 'auto', $http_response_code = 302)
    {
        // Remove hard line breaks and carriage returns
        $uri = str_replace(array("\n", "\r"), '', $uri);

        // Remove any and all line breaks
        while (stripos($uri, '%0d') !== false or stripos($uri, '%0a') !== false) {
            $uri = str_ireplace(array('%0d', '%0a'), '', $uri);
        }

        if (! preg_match('#^https?://#i', $uri)) {
            $uri = site_url($uri);
        }

        // IIS environment likely? Use 'refresh' for better compatibility
        if (DIRECTORY_SEPARATOR != '/' && $method == 'auto') {
            $method = 'refresh';
        }

        switch ($method) {
            case 'refresh':
                header("Refresh:0;url=" . $uri);

                break;
            default:
                header("Location: " . $uri, true, $http_response_code);

                break;
        }
        exit;
    }
}

/**
 * Parse out the attributes
 *
 * Some of the functions use this
 *
 * @access	private
 * @param	array
 * @param	bool
 * @return	string
 */
if (! function_exists('_parse_attributes')) {
    function _parse_attributes($attributes, $javascript = false)
    {
        if (is_string($attributes)) {
            return ($attributes != '') ? ' ' . $attributes : '';
        }

        $att = '';
        foreach ($attributes as $key => $val) {
            if ($javascript == true) {
                $att .= $key . '=' . $val . ',';
            } else {
                $att .= ' ' . $key . '="' . $val . '"';
            }
        }

        if ($javascript == true and $att != '') {
            $att = substr($att, 0, -1);
        }

        return $att;
    }
}

// EOF
