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

Edit File: Test.php

<?php
/**
 * This class provides the Turba configuration for the test script.
 *
 * Copyright 2010-2017 Horde LLC (http://www.horde.org/)
 *
 * See the enclosed file LICENSE for license information (ASL). If you
 * did not receive this file, see http://www.horde.org/licenses/apache.
 *
 * @author Michael Slusarz <slusarz@horde.org>
 * @package Turba
 */
class Turba_Test extends Horde_Test
{
 /**
 * The module list
 *
 * @var array
 */
 protected $_moduleList = array();

/**
     * PHP settings list.
     *
     * @var array
     */
    protected $_settingsList = array();

/**
     * PEAR modules list.
     *
     * @var array
     */
    protected $_pearList = array();

/**
     * Inter-Horde application dependencies.
     *
     * @var array
     */
    protected $_appList = array();

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

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

/**
 * Any application specific tests that need to be done.
 *
 * @return string HTML output.
 */
 public function appTests()
 {
 $ret = '<h1>LDAP Support Test</h1>';

$params = array(
            'server' => Horde_Util::getPost('server'),
            'port' => Horde_Util::getPost('port', 389),
            'basedn' => Horde_Util::getPost('basedn'),
            'user' => Horde_Util::getPost('user'),
            'passwd' => Horde_Util::getPost('passwd'),
            'filter' => Horde_Util::getPost('filter'),
            'proto' => Horde_Util::getPost('proto')
        );

if (!empty($params['server']) &&
            !empty($params['basedn']) &&
            !empty($params['filter'])) {
            $ret .= $this->_doConnectionTest($params);
        }

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

Horde::startBuffer();
        require TURBA_TEMPLATES . '/test/ldapserver.inc';

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

/**
 * Perform LDAP server support test.
 *
 * @param array $params Connection parameters.
 *
 * @return string HTML output.
 */
 protected function _doConnectionTest($params)
 {
 $ret .= 'server="' . htmlspecialchars($params['server']) . '" ' .
 'basedn="' . htmlspecialchars($params['basedn']) . '" ' .
 'filter="' . htmlspecialchars($params['filter']) . '" ';

if (!empty($params['user'])) {
 $ret .= 'bind as user="' . htmlspecialchars($params['user']) . '" ';
 } else {
 $ret .= 'bind anonymously ';
 }

$ldap = ldap_connect($params['server'], $params['port']);
        if ($ldap) {
            if (!empty($params['proto']) && ($params['proto'] == '3')) {
                ldap_set_option($ldap, LDAP_OPT_PROTOCOL_VERSION, 3);
            }

if (!empty($params['user']) && !ldap_bind($ldap, $params['user'], $params['passwd'])) {
 $ret .= 'unable to bind as ' . htmlspecialchars($params['user']) . ' to LDAP server';
 ldap_close($ldap);
 $ldap = '';
 } elseif (empty($params['user']) && !ldap_bind($ldap)) {
 $ret .= "unable to bind anonymously to LDAP server\n";
 ldap_close($ldap);
 $ldap = '';
 }

if ($ldap) {
 $result = ldap_search($ldap, $params['basedn'], $params['filter']);
 if ($result) {
 $ret .= 'search returned ' . ldap_count_entries($ldap, $result) . " entries\n";
 $info = ldap_get_entries($ldap, $result);
 for ($i = 0; $i < $info['count']; ++$i) {
 $ret .= 'dn is: ' . $info[$i]['dn'] . ' ' .
 'first cn entry is: ' . $info[$i]['cn'][0] . ' ' .
 'first mail entry is: ' . $info[$i]['mail'][0] . '';

if ($i >= 10) {
 $ret .= '(only first 10 entries displayed)';
 break;
 }
 }
 } else {
 $ret .= 'unable to search LDAP server';
 }
 }
 } else {
 $ret .= 'unable to connect to LDAP server';
 }

return $ret;
    }

}