yf_other_common class

    public function get_relative_path($target, $fromdir)
    {
        // Check that the fromdir has a trailing slash, otherwise realpath will
        // strip the last directory name off
        if (($fromdir[strlen($fromdir) - 1] != '\\') && ($fromdir[strlen($fromdir) - 1] != '/')) {
            $fromdir .= '/';
        }
        // get a real directory name for each of the target and from directory
        $from = realpath($fromdir);
        $target = realpath($target);
        $to = dirname($target);
        // Can't get relative path with drive in path - remove it
        if (($colonpos = strpos($target, ':')) != false) {
            $target = substr($target, $colonpos + 1);
        }
        if (($colonpos = strpos($from, ':')) != false) {
            $from = substr($from, $colonpos + 1);
        }
        if (($colonpos = strpos($to, ':')) != false) {
            $to = substr($to, $colonpos + 1);
        }
        $path = '../';
        $posval = 0;
        // Step through the paths until a difference is found (ignore slash, backslash differences
        // or the end of one is found
        while ((($from[$posval] == $to[$posval])
            || (($from[$posval] == '\\') && ($to[$posval] == '/'))
            || (($from[$posval] == '/') && ($to[$posval] == '\\')))
            && ($from[$posval] && $to[$posval])
        ) {
            $posval++;
        }
        // Save the position of the first difference
        $diffpos = $posval;
        // Check if the directories are the same or
        // the if target is in a subdirectory of the fromdir
        if (( ! $from[$posval]) && ($to[$posval] == '/' || $to[$posval] == '\\' || ! $to[$posval])) {
            // target is in fromdir or a subdirectory
            // Build relative path starting with a ./
            return './' . substr($target, $posval + 1, strlen($target));
        }
        // target is outside the fromdir branch
        // find out how many "../"'s are necessary
        // Step through the fromdir path, checking for slashes
        // each slash encountered requires a "../"
        while ($from[++$posval]) {
            // Check for slash
            if (($from[$posval] == '/') || ($from[$posval] == '\\')) {
                // Found a slash, add a "../"
                $path .= '../';
            }
        }
        // Search backwards to find where the first common directory
        // as some letters in the first different directory names
        // may have been the same
        $diffpos--;
        while (($to[$diffpos] != '/') && ($to[$diffpos] != '\\') && $to[$diffpos]) {
            $diffpos--;
        }
        // Build relative path to return
        return $path . substr($target, $diffpos + 1, strlen($target));
    }

    public function get_whois_info($url, $server = '')
    {
        if (empty($url)) {
            return false;
        }
        $tmp = parse_url(trim($url));
        if (empty($tmp['host'])) {
            return false;
        }
        $url = trim($tmp['host']);
        if (substr($url, 0, 4) == 'www.') {
            $url = substr($url, 4);
        }

        require_once 'Net/Whois.php';
        $whois = new Net_Whois();

        $data = $whois->query($url/*, !empty($server) ? $server : null*/);

        // Cut non-needed info
        $data = preg_replace('/NOTICE: The expiration date .+?(Registrant:)/ims', '\\1', $data, 1);
        $data = preg_replace('/.+?(   Domain Name: )/ims', '\\1', $data, 1);
        $data = preg_replace('/([ ]{2,})/i', ' ', str_replace(["\t", "\r"], [' ', "\n"], trim($data)));
        $data = preg_replace("/([\n]{2,})/i", "\n", $data);

        return $data;
    }

    public function _create_cloud($cloud_data = [], $params = [])
    {
        $items = null;
        if (empty($cloud_data)) {
            return '';
        }

        if (empty($params['object'])) {
            $params['object'] = 'tags';
        }
        if (empty($params['action'])) {
            $params['action'] = 'search';
        }

        if (common()->CLOUD_ORDER == 'text') {
            ksort($cloud_data);
        } elseif (common()->CLOUD_ORDER == 'num') {
            arsort($cloud_data);
        }

        //Search for the max and min values of 'num' in array
        $max_val = max($cloud_data);
        $min_val = min($cloud_data);

        $items = '';
        foreach ((array) $cloud_data as $_text => $_num) {
            // Creating cloud
            if ($max_val !== $min_val) {
                $_cloud_fsize = common()->CLOUD_MIN_FSIZE + (
                    (common()->CLOUD_MAX_FSIZE - common()->CLOUD_MIN_FSIZE)
                    * ($_num - $min_val)
                    / ($max_val - $min_val)
                );
                $_cloud_fsize = round($_cloud_fsize, 2);
            } else {
                $_cloud_fsize = 1;
            }
            $replace2 = [
                'num' => $_num,
                'tag_text' => $_text,
                'tag_search_url' => './?object=' . $params['object'] . '&action=' . $params['action'] . '&id=' . $params['id_prefix'] . ($params['amp_encode'] ? str_replace(urlencode('&'), urlencode(urlencode('&')), urlencode($_text)) : urlencode($_text)),
                'cloud_fsize' => $_cloud_fsize,
            ];
            $items .= tpl()->parse('tags/cloud_item', $replace2);
        }
        return $items;
    }

    public function _currency_convert($number = 0, $c_from = '', $c_to = '')
    {
        if ( ! $number || ! $c_from || ! $c_to) {
            return $number;
        }
        $c_from = strtoupper($c_from);
        $c_to = strtoupper($c_to);
        if ($c_from == $c_to) {
            return $number;
        }
        $allowed_currencies = [
            'GBP', 'USD', 'UAH', 'MXN', 'ARS', 'CHF', 'CAD',
        ];
        $cache_name = 'currency_rates';
        if (main()->USE_SYSTEM_CACHE) {
            $rates = main()->get_data($cache_name);
        }
        if (empty($rates)) {
            foreach ((array) $allowed_currencies as $currency) {
                if ($currency == 'EUR') {
                    continue;
                }
                $cur_for_url[$currency] = 'EUR' . $currency . '=X';
            }
            // Example: http://download.finance.yahoo.com/d/quotes.json?s=EURUSD=X,GBPUSD=X,GBPEUR=X,GBPrub=X&f=sl1
            $url = 'http://download.finance.yahoo.com/d/quotes.json?s=' . implode(',', $cur_for_url) . '&f=sl1';
            $data = common()->get_remote_page($url);
            preg_match_all("#\"EUR(?P<cur>[a-z]{3})=X\",(?P<rate>[0-9\.]+)#ims", $data, $m);
            $eur_rates = [];
            foreach ((array) $m['cur'] as $i => $currency) {
                $currency = trim(strtoupper($currency));
                $rate = (float) ($m['rate'][$i]);
                $eur_rates[$currency] = $rate;
                $rates['EUR'][$currency] = $eur_rates[$currency];
            }
            foreach ((array) array_keys($eur_rates) as $currency) {
                $c_to_eur = $currency == 'EUR' ? 1 : $eur_rates[$currency];
                foreach ((array) array_keys($eur_rates) as $currency2) {
                    if ($currency2 == $currency) {
                        continue;
                    }
                    $c2_to_eur = $currency2 == 'EUR' ? 1 : $eur_rates[$currency2];

                    $v = $c2_to_eur / $c_to_eur;
                    $rates[$currency][$currency2] = $v;
                }
            }
            // Fix converting back to EUR rates
            foreach ((array) $rates as $currency => $_rates) {
                if ($currency == 'EUR') {
                    continue;
                }
                $rates[$currency]['EUR'] = 1 / $rates['EUR'][$currency];
            }
            if (main()->USE_SYSTEM_CACHE) {
                main()->put_data($cache_name, $rates);
            }
        }
        return $number * (float) str_replace(',', '.', $rates[$c_from][$c_to]);
    }

    public function _get_country_by_ip($ip = '')
    {
        if ( ! $ip) {
            return false;
        }
        if ( ! isset($this->_geoip_obj)) {
            $this->_geoip_obj = false;
            $db_path = INCLUDE_PATH . 'share/geo_ip_binary_db.dat';
            if ( ! file_exists($db_path)) {
                return false;
            }
            require_php_lib('geoip_api');
            if (function_exists('geoip_open')) {
                $this->_geoip_obj = geoip_open($db_path, GEOIP_MEMORY_CACHE);
            }
        }
        if ($this->_geoip_obj === false) {
            return false;
        }
        $country_code = geoip_country_code_by_addr($this->_geoip_obj, $ip);
        return strtoupper($country_code);
    }

    public function _get_geo_data_from_db($cur_ip = '')
    {
        $cur_ip = trim(array_pop(explode(',', preg_replace("/[^0-9\.,]/i", '', $cur_ip))));
        if (empty($cur_ip)) {
            return false;
        }
        if ($this->_is_ip_to_skip($cur_ip)) {
            return false;
        }
        $STORE_UNKNOWN_IPS = true;
        // Also check if IP is not recognized by our system and skip it
        if ($STORE_UNKNOWN_IPS && db()->query_num_rows(
            'SELECT * FROM ' . db('geo_skip_ip') . " WHERE ip = INET_ATON('" . _es($cur_ip) . "')"
        )) {
            return false;
        }
        // Prepare query
        $sql =
            'SELECT * 
			FROM ' . db('geo_city_location') . ' 
			WHERE loc_id = ( 
				SELECT loc_id FROM ' . db('geo_city_blocks') . "
				WHERE start_ip <= INET_ATON('" . _es($cur_ip) . "') 
					AND end_ip >= INET_ATON('" . _es($cur_ip) . "') 
				LIMIT 1 
			)";
        $A = db()->query_fetch($sql);
        if (empty($A)) {
            if ($STORE_UNKNOWN_IPS) {
                db()->query(
                    'INSERT INTO ' . db('geo_skip_ip') . " (
						ip, hits
					) VALUES (
						INET_ATON('" . _es($cur_ip) . "'), 1
					) ON DUPLICATE KEY UPDATE hits = hits + 1"
                );
            }
            return false;
        }
        $geo_data = [
            'country_code' => $A['country'],
            'country_name' => _country_name($A['country']),
            'region_code' => $A['region'],
            'city_name' => $A['city'],
            'dma_code' => $A['dma_code'],
            'area_code' => $A['area_code'],
            'longitude' => $A['longitude'],
            'latitude' => $A['latitude'],
        ];
        return $geo_data;
    }

    public function _is_ip_in_cidr($iptocheck, $CIDR)
    {
        // get the base and the bits from the ban in the database
        list($base, $bits) = explode('/', $CIDR);
        $bits = (int) $bits;
        // now split it up into it's classes
        list($a, $b, $c, $d) = array_map('intval', explode('.', $base));
        // now do some bit shfiting/switching to convert to ints
        $i = ($a << 24) + ($b << 16) + ($c << 8) + $d;
        $mask = $bits == 0 ? 0 : (~0 << (32 - $bits));
        // here's our lowest int
        $low = $i & $mask;
        // here's our highest int
        $high = $i | (~$mask & 0xFFFFFFFF);
        // now split the ip were checking against up into classes
        list($a, $b, $c, $d) = array_map('intval', explode('.', $iptocheck));
        // now convert the ip we're checking against to an int
        $check = ($a << 24) + ($b << 16) + ($c << 8) + $d;
        // if the ip is within the range, including highest/lowest values, then it's witin the CIDR range
        if ($check >= $low && $check <= $high) {
            return 1;
        }
        return 0;
    }

    public function _is_ip_to_skip($cur_ip = '')
    {
        // Taken from http://en.wikipedia.org/wiki/IPv4
        $ips_to_exclude = [
            '0.0.0.0/8',		// Current network (only valid as source address)	RFC 1700
            '10.0.0.0/8',		// Private network	RFC 1918
            '127.0.0.0/8',		// Loopback	RFC 3330
            '128.0.0.0/16',		// Reserved (IANA)	RFC 3330
            '169.254.0.0/16',	// Link-Local	RFC 3927
            '172.16.0.0/12',	// Private network	RFC 1918
            '191.255.0.0/16',	// Reserved (IANA)	RFC 3330
            '192.0.0.0/24',		// Reserved (IANA)	RFC 3330
            '192.0.2.0/24',		// Documentation and example code	RFC 3330
            '192.88.99.0/24',	// IPv6 to IPv4 relay	RFC 3068
            '192.168.0.0/16',	// Private network	RFC 1918
            '198.18.0.0/15',	// Network benchmark tests	RFC 2544
            '223.255.255.0/24',	// Reserved (IANA)	RFC 3330
            '224.0.0.0/4',		// Multicasts (former Class D network)	RFC 3171
            '240.0.0.0/4',		// Reserved (former Class E network)	RFC 1700
            '255.255.255.255',	// Broadcast
        ];
        foreach ((array) $ips_to_exclude as $_cur_cidr) {
            if (common()->_is_ip_in_cidr($cur_ip, $_cur_cidr)) {
                return true;
            }
        }
        return false;
    }

    public function _my_split($text = '', $split_token = '', $split_length = 0)
    {
        $_split_token = null;
        if ( ! strlen($split_token) || ! $split_length) {
            return [$text];
        }
        $splitted = [];

        $text_length = strlen($text);
        $num_parts = ceil($text_length / $split_length);
        $token_length = strlen($split_token);

        // each part but the first starts with the token, and the parts joined give $text back
        $offsets = [];
        $_prev_offset = 0;
        for ($i = 0; $i < $num_parts; $i++) {
            $_start_offset = max($i * $split_length, $_prev_offset) + $token_length;
            $_offset = $_start_offset < $text_length ? strpos($text, $split_token, $_start_offset) : false;
            if (false === $_offset) {
                break;
            }
            $offsets[] = $_prev_offset = $_offset;
        }
        $offsets[] = $text_length;

        $_prev_offset = 0;
        foreach ($offsets as $_offset) {
            $splitted[] = substr($text, $_prev_offset, $_offset - $_prev_offset);
            $_prev_offset = $_offset;
        }
        return $splitted;
    }