boot.php

<?php

if (\rex::isBackend() && is_object(\rex::getUser())) {
    rex_perm::register('d2u_machinery[]', rex_i18n::msg('d2u_machinery_rights_all'));
    rex_perm::register('d2u_machinery[machine]', rex_i18n::msg('d2u_machinery_rights_all') .': '. rex_i18n::msg('d2u_machinery_meta_machines'));
    rex_perm::register('d2u_machinery[category]', rex_i18n::msg('d2u_machinery_rights_all') .': '. rex_i18n::msg('d2u_helper_categories'));
    rex_perm::register('d2u_machinery[edit_lang]', rex_i18n::msg('d2u_machinery_rights_edit_lang'), rex_perm::OPTIONS);
    rex_perm::register('d2u_machinery[edit_data]', rex_i18n::msg('d2u_machinery_rights_edit_data'), rex_perm::OPTIONS);
    rex_perm::register('d2u_machinery[settings]', rex_i18n::msg('d2u_machinery_rights_settings'), rex_perm::OPTIONS);
}

if (\rex::isBackend()) {
    rex_extension::register('ART_PRE_DELETED', rex_d2u_machinery_article_is_in_use(...));
    rex_extension::register('CLANG_DELETED', rex_d2u_machinery_clang_deleted(...));
    rex_extension::register('MEDIA_IS_IN_USE', rex_d2u_machinery_media_is_in_use(...));
} else {
    $d2u_video = rex_addon::get('d2u_videos');
    if ($d2u_video->isAvailable() && rex_version::compare($d2u_video->getVersion(), '1.1', '>=')) {
        rex_extension::register('YREWRITE_SITEMAP', rex_d2u_machinery_video_sitemap(...));
    }
}
// Call this extension point also in frontend
rex_extension::register('URL_PRE_SAVE', rex_d2u_machinery_url_shortener(...));

/**
 * Checks if article is used by this addon.
 * @param rex_extension_point<string> $ep Redaxo extension point
 * @throws rex_api_exception If article is used
 * @return string Warning message as array
 */
function rex_d2u_machinery_article_is_in_use(rex_extension_point $ep)
{
    $warning = [];
    $params = $ep->getParams();
    $article_id = (int) $params['id'];

    // Machines
    $sql_machine = \rex_sql::factory();
    $sql_machine->setQuery('SELECT lang.machine_id, name FROM `' . \rex::getTablePrefix() . 'd2u_machinery_machines_lang` AS lang '
        .'LEFT JOIN `' . \rex::getTablePrefix() . 'd2u_machinery_machines` AS machines ON lang.machine_id = machines.machine_id '
        .'WHERE article_id_software = "'. $article_id .'" OR article_id_service = "'. $article_id .'" '.
            'OR article_id_service = "'. $article_id .'" OR article_ids_references LIKE "%,'. $article_id .',%" OR article_ids_references LIKE "%,'. $article_id .'" OR article_ids_references LIKE "'. $article_id .',%"'
        .'GROUP BY machine_id');

    // Prepare warnings
    // Machines
    for ($i = 0; $i < $sql_machine->getRows(); ++$i) {
        $message = '<a href="javascript:openPage(\'index.php?page=d2u_machinery/machine&func=edit&entry_id='.
            $sql_machine->getValue('machine_id') .'\')">'. rex_i18n::msg('d2u_machinery_rights_all') .' - '. rex_i18n::msg('d2u_machinery_meta_machines') .': '. $sql_machine->getValue('name') .'</a>';
        if (!in_array($message, $warning, true)) {
            $warning[] = $message;
        }
        $sql_machine->next();
    }

    // Settings
    $addon = rex_addon::get('d2u_machinery');
    if ($addon->hasConfig('article_id') && $addon->getConfig('article_id') === $article_id) {
        $message = '<a href="index.php?page=d2u_machinery/settings">'.
             rex_i18n::msg('d2u_machinery_rights_all') .' - '. rex_i18n::msg('d2u_helper_settings') . '</a>';
        if (!in_array($message, $warning, true)) {
            $warning[] = $message;
        }
    }

    if (count($warning) > 0) {
        throw new rex_api_exception(rex_i18n::msg('d2u_helper_rex_article_cannot_delete').'<ul><li>'. implode('</li><li>', $warning) .'</li></ul>');
    }

    return '';

}

/**
 * Deletes language specific configurations and objects.
 * @param rex_extension_point<array<string>> $ep Redaxo extension point
 * @return array<string> Warning message as array
 */
function rex_d2u_machinery_clang_deleted(rex_extension_point $ep)
{
    $warning = $ep->getSubject();
    $params = $ep->getParams();
    $clang_id = $params['id'];

    // Delete
    $categories = Category::getAll($clang_id);
    foreach ($categories as $category) {
        $category->delete(false);
    }
    $machines = Machine::getAll($clang_id, false);
    foreach ($machines as $machine) {
        $machine->delete(false);
    }

    // Delete language settings
    if (rex_config::has('d2u_machinery', 'lang_replacement_'. $clang_id)) {
        rex_config::remove('d2u_machinery', 'lang_replacement_'. $clang_id);
    }
    // Delete language replacements
    d2u_machinery_lang_helper::factory()->uninstall($clang_id);

    return $warning;
}

