One Hat Cyber Team

Your IP: 216.73.216.50
Server IP: 41.128.143.86
Server: Linux host.raqmix.cloud 6.8.0-1025-azure #30~22.04.1-Ubuntu SMP Wed Mar 12 15:28:20 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.3.23
Buat File | Buat Folder

Dir : ~/proc/self/root/usr/share/psa-pear/pear/

Edit File: imp-admin-upgrade

#!/usr/bin/env php
<?php
/**
 * Perform admin upgrade tasks specific to IMP.
 *
 * Copyright 2013-2017 Horde LLC (http://www.horde.org/)
 *
 * See the enclosed file COPYING for license information (GPL). If you
 * did not receive this file, see http://www.horde.org/licenses/gpl.
 *
 * @author    Michael Slusarz <slusarz@horde.org>
 * @category  Horde
 * @copyright 2013-2017 Horde LLC
 * @license   http://www.horde.org/licenses/gpl GPL
 * @package   IMP
 */

$baseFile = __DIR__ . '/../lib/Application.php';
if (file_exists($baseFile)) {
    require_once $baseFile;
} else {
    require_once 'PEAR/Config.php';
    require_once PEAR_Config::singleton()
        ->get('horde_dir', null, 'pear.horde.org') . '/imp/lib/Application.php';
}
Horde_Registry::appInit('imp', array('cli' => true));

$parser = new Horde_Argv_Parser();
$parser->addOption('-t', '--task', array(
    'dest' => 'task',
    'help' => 'Upgrade task'
));
list($values,) = $parser->parseArgs();

switch ($values->task) {
case 'backend_perms':
case 'backend_perms_force':
    $upgrade = array(
        'create_folders' => 'create_mboxes',
        'max_folders' => 'max_create_mboxes'
    );

$backends = array_keys(IMP_Imap::loadServerConfig());
    $perms = $injector->getInstance('Horde_Perms');

$cli->message($cli->bold('Upgrading permissions.'));

if ($values->task == 'backend_perms_force') {
        foreach ($backends as $backend) {
            try {
                $perms->removePermission($perms->getPermission('imp:' . $backend), true);
                $cli->message(sprintf('Force deletion of all "%s" backend permissions.', $backend));
            } catch (Horde_Exception $e) {}
        }
    }

foreach ($upgrade as $key => $val) {
        $pkey = 'imp:' . $key;

try {
            if ($perms->exists($pkey)) {
                $pval = $perms->getPermission($pkey);

foreach ($backends as $backend) {
                    $parent_perm = 'imp:' . $backend;
                    if (!$perms->exists($parent_perm)) {
                        $perms->addPermission($perms->newPermission($parent_perm));
                    }

$perm_edit = clone $pval;
                    $perm_edit->setName($parent_perm . ':' . $key);
                    $perms->addPermission($perm_edit);
                    $cli->message(sprintf('Added "%s" permission to the "%s" backend.', $key, $backend));
                }

$perms->removePermission($pval);
                $cli->message(sprintf('Removed obsolete "%s" permission.', $key));
            }
        } catch (Horde_Exception $e) {
            $cli->message(sprintf('Error upgrading "%s" permission: %s.', $key, $e->getMessage()), 'cli.error');
        }
    }

$cli->message($cli->bold('DONE upgrading permissions.'));
    break;
}