<?php

if (!defined("STATUS_OK")) {
    define("STATUS_OK", "OK");
}

if (!defined("STATUS_FAIL")) {
    define("STATUS_FAIL", "FAIL");
}

if (!function_exists('r4_success')) {
    function r4_success($result) {
        $result['status'] = 'success';

        echo json_encode($result);

        exit(0);
    }
}

if (!function_exists('r4_fail')) {
    function r4_fail($result, $errmsg) {
        $result['error'] = $errmsg;
        $result['status'] = 'fail';

        echo json_encode($result);

        exit(1);
    }
}

if (!function_exists('iconv_link')) {
    /**
     * Конвертирует ссылку из одной кодировки в другую.
     *
     * @param type $link Ссылка для конвертации.
     * @param string $r4_cfg_default_encoding Кодировка, из которой следует конвертировать.
     * @param type $r4_cfg_link_encoding Кодировка, в которую следует конвертировать.
     *
     * @return string Возвращает ссылку после конвертации или исходное значение.
     */
    function iconv_link($link, $r4_cfg_default_encoding, $r4_cfg_link_encoding) {
        if (function_exists('iconv')) {
            if (!isset($r4_cfg_default_encoding)) {
                $r4_cfg_default_encoding = 'UTF-8';
            }

            if ($r4_cfg_link_encoding !== $r4_cfg_default_encoding) {
                $iconv_link = iconv($r4_cfg_default_encoding, $r4_cfg_link_encoding, $link);
                $error = error_get_last();
                $error_message = isset($error['message']) ? $error['message'] : '';

                if (strpos($error_message, 'iconv') === FALSE) {
                    $link = $iconv_link;
                }
            }
        }

        return $link;
    }
}

if (!function_exists('write_logfile')) {
    /**
     * Записывает посещение робота в log-файл.
     *
     * @param type $logfile Имя log-файла.
     * @param type $logpath Путь до log-файла.
     * @param type $uri Значение запрошенного роботом пути сайта.
     *
     * @return boolean Возвращает TRUE если удалось записать посещение робота, FALSE в противном случае.
     */
    function write_logfile($logfile, $logpath, $uri) {
        if (is_writable($logfile)) {
            $r4_fp = fopen($logfile, 'a');

            if ($r4_fp) {
                if (!fwrite($r4_fp, date('Y-m-d H:i:s')."\t{$uri}\n")) {
                    error_log(date("F j, Y, g:i a")." R4: File write failed!\n", 3, "{$logpath}error.log");
                }

                fclose($r4_fp);

                return TRUE;
            }
        }

        return FALSE;
    }
}

if (!function_exists('check_logfile')) {
    /**
     * Проверка лог-файла:
     *   если файла не существует, то создаёт пустой;
     *   если существует и размер превышает максимально допустимый, то усекает до половины разрешённого.
     *
     * @param string $logfile Имя файла.
     * @param string $logpath Путь до файла.
     * @param int $maxsize Максимально допустимый размер файла в мегабайтах.
     */
    function check_logfile($logfile, $logpath, $maxsize) {
        if (!file_exists($logfile)) {
            touch($logfile);
        }
        else {
            if (filesize($logfile) > $maxsize * 1024 * 1024) {
                $tmp_filename = $logpath.md5(time()).'r4.tmp';
                $tmp_f = fopen($tmp_filename, 'w');

                $f = fopen($logfile, 'r');
                $cursor = $maxsize / 2 * 1024 * 1024;
                fseek($f, -$cursor, SEEK_END);

                while (($buffer = fgets($f, 4096)) !== false) {
                    if (preg_match('/^\d{4}-\d{2}-\d{2}/', $buffer)) {
                        fputs($tmp_f, $buffer, 4096);
                    }
                }

                fclose($f);
                fclose($tmp_f);

                if (file_exists($tmp_filename)) {
                    rename($tmp_filename, $logfile);
                }
            }
        }
    }
}

if (!function_exists('rmdir_recursive')) {
    /**
     * Рекурсивное удаление каталогов и файлов.
     *
     * @param string $path Путь до удаляемого каталога.
     * @param array $exclude Массив каталогов и файлов, которые не следует удалять.
     *
     * @return boolean
     */
    function rmdir_recursive($path, $exclude=array(), $pattern='') {
        $path = rtrim($path, '/');
        $undeleted_files = array();
        if (is_dir($path)) {
            if (($dir = opendir($path)) !== FALSE) {
                while (($file = readdir($dir)) !== FALSE) {
                    if ($file != "." && $file != ".." && !in_array("{$path}/{$file}", $exclude)) {
                        if (is_dir("{$path}/{$file}")) {
                            $undeleted_files = array_merge($undeleted_files, rmdir_recursive("{$path}/{$file}", $exclude, $pattern));
                        }
                        else {
                            if (empty($pattern) || preg_match("/{$pattern}/", "{$file}")) {
                                if (!unlink("{$path}/{$file}")) {
                                    $undeleted_files[] = "{$path}/{$file}";
                                }
                            }
                        }
                    }
                }

                closedir($dir);

//                if (!in_array("{$path}", $exclude)) {
//                    if (!rmdir($path)) {
//                         $undeleted_files[] = $path;
//                    }
//                }
            }
        }
        elseif (is_file($path)) {
            if (!in_array("{$path}", $exclude)) {
                if (empty($pattern) || preg_match("/{$pattern}/", "{$file}")) {
                    if (!unlink($path)) {
                        $undeleted_files[] = $path;
                    }
                }
            }
        }

        return $undeleted_files;
    }
}