/**
 * Checks if media is used by this addon.
 * @param rex_extension_point<array<string>> $ep Redaxo extension point
 * @return array<string> Warning message as array
 */
function rex_d2u_machinery_media_is_in_use(rex_extension_point $ep)
{
    $warning = $ep->getSubject();
    $params = $ep->getParams();
    $filename = addslashes($params['filename']);

    // Machines
    $sql_machine = \rex_sql::factory();
    $sql_machine->setQuery('SELECT lang.machine_id, name FROM `' . \rex::getTablePrefix() . 'd2u_machinery_machines_lang` AS lang '
        .'LEFT JOIN `' . \rex::getTablePrefix() . 'd2u_machinery_machines` AS machines ON lang.machine_id = machines.machine_id '
        .'WHERE FIND_IN_SET("'. $filename .'", pdfs) OR FIND_IN_SET("'. $filename .'", pics) OR description LIKE "%'. $filename .'%" OR benefits_short LIKE "%'. $filename .'%" OR benefits_long LIKE "%'. $filename .'%" OR leaflet = "'. $filename .'"'
        . (rex_plugin::get('d2u_machinery', 'machine_construction_equipment_extension')->isAvailable() ? 'OR FIND_IN_SET("'. $filename .'", pictures_delivery_set) ' : '')
        .'GROUP BY machine_id');

    // Categories
    $sql_categories = \rex_sql::factory();
    $sql_categories->setQuery('SELECT lang.category_id, name FROM `' . \rex::getTablePrefix() . 'd2u_machinery_categories_lang` AS lang '
        .'LEFT JOIN `' . \rex::getTablePrefix() . 'd2u_machinery_categories` AS categories ON lang.category_id = categories.category_id '
        .'WHERE pic = "'. $filename .'" OR pic_usage = "'. $filename .'" OR pic_lang = "'. $filename .'" OR FIND_IN_SET("'. $filename .'", pdfs) OR description LIKE "%'. $filename .'%"');

    // Prepare warnings
    // Machines
    for ($i = 0; $i < $sql_machine->getRows(); ++$i) {
        $message = '<a href="javascript:openPage(\'index.php?page=d2u_machinery/machine&func=edit&entry_id='.
            $sql_machine->getValue('machine_id') .'\')">'. rex_i18n::msg('d2u_machinery_rights_all') .' - '. rex_i18n::msg('d2u_machinery_meta_machines') .': '. $sql_machine->getValue('name') .'</a>';
        if (!in_array($message, $warning, true)) {
            $warning[] = $message;
        }
        $sql_machine->next();
    }

    // Categories
    for ($i = 0; $i < $sql_categories->getRows(); ++$i) {
        $message = '<a href="javascript:openPage(\'index.php?page=d2u_machinery/category&func=edit&entry_id='. $sql_categories->getValue('category_id') .'\')">'.
             rex_i18n::msg('d2u_machinery_rights_all') .' - '. rex_i18n::msg('d2u_helper_categories') .': '. $sql_categories->getValue('name') . '</a>';
        if (!in_array($message, $warning, true)) {
            $warning[] = $message;
        }
        $sql_categories->next();
    }

    // Settings
    $addon = rex_addon::get('d2u_machinery');
    if (($addon->hasConfig('consultation_pic') && $addon->getConfig('consultation_pic') === $filename)
        || ($addon->hasConfig('consultation_pics') && str_contains((string) $addon->getConfig('consultation_pics'), $filename))) {
        $message = '<a href="javascript:openPage(\'index.php?page=d2u_machinery/settings\')">'.
             rex_i18n::msg('d2u_machinery_rights_all') .' - '. rex_i18n::msg('d2u_helper_settings') . '</a>';
        if (!in_array($message, $warning, true)) {
            $warning[] = $message;
        }
    }

    return $warning;
}

/**
 * Shortens URL by removing article or category name.
 * @param rex_extension_point<string> $ep Redaxo extension point
 * @return \Url\Url New URL
 */
