<?php

/**
 * mysql-tablet.php — слой совместимости для легаси-функций mysql_*.
 *
 * Восстанавливает API удалённого в PHP 7.0 расширения ext/mysql,
 * реализуя его поверх mysqli. Позволяет запускать старый код без правок
 * на PHP 8.x, включая 8.5.
 *
 * Требования окружения:
 *  - PHP >= 8.0 (используются str_starts_with() и str_contains());
 *  - включённое расширение mysqli.
 *
 * Побочные эффекты при подключении файла:
 *  - отключается режим исключений mysqli (MYSQLI_REPORT_OFF);
 *  - объявляются константы MYSQL_ASSOC, MYSQL_NUM, MYSQL_BOTH;
 *  - объявляются функции mysql_*, если они отсутствуют в ядре.
 *
 * ВНИМАНИЕ: файл является «костылём» для легаси-кода и не защищает
 * от SQL-инъекций, уже присутствующих в этом коде.
 *
 * @package MysqlTablet
 * @author  Сергей Абрамов и Макс-канал "Веб Мастерская"
 * @version 1.0.0
 * @see     https://www.php.net/manual/ru/book.mysqli.php
 * @see     https://www.php.net/manual/ru/book.mysql.php
 */

/**
 * Отключает выброс исключений mysqli.
 *
 * Легаси-код ожидает «тихий» возврат false и ручную проверку ошибок
 * через mysql_errno() / mysql_error(), поэтому режим исключений
 * (включён по умолчанию в PHP 8.1+) необходимо погасить.
 */
if (function_exists('mysqli_report') && defined('MYSQLI_REPORT_OFF')) {
    mysqli_report(MYSQLI_REPORT_OFF);
}

/**
 * Эмулирует константу ext/mysql MYSQL_ASSOC (ассоциативная выборка).
 *
 * Значение берётся из MYSQLI_ASSOC; при его отсутствии используется
 * историческое числовое значение 1.
 */
if (!defined('MYSQL_ASSOC')) {
    define('MYSQL_ASSOC', defined('MYSQLI_ASSOC') ? MYSQLI_ASSOC : 1);
}

/**
 * Эмулирует константу ext/mysql MYSQL_NUM (нумерованная выборка).
 *
 * Значение берётся из MYSQLI_NUM; при его отсутствии используется
 * историческое числовое значение 2.
 */
if (!defined('MYSQL_NUM')) {
    define('MYSQL_NUM', defined('MYSQLI_NUM') ? MYSQLI_NUM : 2);
}

/**
 * Эмулирует константу ext/mysql MYSQL_BOTH (ассоциативная + нумерованная выборка).
 *
 * Значение берётся из MYSQLI_BOTH; при его отсутствии используется
 * историческое числовое значение 3.
 */
if (!defined('MYSQL_BOTH')) {
    define('MYSQL_BOTH', defined('MYSQLI_BOTH') ? MYSQLI_BOTH : 3);
}

/**
 * Блок объявления функций-заглушек.
 *
 * Функции объявляются только при отсутствии одноимённых в ядре
 * (то есть на PHP >= 7.0, где ext/mysql удалено). Проверка
 * function_exists() защищает от фатальной ошибки повторного объявления.
 */
