modules.php

<?php

declare(strict_types=1);

use Lotgd\SuAccess;
use Lotgd\Nav\SuperuserNav;
use Lotgd\Translator;
use Lotgd\PhpGenericEnvironment;
use Lotgd\ModuleManager;
use Lotgd\Nav;
use Lotgd\Page\Header;
use Lotgd\Page\Footer;
use Lotgd\Http;
use Lotgd\Output;
use Lotgd\Sanitize;

// addnews ready
// translator ready
// mail ready
require_once __DIR__ . "/common.php";

$output = Output::getInstance();

SuAccess::check(SU_MANAGE_MODULES);
Translator::getInstance()->setSchema("modulemanage");

Header::pageHeader("Module Manager");

SuperuserNav::render();

Output::requireVendorAsset('jquery', 'js', Output::VENDOR_BUCKET_MID);
Output::requireVendorAsset('datatables', 'css', Output::VENDOR_BUCKET_PRE);
Output::requireVendorAsset('datatables', 'js', Output::VENDOR_BUCKET_MID);

Output::addHeadMarkup("<style>
.dataTables_length select,
.dataTables_filter input {
    color: CanvasText;
    background-color: Canvas;
    border-color: ButtonBorder;
    color-scheme: light dark;
}
</style>");


Nav::add("", PhpGenericEnvironment::getRequestUri());
$op = Http::get('op');
$module = Http::get('module');

if ($op == 'mass') {
    if (Http::post("activate")) {
        $op = "activate";
    }
    if (Http::post("deactivate")) {
        $op = "deactivate";
    }
    if (Http::post("uninstall")) {
        $op = "uninstall";
    }
    if (Http::post("reinstall")) {
        $op = "reinstall";
    }
    if (Http::post("remove")) {
        $op = "remove";
    }
    if (Http::post("install")) {
        $op = "install";
    }
    $module = Http::post("module");
}
$theOp = $op;
if (is_array($module)) {
    $modules = $module;
} else {
    if ($module) {
        $modules = array($module);
    } else {
        $modules = array();
    }
}
foreach ($modules as $key => $module) {
        $op = $theOp;
        $output->output("`2Performing `^%s`2 on `%%s`0`n", Translator::translateInline($op), $module);
    if ($op == "install") {
        if (!ModuleManager::install($module)) {
                Http::set('cat', '');
                $output->output("`\$Error, module could not be installed!`n`n");
        }
            $op = "";
            Http::set('op', "");
    } elseif ($op == "uninstall") {
        if (!ModuleManager::uninstall($module)) {
                $output->output("`\$Error, module could not be uninstalled!`n`n");
                $output->output("Unable to inject module.  Module not uninstalled.`n");
        }
            $op = "";
            Http::set('op', "");
    } elseif ($op == "activate") {
            ModuleManager::activate($module);
            $op = "";
            Http::set('op', "");
    } elseif ($op == "deactivate") {
            ModuleManager::deactivate($module);
            $op = "";
            Http::set('op', "");
    } elseif ($op == "reinstall") {
            ModuleManager::reinstall($module);
            $op = "";
            Http::set('op', "");
    } elseif ($op == "remove") {
            ModuleManager::forceUninstall($module);
            $op = "";
            Http::set('op', "");
    }
}

$uninstmodules = ModuleManager::listUninstalled();
$seencats = ModuleManager::getInstalledCategories();
$ucount = count($uninstmodules);

Nav::addHeader("Uninstalled");
Nav::add(array(" ?Uninstalled - (%s modules)", $ucount), "modules.php");

Nav::addHeader("Module Categories");
$currentHeader = "Module Categories";
foreach ($seencats as $cat => $count) {
        $category = $cat;
        $headerName   = "Module Categories";
        $subnav   = '';
    if (strpos($cat, "|") !== false) {
            list($headerName, $subnav) = explode("|", $cat, 2);
            $category = $subnav;
    }
    if ($headerName !== $currentHeader) {
            Nav::addHeader($headerName);
            $currentHeader = $headerName;
    }
    if ($subnav !== '') {
            Nav::addSubHeader($subnav);
    }
        Nav::add(
            array(" ?%s - (%s modules)", $category, $count),
            "modules.php?cat=" . rawurlencode($cat)
        );
}

/**
 * Lotgd\Http values are raw; constrain category to known categories and
 * URL-encode when composing links/forms/nav entries.
 */
$catRequest = Http::get('cat');
$cat = is_string($catRequest) && array_key_exists($catRequest, $seencats) ? $catRequest : '';
$catQuery = rawurlencode($cat);
if ($op == "") {
    if ($cat) {
        $sortby = Http::get('sortby');
        if (!$sortby) {
            $sortby = "installdate";
        }
        $order = Http::get('order');
        $tcat = Translator::translateInline($cat);
        $output->output("`n`b%s Modules`b`n", $tcat);
        $deactivate = Translator::translateInline("Deactivate");
        $activate = Translator::translateInline("Activate");
        $uninstall = Translator::translateInline("Uninstall");
        $reinstall = Translator::translateInline("Reinstall");
        $remove = Translator::translateInline("Remove");
        $removeconfirm = Translator::translateInline("Are you sure you wish to remove this module?  All user preferences and module settings will be lost.");
        $strsettings = Translator::translateInline("Settings");
        $strnosettings = Translator::translateInline("`\$No Settings`0");
        $uninstallconfirm = Translator::translateInline("Are you sure you wish to uninstall this module?  All user preferences and module settings will be lost.  If you wish to temporarily remove access to the module, you may simply deactivate it.");
        $status = Translator::translateInline("Status");
        $mname = Translator::translateInline("Module Name");
        $ops = Translator::translateInline("Ops");
        $mauth = Translator::translateInline("Module Author");
        $inon = Translator::translateInline("Installed On");
        $installstr = Translator::translateInline("by %s");
        $active = Translator::translateInline("`@Active`0");
        $inactive = Translator::translateInline("`\$Inactive`0");
        $output->rawOutput("<form action='modules.php?op=mass&cat=$catQuery' method='POST'>");
        Nav::add("", "modules.php?op=mass&cat=$catQuery");
        $installedCaption = Translator::translateInline("Installed modules table");
        $output->rawOutput("<div class='table-responsive'>");
        $output->rawOutput("<table class='table table-striped table-hover js-modules-table'>");
        $output->rawOutput("<caption class='visually-hidden'>{$installedCaption}</caption>");
        $output->rawOutput("<thead>");
        $selectAllLabel = Translator::translateInline("Select all");
        $output->rawOutput("<tr class='table-secondary'><th scope='col'><input type='checkbox' class='js-select-all' aria-label='{$selectAllLabel}'></th><th scope='col'>$ops</th><th scope='col'><a href='modules.php?cat=$catQuery&sortby=active&order=" . ($sortby == "active" ? !$order : 1) . "'>$status</a></th><th scope='col'><a href='modules.php?cat=$catQuery&sortby=formalname&order=" . ($sortby == "formalname" ? !$order : 1) . "'>$mname</a></th><th scope='col'><a href='modules.php?cat=$catQuery&sortby=moduleauthor&order=" . ($sortby == "moduleauthor" ? !$order : 1) . "'>$mauth</a></th><th scope='col'><a href='modules.php?cat=$catQuery&sortby=installdate&order=" . ($sortby == "installdate" ? !$order : 0) . "'>$inon</a></th></tr>");
        $output->rawOutput("</thead>");
        $output->rawOutput("<tbody>");
        Nav::add("", "modules.php?cat=$catQuery&sortby=active&order=" . ($sortby == "active" ? !$order : 1));
        Nav::add("", "modules.php?cat=$catQuery&sortby=formalname&order=" . ($sortby == "formalname" ? !$order : 1));
        Nav::add("", "modules.php?cat=$catQuery&sortby=moduleauthor&order=" . ($sortby == "moduleauthor" ? !$order : 1));
        Nav::add("", "modules.php?cat=$catQuery&sortby=installdate&order=" . ($sortby == "installdate" ? $order : 0));
                $rows = ModuleManager::listInstalled($cat, $sortby, (bool)$order);
        if (count($rows) == 0) {
                $output->rawOutput("<tr class='table-light'><td colspan='6' class='text-center'>");
                $output->output("`i-- No Modules Installed--`i");
                $output->rawOutput("</td></tr>");
        }
                $number = count($rows);
        for ($i = 0; $i < $number; $i++) {
                $row = $rows[$i];
            $output->rawOutput("<tr>");
            $output->rawOutput("<td class='text-nowrap align-top'>");
            $output->rawOutput("<input type='checkbox' name='module[]' value=\"{$row['modulename']}\">");
            $output->rawOutput("</td><td class='text-nowrap align-top'>[ ");
            if ($row['active']) {
                $output->rawOutput("<a href='modules.php?op=deactivate&module={$row['modulename']}&cat=$catQuery'>");
                $output->outputNotl($deactivate);
                $output->rawOutput("</a>");
                Nav::add("", "modules.php?op=deactivate&module={$row['modulename']}&cat=$catQuery");
            } else {
                $output->rawOutput("<a href='modules.php?op=activate&module={$row['modulename']}&cat=$catQuery'>");
                $output->outputNotl($activate);
                $output->rawOutput("</a>");
                Nav::add("", "modules.php?op=activate&module={$row['modulename']}&cat=$catQuery");
            }
            $output->rawOutput(" |<a href='modules.php?op=uninstall&module={$row['modulename']}&cat=$catQuery' onClick='return confirm(\"$uninstallconfirm\");'>");
            $output->outputNotl($uninstall);
            $output->rawOutput("</a>");
            Nav::add("", "modules.php?op=uninstall&module={$row['modulename']}&cat=$catQuery");
            $output->rawOutput(" | <a href='modules.php?op=reinstall&module={$row['modulename']}&cat=$catQuery'>");
            $output->outputNotl($reinstall);
            $output->rawOutput("</a>");
            Nav::add("", "modules.php?op=reinstall&module={$row['modulename']}&cat=$catQuery");
            $output->rawOutput(" | <a href='modules.php?op=remove&module={$row['modulename']}&cat=$catQuery' onClick='return confirm(\"$removeconfirm\");'>");
            $output->outputNotl($remove);
            $output->rawOutput("</a>");
            Nav::add("", "modules.php?op=remove&module={$row['modulename']}&cat=$catQuery");

            if ($session['user']['superuser'] & SU_EDIT_CONFIG) {
                if (strstr($row['infokeys'], "|settings|")) {
                    $output->rawOutput(" | <a href='configuration.php?op=modulesettings&module={$row['modulename']}'>");
                    $output->outputNotl($strsettings);
                    $output->rawOutput("</a>");
                    Nav::add("", "configuration.php?op=modulesettings&module={$row['modulename']}");
                } else {
                    $output->outputNotl(" | %s", $strnosettings);
                }
            }

            $output->rawOutput(" ]</td><td class='align-top'>");
            $output->outputNotl($row['active'] ? $active : $inactive);
            $output->rawOutput("</td><td class='text-nowrap align-top'><span title=\"" .
                (isset($row['description']) && $row['description']
                    ? $row['description']
                    : Sanitize::sanitize($row['formalname'])
                ) . "\">");
            $output->outputNotl("%s", $row['formalname']);
            $output->rawOutput("<br>");
            $output->outputNotl("(%s) V%s", $row['modulename'], $row['version']);
            $output->rawOutput("</span></td><td class='align-top'>");
            $output->outputNotl("`#%s`0", $row['moduleauthor'], true);
            $output->rawOutput("</td><td class='text-nowrap align-top'>");
            $line = sprintf($installstr, $row['installedby']);
            $output->outputNotl("%s", $row['installdate']);
            $output->rawOutput("<br>");
            $output->outputNotl("%s", $line);
            $output->rawOutput("</td></tr>");
        }
        $output->rawOutput("</tbody>");
        $output->rawOutput("</table>");
        $output->rawOutput("</div><br />");
        $activate = Translator::translateInline("Activate");
        $deactivate = Translator::translateInline("Deactivate");
        $reinstall = Translator::translateInline("Reinstall");
        $uninstall = Translator::translateInline("Uninstall");
        $remove = Translator::translateInline("Remove");
        $output->rawOutput("<input type='submit' name='activate' class='button' value='$activate'>");
        $output->rawOutput("<input type='submit' name='deactivate' class='button' value='$deactivate'>");
        $output->rawOutput("<input type='submit' name='reinstall' class='button' value='$reinstall'>");
        $output->rawOutput("<input type='submit' name='uninstall' class='button' value='$uninstall'>");
        $output->rawOutput("<input type='submit' name='remove' class='button' value='$remove'>");
        $output->rawOutput("</form>");
    } else {
        $sorting = Http::get('sorting');
        if (!$sorting) {
            $sorting = "shortname";
        }
        $order = Http::get('order');
        $output->output("`bUninstalled Modules`b`n");
        $install = Translator::translateInline("Install");
        $mname = Translator::translateInline("Module Name");
        $ops = Translator::translateInline("Ops");
        $mauth = Translator::translateInline("Module Author");
        $categ = Translator::translateInline("Category");
        $fname = Translator::translateInline("Filename");
        $output->rawOutput("<form action='modules.php?op=mass&cat=$catQuery' method='POST'>");
        Nav::add("", "modules.php?op=mass&cat=$catQuery");
        $uninstalledCaption = Translator::translateInline("Uninstalled modules table");
        $output->rawOutput("<div class='table-responsive'>");
        $output->rawOutput("<table class='table table-striped table-hover js-uninstalled-modules-table'>");
        $output->rawOutput("<caption class='visually-hidden'>{$uninstalledCaption}</caption>");
        $output->rawOutput("<thead>");
        $selectAllLabel = Translator::translateInline("Select all");
        $output->rawOutput("<tr class='table-secondary'><th scope='col'><input type='checkbox' class='js-select-all' aria-label='{$selectAllLabel}'></th><th scope='col'>$ops</th><th scope='col'><a href='modules.php?sorting=name&order=" . ($sorting == "name" ? !$order : 0) . "'>$mname</a></th><th scope='col'><a href='modules.php?sorting=author&order=" . ($sorting == "author" ? !$order : 0) . "'>$mauth</a></th><th scope='col'><a href='modules.php?sorting=category&order=" . ($sorting == "category" ? !$order : 0) . "'>$categ</a></th><th scope='col'><a href='modules.php?sorting=shortname&order=" . ($sorting == "shortname" ? !$order : 0) . "'>$fname</a></th></tr>");
        $output->rawOutput("</thead>");
        $output->rawOutput("<tbody>");
        Nav::add("", "modules.php?sorting=name&order=" . ($sorting == "name" ? !$order : 0));
        Nav::add("", "modules.php?sorting=author&order=" . ($sorting == "author" ? !$order : 0));
        Nav::add("", "modules.php?sorting=category&order=" . ($sorting == "category" ? !$order : 0));
        Nav::add("", "modules.php?sorting=shortname&order=" . ($sorting == "shortname" ? !$order : 0));
        $invalidmodule = array(
            "version" => "",
            "author" => "",
            "category" => "",
            "download" => "",
            "invalid" => true,
        );
        if (count($uninstmodules) > 0) {
            $count = 0;
            $moduleinfo = array();
            $sortby = array();
            $numberarray = array();
            foreach ($uninstmodules as $key => $shortname) {
                //test if the file is a valid module or a lib file/whatever that got in, maybe even malcode that does not have module form
                $file = file_get_contents("modules/$shortname.php");
                if (
                    strpos($file, $shortname . "_getmoduleinfo") === false ||
                    //strpos($file,$shortname."_dohook")===false ||
                    //do_hook is not a necessity
                    strpos($file, $shortname . "_install") === false ||
                    strpos($file, $shortname . "_uninstall") === false
                ) {
                    //here the files has neither do_hook nor getinfo, which means it won't execute as a module here --> block it + notify the admin who is the manage modules section
                    $temp = array_merge($invalidmodule, array("name" => $shortname . ".php " . $output->appoencode(Translator::translateInline("(`\$Invalid Module! Contact Author or check file!`0)"))));
                } else {
                    $temp = get_module_info($shortname);
                }
                //end of testing
                if (!$temp || empty($temp)) {
                    continue;
                }
                $temp['shortname'] = $shortname;
                array_push($moduleinfo, $temp);
                array_push($sortby, full_sanitize($temp[$sorting]));
                array_push($numberarray, $count);
                $count++;
            }
            array_multisort($sortby, ($order ? SORT_DESC : SORT_ASC), $numberarray, ($order ? SORT_DESC : SORT_ASC));
            for ($a = 0; $a < count($moduleinfo); $a++) {
                $i = $numberarray[$a];
                $output->rawOutput("<tr>");
                if (isset($moduleinfo[$i]['invalid']) && $moduleinfo[$i]['invalid'] === true) {
                    $output->rawOutput("<td></td><td class='text-nowrap align-top'>");
                    $output->output("Not installable");
                    $output->rawOutput("</td>");
                } else {
                    $output->rawOutput("<td><input type='checkbox' name='module[]' value='{$moduleinfo[$i]['shortname']}'></td>");
                    $output->rawOutput("<td class='text-nowrap align-top'>");
                    $output->rawOutput("[ <a href='modules.php?op=install&module={$moduleinfo[$i]['shortname']}&cat={$moduleinfo[$i]['category']}'>");
                    $output->outputNotl($install);
                    $output->rawOutput("</a>]</td>");
                    Nav::add("", "modules.php?op=install&module={$moduleinfo[$i]['shortname']}&cat={$moduleinfo[$i]['category']}");
                }
                $output->rawOutput("<td class='text-nowrap align-top'><span title=\"" .
                    (isset($moduleinfo[$i]['description']) &&
                         $moduleinfo[$i]['description'] ?
                     $moduleinfo[$i]['description'] :
                     sanitize($moduleinfo[$i]['name'])) . "\">");
                $output->rawOutput($moduleinfo[$i]['name'] . " " . $moduleinfo[$i]['version']);
                $output->rawOutput("</span>");
                if (isset($moduleinfo[$i]['requires']) && is_array($moduleinfo[$i]['requires']) && count($moduleinfo[$i]['requires']) > 0) {
                    $output->rawOutput("<div class='module-requires'>");
                    $output->output("`bRequires:`b`n");
                    foreach ($moduleinfo[$i]['requires'] as $key => $val) {
                        $info = explode("|", $val);
                        if (module_check_requirements(array($key => $val))) {
                            $output->outputNotl("`@");
                        } else {
                            $output->outputNotl("`\$");
                        }
                        $output->outputNotl("$key {$info[0]} -- {$info[1]}`n");
                    }
                    $output->rawOutput("</div>");
                }
                $output->rawOutput("</td><td class='align-top'>");
                $output->outputNotl("`#%s`0", $moduleinfo[$i]['author'], true);
                $output->rawOutput("</td><td class='align-top'>");
                $output->rawOutput($moduleinfo[$i]['category']);
                $output->rawOutput("</td><td class='align-top'>");
                $output->rawOutput($moduleinfo[$i]['shortname'] . ".php");
                $output->rawOutput("</td>");
                $output->rawOutput("</tr>");
                $count++;
            }
        } else {
            $output->rawOutput("<tr class='table-light'><td colspan='6' class='text-center'>");
            $output->output("`i--No uninstalled modules were found--`i");
            $output->rawOutput("</td></tr>");
        }
        $output->rawOutput("</tbody>");
        $output->rawOutput("</table>");
        $output->rawOutput("</div><br />");
        $install = Translator::translateInline("Install");
        $output->rawOutput("<input type='submit' name='install' class='button' value='$install'>");
    }
}

$datatableSearch = Translator::translateInline("Search");
$datatableSearchPlaceholder = Translator::translateInline("Search modules");
$datatableLengthMenu = Translator::translateInline("Show _MENU_ entries");
$datatableInfo = Translator::translateInline("Showing _START_ to _END_ of _TOTAL_ entries");
$datatableInfoEmpty = Translator::translateInline("Showing 0 to 0 of 0 entries");
$datatableInfoFiltered = Translator::translateInline("(filtered from _MAX_ total entries)");
$datatableEmpty = Translator::translateInline("No data available in table");
$datatableLoading = Translator::translateInline("Loading...");
$datatableProcessing = Translator::translateInline("Processing...");
$datatableZeroRecords = Translator::translateInline("No matching records found");
$datatablePaginateFirst = Translator::translateInline("First");
$datatablePaginateLast = Translator::translateInline("Last");
$datatableNext = Translator::translateInline("Next");
$datatablePrevious = Translator::translateInline("Previous");
$datatableAriaSortAscending = Translator::translateInline("Activate to sort column ascending");
$datatableAriaSortDescending = Translator::translateInline("Activate to sort column descending");
$output->rawOutput(
    "<script>
document.addEventListener('DOMContentLoaded', function () {
    if (typeof jQuery === 'undefined' || typeof jQuery.fn.DataTable === 'undefined') {
        return;
    }
    var dataTableConfig = {
        language: {
            search: " . json_encode($datatableSearch) . ",
            searchPlaceholder: " . json_encode($datatableSearchPlaceholder) . ",
            lengthMenu: " . json_encode($datatableLengthMenu) . ",
            info: " . json_encode($datatableInfo) . ",
            infoEmpty: " . json_encode($datatableInfoEmpty) . ",
            infoFiltered: " . json_encode($datatableInfoFiltered) . ",
            emptyTable: " . json_encode($datatableEmpty) . ",
            loadingRecords: " . json_encode($datatableLoading) . ",
            processing: " . json_encode($datatableProcessing) . ",
            zeroRecords: " . json_encode($datatableZeroRecords) . ",
            paginate: {
                first: " . json_encode($datatablePaginateFirst) . ",
                last: " . json_encode($datatablePaginateLast) . ",
                next: " . json_encode($datatableNext) . ",
                previous: " . json_encode($datatablePrevious) . "
            },
            aria: {
                sortAscending: " . json_encode($datatableAriaSortAscending) . ",
                sortDescending: " . json_encode($datatableAriaSortDescending) . "
            }
        },
        dom: 'lfrtip',
        order: [],
        pageLength: 50,
        lengthMenu: [10, 25, 50, 100],
        paging: true,
        searching: true,
        serverSide: false,
        processing: false
    };
    jQuery('.js-modules-table').DataTable(dataTableConfig);
    jQuery('.js-uninstalled-modules-table').DataTable(dataTableConfig);

    function updateSelectAllState(table) {
        var \$table = jQuery(table);
        var \$checkboxes = \$table.find('tbody input[type=\"checkbox\"]').not(':disabled');
        var \$selectAll = \$table.find('thead .js-select-all');
        if (!\$selectAll.length) {
            return;
        }
        if (\$checkboxes.length === 0) {
            \$selectAll.prop('checked', false).prop('indeterminate', false);
            return;
        }
        var checkedCount = \$checkboxes.filter(':checked').length;
        \$selectAll.prop('checked', checkedCount === \$checkboxes.length);
        \$selectAll.prop('indeterminate', checkedCount > 0 && checkedCount < \$checkboxes.length);
    }

    jQuery(document).on('change', '.js-select-all', function () {
        var \$table = jQuery(this).closest('table');
        \$table.find('tbody input[type=\"checkbox\"]').not(':disabled').prop('checked', this.checked);
        updateSelectAllState(\$table);
    });

    jQuery(document).on('change', 'tbody input[type=\"checkbox\"]', function () {
        updateSelectAllState(jQuery(this).closest('table'));
    });

    jQuery('.js-modules-table, .js-uninstalled-modules-table').each(function () {
        updateSelectAllState(this);
    });
});
</script>"
);

Footer::pageFooter();