if (!function_exists('get_filenames')) {
    /**
     * Получает список названий всех файлов в директории и поддиректориях
     *
     * @param string $dir Каталог, в котором рекурсивно производится поиск файлов.
     * @param arrya $exclude Массив каталогов и файлов, которые не следует выводить.
     * @param string $pattern Маска (регулярное выражение) файлов.
     *
     * @return array Массив строк, содержащий список файлов по маске.
     */
    function get_filenames($dir, $exclude=array(), $pattern='') {
        $filenames = array();
        $dir = rtrim($dir, '/');
        if (is_dir($dir)) {
            if (($dh = opendir($dir)) !== FALSE) {
                while (($filename = readdir($dh)) !== FALSE) {
                    if ($filename == '.' || $filename == '..' || in_array("{$dir}/{$filename}", $exclude)) {
                        continue;
                    }
                    if (is_dir("{$dir}/{$filename}")) {
                        $filenames = array_merge($filenames, get_filenames("{$dir}/{$filename}", $exclude, $pattern));
                    }
                    else {
                        if (is_file("{$dir}/{$filename}") && preg_match("/{$pattern}/", "{$filename}")) {
                            $filenames[] = "{$dir}/{$filename}";
                        }
                    }
                }
                closedir($dh);
            }
        }
        elseif (is_dir($dir)) {
            $filenames[] = $dir;
        }

        return $filenames;
    }
}

if (!function_exists('json_encode')) {
    /**
     * Returns the JSON representation of a value.
     *
     * @param resource $value The value being encoded. Can be any type except a resource.
     *
     * @return string Returns a JSON encoded string on success or FALSE on failure.
     */
    function json_encode($value=false) {
        if (is_null($value)) {
            return 'null';
        }

        if ($value === false) {
            return 'false';
        }

        if ($value === true) {
            return 'true';
        }

        if (is_scalar($value)) {
            if (is_float($value)) {
                return floatval(str_replace(",", ".", strval($value)));
            }

            if (is_string($value)) {
                static $json_replaces = array(array("\\", "/", "\n", "\t", "\r", "\b", "\f", '"'), array('\\\\', '\\/', '\\n', '\\t', '\\r', '\\b', '\\f', '\"'));
                return '"' . str_replace($json_replaces[0], $json_replaces[1], $value) . '"';
            }
            else {
                return $value;
            }
        }

        $is_list = true;

        for ($i = 0, reset($value); $i < count($value); $i++, next($value)) {
            if (key($value) !== $i) {
                $is_list = false;
                break;
            }
        }

        $result = array();

        if ($is_list) {
            foreach ($value as $v) {
                $result[] = json_encode($v);
            }

            return '[' . join(',', $result) . ']';
        }
        else {
            foreach ($value as $k => $v) {
                $result[] = json_encode($k).':'.json_encode($v);
            }

            return '{' . join(',', $result) . '}';
        }
    }
}

if (!function_exists('error_get_last')) {
    set_error_handler(
        create_function(
            '$errno,$errstr,$errfile,$errline,$errcontext',
            '
                global $__error_get_last_retval__;

                $__error_get_last_retval__ = array(
                    \'type\' => $errno,
                    \'message\' => $errstr,
                    \'file\' => $errfile,
                    \'line\' => $errline
                );

                return false;
            '
        ),
        E_ALL & ~E_NOTICE & ~E_USER_NOTICE
    );

    /**
     * To simulate error_get_last function in a horrid way for PHP 5 < 5.2.0
     *
     * @global type $__error_get_last_retval__
     * @return null
     */
    function error_get_last() {
        global $__error_get_last_retval__;

        if (!isset($__error_get_last_retval__)) {
            return null;
        }

        return $__error_get_last_retval__;
    }
}

if (!function_exists('str_split')) {
    /**
     * Версия http://www.php.net/manual/en/function.str-split.php для PHP 4.
     *
     * Converts a string to an array.
     *
     * @param string $string The input string.
     *
     * @return array The returned array will be one character in length.
     */
    function str_split($string){
        return preg_split('//', $string, -1, PREG_SPLIT_NO_EMPTY);
    }
}

if (!function_exists('check_safe_mode')) {
    /**
     * Определяет, включён ли на сайте SAFE MODE.
     *
     * @return boolean True, если SAFE MODE включён, иначе - false.
     */
    function check_safe_mode($r4_cfg_root='') {
        $tmpdir = uniqid('');

        mkdir("{$r4_cfg_root}{$tmpdir}", 0777);

        $error = error_get_last();
        $error_message = isset($error['message']) ? $error['message'] : '';

        if (strpos($error_message, 'SAFE MODE')) {
            return true;
        }

        rmdir("{$r4_cfg_root}{$tmpdir}");

        return false;
    }
}