if (!function_exists('mysql_connect')) {

    /**
     * Открывает соединение с MySQL-сервером (эмуляция mysql_connect()).
     *
     * Поддерживает исторические форматы строки сервера:
     *  - «host:port» — явное указание порта;
     *  - «:/path/to/socket» или «host:/path/to/socket» — UNIX-сокет;
     *  - префикс «p:» — персистентное соединение.
     *
     * Успешное соединение сохраняется в $GLOBALS['mysql_oldstyle_link']
     * и используется остальными функциями как соединение по умолчанию.
     * Ошибки соединения фиксируются в $GLOBALS['mysql_oldstyle_connect_errno']
     * и $GLOBALS['mysql_oldstyle_connect_error'] и доступны через
     * mysql_errno() / mysql_error(). Исключения наружу не пробрасываются.
     *
     * @param  string $server       Хост сервера, опционально «:порт», «:/путь/к/сокету» и/или префикс «p:».
     * @param  string $username     Имя пользователя MySQL.
     * @param  string $password     Пароль пользователя MySQL.
     * @param  bool   $new_link     Не используется; сохранён исключительно для совместимости сигнатуры.
     * @param  int    $client_flags Битовая маска клиентских флагов mysqli (MYSQLI_CLIENT_*).
     *
     * @return mysqli|false Объект соединения либо false при ошибке подключения.
     *
     * @global mysqli|null $mysql_oldstyle_link           Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     * @global int         $mysql_oldstyle_connect_errno  Код последней ошибки соединения ($GLOBALS['mysql_oldstyle_connect_errno']).
     * @global string      $mysql_oldstyle_connect_error  Текст последней ошибки соединения ($GLOBALS['mysql_oldstyle_connect_error']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_real_connect()
     */
    function mysql_connect($server, $username, $password, $new_link = false, $client_flags = 0)
    {
        try {
            if (!function_exists('mysqli_init')) {
                return false;
            }

            $host = (string) $server;
            $port = null;
            $socket = null;
            $persistentPrefix = '';

            // Префикс «p:» означает персистентное соединение в mysqli.
            if (str_starts_with($host, 'p:')) {
                $persistentPrefix = 'p:';
                $host = substr($host, 2);
            }

            // Разбор исторических форматов строки сервера ext/mysql.
            if ($host === '') {
                $host = 'localhost';
            } elseif (str_starts_with($host, ':')) {
                $socket = substr($host, 1);
                $host = 'localhost';
            } elseif (str_contains($host, ':')) {
                [$hostname, $extra] = explode(':', $host, 2);

                if ($hostname !== '') {
                    $host = $hostname;
                }

                if ($extra !== '') {
                    if ($extra[0] === '/') {
                        $socket = $extra;   // Всё, что начинается с «/», — путь к сокету.
                    } else {
                        $port = (int) $extra; // Иначе — номер порта.
                    }
                }
            }

            $host = $persistentPrefix . $host;

            $link = mysqli_init();

            if (!$link instanceof mysqli) {
                return false;
            }

            // «@» глушит warning'и: легаси само проверяет ошибки через mysql_errno().
            $ok = @mysqli_real_connect(
                $link,
                $host,
                (string) $username,
                (string) $password,
                null,
                $port,
                $socket,
                (int) $client_flags
            );

            if (!$ok) {
                $GLOBALS['mysql_oldstyle_connect_errno'] = function_exists('mysqli_connect_errno')
                    ? mysqli_connect_errno()
                    : 0;

                $GLOBALS['mysql_oldstyle_connect_error'] = function_exists('mysqli_connect_error')
                    ? mysqli_connect_error()
                    : '';

                return false;
            }

            $GLOBALS['mysql_oldstyle_link'] = $link;
            $GLOBALS['mysql_oldstyle_connect_errno'] = 0;
            $GLOBALS['mysql_oldstyle_connect_error'] = '';

            return $link;
        } catch (Throwable $e) {
            $GLOBALS['mysql_oldstyle_connect_errno'] = (int) $e->getCode();
            $GLOBALS['mysql_oldstyle_connect_error'] = $e->getMessage();

            return false;
        }
    }

    /**
     * Выбирает базу данных по умолчанию для соединения (эмуляция mysql_select_db()).
     *
     * @param  string        $database_name Имя базы данных.
     * @param  mysqli|null   $link          Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return bool true при успехе, false при ошибке или невалидном соединении.
     *
     * @global mysqli|null $mysql_oldstyle_link Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_select_db()
     */
    function mysql_select_db($database_name, $link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return false;
        }

        return mysqli_select_db($link, (string) $database_name);
    }

    /**
     * Выполняет SQL-запрос (эмуляция mysql_query()).
     *
     * @param  string      $sql  Текст SQL-запроса.
     * @param  mysqli|null $link Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return mysqli_result|bool Объект результата для SELECT-подобных запросов,
     *                            true для успешных запросов без результата,
     *                            false при ошибке или невалидном соединении.
     *
     * @global mysqli|null $mysql_oldstyle_link Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_query()
     */
    function mysql_query($sql, $link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return false;
        }

        return mysqli_query($link, (string) $sql);
    }

    /**
     * Выбирает следующую строку результата в виде нумерованного массива (эмуляция mysql_fetch_row()).
     *
     * В отличие от mysqli_fetch_row() возвращает false вместо null при выходе
     * за конец результата — именно на такое поведение рассчитан легаси-код.
     *
     * @param  mysqli_result|mixed $res Результат запроса, возвращённый mysql_query().
     *
     * @return array<int, string|null>|false Строка результата либо false, если строк больше нет
     *                                       или передан не-результат.
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_fetch_row()
     */
    function mysql_fetch_row($res)
    {
        if (!$res instanceof mysqli_result) {
            return false;
        }

        $row = mysqli_fetch_row($res);

        return $row === null ? false : $row;
    }

    /**
     * Выбирает следующую строку результата в виде ассоциативного массива (эмуляция mysql_fetch_assoc()).
     *
     * В отличие от mysqli_fetch_assoc() возвращает false вместо null при выходе
     * за конец результата.
     *
     * @param  mysqli_result|mixed $res Результат запроса, возвращённый mysql_query().
     *
     * @return array<string, string|null>|false Строка результата либо false, если строк больше нет
     *                                          или передан не-результат.
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_fetch_assoc()
     */
    function mysql_fetch_assoc($res)
    {
        if (!$res instanceof mysqli_result) {
            return false;
        }

        $row = mysqli_fetch_assoc($res);

        return $row === null ? false : $row;
    }

    /**
     * Выбирает следующую строку результата в заданном формате (эмуляция mysql_fetch_array()).
     *
     * Исторические константы MYSQL_ASSOC / MYSQL_NUM / MYSQL_BOTH прозрачно
     * отображаются на MYSQLI_ASSOC / MYSQLI_NUM / MYSQLI_BOTH.
     * Возвращает false вместо null при выходе за конец результата.
     *
     * @param  mysqli_result|mixed $res         Результат запроса, возвращённый mysql_query().
     * @param  int|null            $result_type Одна из констант MYSQL_ASSOC, MYSQL_NUM, MYSQL_BOTH;
     *                                          null эквивалентен MYSQL_BOTH.
     *
     * @return array<int|string, string|null>|false Строка результата либо false, если строк больше нет
     *                                               или передан не-результат.
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_fetch_array()
     */
    function mysql_fetch_array($res, $result_type = null)
    {
        if (!$res instanceof mysqli_result) {
            return false;
        }

        if ($result_type === null) {
            $result_type = MYSQL_BOTH;
        }

        $result_type = (int) $result_type;

        // Маппинг исторических констант ext/mysql на константы mysqli.
        $map = [
            MYSQL_ASSOC => MYSQLI_ASSOC,
            MYSQL_NUM   => MYSQLI_NUM,
            MYSQL_BOTH  => MYSQLI_BOTH,
        ];

        $mode = $map[$result_type] ?? MYSQLI_BOTH;

        $row = mysqli_fetch_array($res, $mode);

        return $row === null ? false : $row;
    }

    /**
     * Выбирает следующую строку результата в виде объекта (эмуляция mysql_fetch_object()).
     *
     * Возвращает false вместо null при выходе за конец результата.
     * Ошибки создания экземпляра класса перехватываются и также приводят к false.
     *
     * @param  mysqli_result|mixed $res       Результат запроса, возвращённый mysql_query().
     * @param  string              $classname Имя класса создаваемого объекта.
     * @param  array<int, mixed>   $params    Аргументы конструктора класса.
     *
     * @return object|false Экземпляр $classname с полями строки либо false, если строк больше нет,
     *                      передан не-результат или не удалось создать объект.
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_fetch_object()
     */
    function mysql_fetch_object($res, $classname = 'stdClass', $params = [])
    {
        if (!$res instanceof mysqli_result) {
            return false;
        }

        try {
            $object = mysqli_fetch_object(
                $res,
                (string) $classname,
                (array) $params
            );
        } catch (Throwable $e) {
            return false;
        }

        return $object === null ? false : $object;
    }

    /**
     * Возвращает число строк, затронутых последним запросом (эмуляция mysql_affected_rows()).
     *
     * @param  mysqli|null $link Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return int Число затронутых строк; -1 при ошибке запроса или невалидном соединении.
     *
     * @global mysqli|null $mysql_oldstyle_link Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_affected_rows()
     */
    function mysql_affected_rows($link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return -1;
        }

        return mysqli_affected_rows($link);
    }

    /**
     * Возвращает ID строки, вставленной последним запросом (эмуляция mysql_insert_id()).
     *
     * @param  mysqli|null $link Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return int|string ID последней вставленной строки (string для значений BIGINT);
     *                    0 при невалидном соединении.
     *
     * @global mysqli|null $mysql_oldstyle_link Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_insert_id()
     */
    function mysql_insert_id($link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return 0;
        }

        return mysqli_insert_id($link);
    }

    /**
     * Возвращает код последней ошибки (эмуляция mysql_errno()).
     *
     * Если соединение отсутствует или невалидно, отдаёт код ошибки соединения,
     * сохранённый функцией mysql_connect() в $GLOBALS.
     *
     * @param  mysqli|null $link Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return int Код последней ошибки; 0, если ошибок не было.
     *
     * @global mysqli|null $mysql_oldstyle_link          Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     * @global int         $mysql_oldstyle_connect_errno Код последней ошибки соединения ($GLOBALS['mysql_oldstyle_connect_errno']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_errno()
     */
    function mysql_errno($link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return (int) ($GLOBALS['mysql_oldstyle_connect_errno'] ?? 0);
        }

        return mysqli_errno($link);
    }

    /**
     * Возвращает текст последней ошибки (эмуляция mysql_error()).
     *
     * Если соединение отсутствует или невалидно, отдаёт текст ошибки соединения,
     * сохранённый функцией mysql_connect() в $GLOBALS.
     *
     * @param  mysqli|null $link Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return string Текст последней ошибки; пустая строка, если ошибок не было.
     *
     * @global mysqli|null $mysql_oldstyle_link          Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     * @global string      $mysql_oldstyle_connect_error Текст последней ошибки соединения ($GLOBALS['mysql_oldstyle_connect_error']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_error()
     */
    function mysql_error($link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return (string) ($GLOBALS['mysql_oldstyle_connect_error'] ?? '');
        }

        return mysqli_error($link);
    }

    /**
     * Возвращает число строк в результате запроса (эмуляция mysql_num_rows()).
     *
     * @param  mysqli_result|mixed $res Результат запроса, возвращённый mysql_query().
     *
     * @return int|false Число строк в результате либо false, если передан не-результат.
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_num_rows()
     */
    function mysql_num_rows($res)
    {
        if (!$res instanceof mysqli_result) {
            return false;
        }

        return mysqli_num_rows($res);
    }

    /**
     * Освобождает память, занятую результатом запроса (эмуляция mysql_free_result()).
     *
     * @param  mysqli_result|mixed $res Результат запроса, возвращённый mysql_query().
     *
     * @return bool true, если память освобождена; false, если передан не-результат.
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_free_result()
     */
    function mysql_free_result($res)
    {
        if (!$res instanceof mysqli_result) {
            return false;
        }

        mysqli_free_result($res);

        return true;
    }

    /**
     * Закрывает соединение с сервером (эмуляция mysql_close()).
     *
     * Если закрывается соединение по умолчанию, оно дополнительно удаляется
     * из $GLOBALS, чтобы остальные функции не использовали «мёртвый» линк.
     * Закрытие невалидного соединения считается успешным (true), как в ext/mysql.
     *
     * @param  mysqli|null $link Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return bool true при успешном закрытии (или невалидном соединении), false при ошибке.
     *
     * @global mysqli|null $mysql_oldstyle_link Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_close()
     */
    function mysql_close($link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return true;
        }

        $result = mysqli_close($link);

        if (isset($GLOBALS['mysql_oldstyle_link']) && $GLOBALS['mysql_oldstyle_link'] === $link) {
            unset($GLOBALS['mysql_oldstyle_link']);
        }

        return $result;
    }

    /**
     * Экранирует специальные символы в строке для использования в SQL (эмуляция mysql_real_escape_string()).
     *
     * @param  string      $sql  Исходная строка.
     * @param  mysqli|null $link Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return string|false Экранированная строка либо false при невалидном соединении.
     *
     * @global mysqli|null $mysql_oldstyle_link Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте подготовленные выражения mysqli/PDO.
     * @see        mysqli_real_escape_string()
     */
    function mysql_real_escape_string($sql, $link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return false;
        }

        return mysqli_real_escape_string($link, (string) $sql);
    }

    /**
     * Возвращает версию MySQL-сервера (эмуляция mysql_get_server_info()).
     *
     * @param  mysqli|null $link Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return string|false Строка версии сервера либо false при невалидном соединении.
     *
     * @global mysqli|null $mysql_oldstyle_link Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_get_server_info()
     */
    function mysql_get_server_info($link = null)
    {
        if ($link === null) {
            $link = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link instanceof mysqli) {
            return false;
        }

        return mysqli_get_server_info($link);
    }

    /**
     * Устанавливает кодировку соединения (эмуляция mysql_set_charset()).
     *
     * @param  string      $charset          Имя кодировки (например, «utf8mb4»).
     * @param  mysqli|null $link_identifier  Соединение; null — соединение по умолчанию из $GLOBALS.
     *
     * @return bool true при успехе, false при ошибке или невалидном соединении.
     *
     * @global mysqli|null $mysql_oldstyle_link Соединение по умолчанию ($GLOBALS['mysql_oldstyle_link']).
     *
     * @deprecated Только для совместимости с легаси; в новом коде используйте mysqli или PDO.
     * @see        mysqli_set_charset()
     */
    function mysql_set_charset($charset, $link_identifier = null)
    {
        if ($link_identifier === null) {
            $link_identifier = $GLOBALS['mysql_oldstyle_link'] ?? null;
        }

        if (!$link_identifier instanceof mysqli) {
            return false;
        }

        return mysqli_set_charset($link_identifier, (string) $charset);
    }
}

?>