One Hat Cyber Team

Your IP: 216.73.217.4
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

Edit File: Test.php

<?php
/**
 * Copyright 2010-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.
 *
 * @category Horde
 * @copyright 2010-2017 Horde LLC
 * @license http://www.horde.org/licenses/gpl GPL
 * @package IMP
 */

/**
 * Provides the IMP configuration for the Horde test script.
 *
 * @author Michael Slusarz <slusarz@horde.org>
 * @category Horde
 * @copyright 2010-2017 Horde LLC
 * @license http://www.horde.org/licenses/gpl GPL
 * @package IMP
 */
class IMP_Test extends Horde_Test
{
 /**
 */
 protected $_moduleList = array(
 'openssl' => array(
 'descrip' => 'OpenSSL Support',
 'error' => 'The OpenSSL extension is required for S/MIME support and to securely connect to the remote IMAP/POP3 server.'
 )
 );

/**
     */
    protected $_settingsList = array(
        'file_uploads'  =>  array(
            'error' => 'file_uploads must be enabled to use various features of IMP. See the INSTALL file for more information.',
            'setting' => true
        )
    );

/**
     */
    protected $_pearList = array();

/**
     */
    protected $_appList = array(
        'ingo' => array(
            'error' => 'Ingo provides mail filtering capabilities to IMP.',
            'version' => '3.0'
        ),
        'kronolith' => array(
            'error' => 'Kronolith provides calendaring capabilities to IMP.',
            'version' => '4.0'
        ),
        'nag' => array(
            'error' => 'Nag allows tasks to be directly created from e-mail data.',
            'version' => '4.0'
        ),
        'turba' => array(
            'error' => 'Turba provides addressbook/contacts capabilities to IMP.',
            'version' => '4.0'
        )
    );

/**
     */
    public function __construct()
    {
        parent::__construct();

$this->_fileList += array(
            'config/backends.php' => null,
            'config/mime_drivers.php' => null,
            'config/prefs.php' => null
        );
    }

/**
 */
 public function appTests()
 {
 $ret = '<h1>Mail Server Support Test</h1>';

$vars = Horde_Variables::getDefaultVariables();
        if ($vars->user && $vars->passwd) {
            $ret .= $this->_doConnectionTest($vars);
        }

$self_url = Horde::selfUrl()->add('app', 'imp');

Horde::startBuffer();
        require IMP_TEMPLATES . '/test/mailserver.inc';

return $ret . Horde::endBuffer();
    }

/**
     * Perform mail server support test.
     *
     * @param Horde_Variables $vars  Variables object.
     *
     * @return string  HTML output.
     */
    protected function _doConnectionTest($vars)
    {
        $imap_config = array(
            'username' => $vars->user,
            'password' => $vars->passwd,
            'hostspec' => $vars->server,
            'port' => $vars->port,
            'secure' => $vars->encrypt ? 'tls' : false
        );

$driver = ($vars->server_type == 'imap')
            ? 'Horde_Imap_Client_Socket'
            : 'Horde_Imap_Client_Socket_Pop3';

try {
            $imap_client = new $driver($imap_config);
        } catch (Horde_Imap_Client_Exception $e) {
            return $this->_errorMsg($e);
        }

$ret = 'Attempting to login to the server: ';

try {
            try {
                $imap_client->login();
            } catch (Horde_Imap_Client_Exception $e) {
                if ($vars->encrypt) {
                    $imap_client->setParam('secure', 'ssl');
                    $imap_client->login();
                } else {
                    throw $e;
                }
            }
        } catch (Horde_Imap_Client_Exception $e) {
            return $this->_errorMsg($e);
        }

$ret .= 'SUCCESS'.
 'Secure connection: <tt>' .
 (($tmp = $imap_client->getParam('secure')) ? $tmp : 'none') .
 '</tt>';

if ($driver == 'Horde_Imap_Client_Socket') {
 $ret .= 'The following IMAP server information was discovered from the server:' .
 '<blockquote>Namespace Information<blockquote><pre>';

try {
                $namespaces = $imap_client->getNamespaces(
                    array(),
                    array('ob_return' => true)
                );
                foreach ($namespaces as $val) {
                    switch ($val->type) {
                    case $val::NS_PERSONAL:
                        $type = 'Personal';
                        break;

case $val::NS_OTHER:
                        $type = 'Other Users\'';
                        break;

case $val::NS_SHARED:
                        $type = 'Shared';
                        break;
                    }

$ret .= 'NAMESPACE: "' . htmlspecialchars($val->name) . "\"\n" .
                        'DELIMITER: ' . htmlspecialchars($val->delimiter) . "\n" .
                        'TYPE: ' . htmlspecialchars($type) . "\n\n";
                }
            } catch (Horde_Imap_Client_Exception $e) {
                $this->_errorMsg($e);
            }

$ret .= '</pre></blockquote></blockquote>' .
 '<blockquote>IMAP server capabilities:<blockquote><pre>';

try {
                foreach ($imap_client->capability() as $key => $val) {
                    if (is_array($val)) {
                        foreach ($val as $val2) {
                            $ret .= htmlspecialchars($key) . '=' . htmlspecialchars($val2) . "\n";
                        }
                    } else {
                        $ret .= htmlspecialchars($key) . "\n";
                    }
                }
            } catch (Horde_Imap_Client_Exception $e) {
                $this->_errorMsg($e);
            }

$ret .= '</pre></blockquote></blockquote>' .
 '<blockquote>Does IMAP server support UTF-8 in search queries? ';

if ($imap_client->validSearchCharset('UTF-8')) {
 $ret .= 'YES';
 } else {
 $ret .= 'NO';
 }

$ret .= '</blockquote>';

try {
 $id_info = $imap_client->getID();
 if (!empty($id_info)) {
 $ret .= '<blockquote>IMAP server information:<blockquote><pre>';
 foreach ($id_info as $key => $val) {
 $ret .= htmlspecialchars("$key: $val") . "\n";
 }
 $ret .= '</pre></blockquote></blockquote>';
 }
 } catch (Horde_Imap_Client_Exception $e) {
 // Ignore lack of ID capability.
 }
 } else {
 $ret .= 'Checking for the UIDL capability: ';

if ($imap_client->queryCapability('UIDL')) {
 $ret .= 'SUCCESS';
 } else {
 return $this->_errorMsg(new Exception('The POP3 server does not support the *REQUIRED* UIDL capability.'));
 }
 }

return $ret;
    }

/**
 * Return error message from mail server testing.
 *
 * @return string HTML output.
 */
 protected function _errorMsg($e)
 {
 return 'ERROR - The server returned the following error message:' .
 '<pre>' . $e->getMessage() . '</pre>';
 }

}