function rex_d2u_machinery_url_shortener(rex_extension_point $ep)
{
    $params = $ep->getParams();
    $url = $params['object'];
    $article_id = (int) $params['article_id'];
    $clang_id = (int) $params['clang_id'];

    // Only shorten URLs that are not start article and articles of this addon
    if ($article_id !== rex_yrewrite::getDomainByArticleId($article_id, $clang_id)->getStartId() &&
            ($article_id === rex_config::get('d2u_machinery', 'article_id'))
    ) {
        $domain = rex_yrewrite::getDomainByArticleId($article_id);

        // First: delete forwarder, if exists - there should be no forwarder to an existing URL
        if ('false' === rex_config::get('d2u_machinery', 'short_urls_forward', 'false')) {
            $query = 'DELETE FROM '. \rex::getTablePrefix() .'yrewrite_forward '
                ."WHERE `url` = '". trim(str_replace($domain->getName(), '/', $url->__toString()), '/') ."'";
            $result = \rex_sql::factory();
            $result->setQuery($query);

            // Don't forget to regenerate YRewrite path file this way
            // rex_yrewrite_forward::init();
            // rex_yrewrite_forward::generatePathFile();
            // This cannot be done here, because method would be called to often
        }

        // Second: make URL shorter
        if ('true' === rex_config::get('d2u_machinery', 'short_urls', 'false')) {
            $article_url = rex_getUrl($article_id, $clang_id);
            $start_article_url = rex_getUrl(rex_yrewrite::getDomainByArticleId($article_id, $clang_id)->getStartId(), $clang_id);
            $article_url_without_lang_slug = '';
            if (strlen($start_article_url) <= 1 && null !== rex_clang::get($clang_id)) {
                $article_url_without_lang_slug = str_replace('/'. strtolower(rex_clang::get($clang_id)->getCode()) .'/', '/', $article_url);
            } else {
                $article_url_without_lang_slug = str_replace($start_article_url, '/', $article_url);
            }

            // In case $url is urlencoded, encode your url, too
            $article_url_without_lang_slug_split = explode('/', $article_url_without_lang_slug);
            for ($i = 0; $i < count($article_url_without_lang_slug_split); ++$i) {
                $article_url_without_lang_slug_split[$i] = urlencode($article_url_without_lang_slug_split[$i]);
            }
            $article_url_without_lang_slug_split_encoded = implode('/', $article_url_without_lang_slug_split);

            // Replace
            $new_url = new \Url\Url(str_replace($article_url_without_lang_slug_split_encoded, '/', $url->__toString()));

            // Add forwarders
            if ('true' === rex_config::get('d2u_machinery', 'short_urls_forward', 'false')) {
                $query = 'SELECT id FROM '. \rex::getTablePrefix() .'yrewrite_forward '
                    ."WHERE extern = '". str_replace('///', '', $domain->getUrl() . str_replace($domain->getName(), '', urldecode($new_url->__toString()))) ."' " /** @phpstan-ignore-line */
                    . "OR url = '". trim(str_replace($domain->getName(), '/', urldecode($url->__toString())), '/') ."'";
                $result = \rex_sql::factory();
                $result->setQuery($query);

                // Add only if not already existing
                if (0 === $result->getRows() && $domain->getId() > 0) {
                    $query_forward = 'INSERT INTO `'. \rex::getTablePrefix() .'yrewrite_forward` (`domain_id`, `status`, `url`, `type`, `article_id`, `clang`, `extern`, `movetype`, `expiry_date`) '
                        .'VALUES ('. $domain->getId() .", 1, '". trim(str_replace($domain->getName(), '/', urldecode($url->__toString())), '/') ."', 'extern', ". $article_id .', '. $clang_id .", '". str_replace('///', '', $domain->getUrl() . str_replace($domain->getName(), '', urldecode($new_url->__toString()))) ."', '301', '0000-00-00');"; /** @phpstan-ignore-line */
                    $result_forward = \rex_sql::factory();
                    $result_forward->setQuery($query_forward);

                    // Don't forget to regenerate YRewrite path file this way
                    // rex_yrewrite_forward::init();
                    // rex_yrewrite_forward::generatePathFile();
                    // This cannot be done here, because method would be called to often
                }
            }

            return $new_url;
        }
    }

    return $url;
}

/**
 * Adds videos to sitemap.
 * @param rex_extension_point<array<string>> $ep Redaxo extension point
 * @return array<string> updated sitemap entries
 */
function rex_d2u_machinery_video_sitemap(rex_extension_point $ep)
{
    $sitemap_entries = $ep->getSubject();

    foreach (rex_clang::getAllIds(true) as $clang_id) {
        $machines = Machine::getAll($clang_id, true);

        foreach ($machines as $machine) {
            $video_entry = '';
            // Get sitemap entry for videos
            foreach ($machine->videos as $video) {
                $video_entry .= $video->getSitemapEntry();
            }
            // insert into sitemap
            foreach ($sitemap_entries as $sitemap_key => $sitemap_entry) {
                if (str_contains($sitemap_entry, $machine->getUrl() .'</loc>')) {
                    $sitemap_entries[$sitemap_key] = str_replace('</url>', $video_entry .'</url>', $sitemap_entry);
                }
            }
        }

        $categories = Category::getAll($clang_id);

        foreach ($categories as $category) {
            $video_entry = '';
            // Get sitemap entry for videos
            foreach ($category->videos as $video) {
                $video_entry .= $video->getSitemapEntry();
            }
            // insert into sitemap
            foreach ($sitemap_entries as $sitemap_key => $sitemap_entry) {
                if (str_contains($sitemap_entry, $category->getUrl() .'</loc>')) {
                    $sitemap_entries[$sitemap_key] = str_replace('</url>', $video_entry .'</url>', $sitemap_entry);
                }
            }
        }
    }

    return $sitemap_entries;
}