File "ldap.php"
Full Path: /home/asmplong/www/ancien-site-2019/site/libraries/joomla/client/ldap.php
File size: 12.85 KB
MIME-type: text/x-php
Charset: utf-8
<?php
/**
* @package Joomla.Platform
* @subpackage Client
*
* @copyright Copyright (C) 2005 - 2011 Open Source Matters, Inc. All rights reserved.
* @license GNU General Public License version 2 or later; see LICENSE
*/
defined('JPATH_PLATFORM') or die;
/**
* LDAP client class
*
* @package Joomla.Platform
* @subpackage Client
* @since 11.1
*/
class JLDAP extends JObject
{
/**
* @var string Hostname of LDAP server
* @since 11.1
*/
var $host = null;
/**
* @var bool Authorization Method to use
* @since 11.1
*/
var $auth_method = null;
/**
* @var int Port of LDAP server
* @since 11.1
*/
var $port = null;
/**
* @var string Base DN (e.g. o=MyDir)
* @since 11.1
*/
var $base_dn = null;
/**
* @var string User DN (e.g. cn=Users,o=MyDir)
* @since 11.1
*/
var $users_dn = null;
/**
* @var string Search String
* @since 11.1
*/
var $search_string = null;
/**
* @var boolean Use LDAP Version 3
* @since 11.1
*/
var $use_ldapV3 = null;
/**
* @var boolean No referrals (server transfers)
* @since 11.1
*/
var $no_referrals = null;
/**
* @var boolean Negotiate TLS (encrypted communications)
* @since 11.1
*/
var $negotiate_tls = null;
/**
* @var string Username to connect to server
* @since 11.1
*/
var $username = null;
/**
*
* @var string Password to connect to server
* @since 11.1
*/
var $password = null;
/**
* @var mixed LDAP Resource Identifier
* @since 11.1
*/
var $_resource = null;
/**
*
* @var string Current DN
* @since 11.1
*/
var $_dn = null;
/**
* Constructor
*
* @param object An object of configuration variables
*
* @since 11.1
*/
function __construct($configObj = null)
{
if (is_object($configObj))
{
$vars = get_class_vars(get_class($this));
foreach (array_keys($vars) as $var)
{
if (substr($var, 0, 1) != '_') {
if ($param = $configObj->get($var)) {
$this-> $var = $param;
}
}
}
}
}
/**
* Connect to server
*
* @return boolean True if successful
* @since 11.1
*/
function connect()
{
if ($this->host == '') {
return false;
}
$this->_resource = @ ldap_connect($this->host, $this->port);
if ($this->_resource)
{
if ($this->use_ldapV3) {
if (!@ldap_set_option($this->_resource, LDAP_OPT_PROTOCOL_VERSION, 3)) {
return false;
}
}
if (!@ldap_set_option($this->_resource, LDAP_OPT_REFERRALS, intval($this->no_referrals))) {
return false;
}
if ($this->negotiate_tls) {
if (!@ldap_start_tls($this->_resource)) {
return false;
}
}
return true;
} else {
return false;
}
}
/**
* Close the connection
*
* @return
* @since 11.1
*/
function close() {
@ ldap_close($this->_resource);
}
/**
* Sets the DN with some template replacements
*
* @param string $username The username
* @param $nosub
*
* @return
* @since 11.1
*/
function setDN($username,$nosub = 0)
{
if ($this->users_dn == '' || $nosub) {
$this->_dn = $username;
} else if (strlen($username)) {
$this->_dn = str_replace('[username]', $username, $this->users_dn);
} else {
$this->_dn = '';
}
}
/**
* Get the DN
*
* @return string The current dn
* @since 11.1
*/
function getDN() {
return $this->_dn;
}
/**
* Anonymously binds to LDAP directory
*
* @return
* @since 11.1
*/
function anonymous_bind()
{
$bindResult = @ldap_bind($this->_resource);
return $bindResult;
}
/**
* Binds to the LDAP directory
*
* @param string The username
* @param string The password
*
* @return boolean Result
*/
function bind($username = null, $password = null, $nosub = 0)
{
if (is_null($username)) {
$username = $this->username;
}
if (is_null($password)) {
$password = $this->password;
}
$this->setDN($username,$nosub);
//if (strlen($this->getDN()))
$bindResult = @ldap_bind($this->_resource, $this->getDN(), $password);
return $bindResult;
}
/**
* Perform an LDAP search using comma seperated search strings
*
* @param string $search search string of search values
*
* @return Search results
* @since 11.1
*/
function simple_search($search)
{
$results = explode(';', $search);
foreach($results as $key=>$result) {
$results[$key] = '('.$result.')';
}
return $this->search($results);
}
/**
* Perform an LDAP search
*
* @param array Search Filters (array of strings)
* @param string DN Override
*
* @return array Multidimensional array of results
*/
function search($filters, $dnoverride = null)
{
$attributes = array ();
if ($dnoverride) {
$dn = $dnoverride;
} else {
$dn = $this->base_dn;
}
$resource = $this->_resource;
foreach ($filters as $search_filter)
{
$search_result = @ldap_search($resource, $dn, $search_filter);
if ($search_result && ($count = @ldap_count_entries($resource, $search_result)) > 0)
{
for ($i = 0; $i < $count; $i++)
{
$attributes[$i] = Array ();
if (!$i) {
$firstentry = @ldap_first_entry($resource, $search_result);
} else {
$firstentry = @ldap_next_entry($resource, $firstentry);
}
// Load user-specified attributes
$attributes_array = @ldap_get_attributes($resource, $firstentry);
// Ldap returns an array of arrays, fit this into attributes result array
foreach ($attributes_array as $ki => $ai)
{
if (is_array($ai))
{
$subcount = $ai['count'];
$attributes[$i][$ki] = Array ();
for ($k = 0; $k < $subcount; $k++) {
$attributes[$i][$ki][$k] = $ai[$k];
}
}
}
$attributes[$i]['dn'] = @ldap_get_dn($resource, $firstentry);
}
}
}
return $attributes;
}
/**
* Replace an entry and return a true or false result
*
* @param string dn The DN which contains the attribute you want to replace
* @param string attribute The attribute values you want to replace
*
* @return mixed result of comparison (true, false, -1 on error)
*/
function replace($dn, $attribute) {
return @ldap_mod_replace($this->_resource, $dn, $attribute);
}
/**
* Modifies an entry and return a true or false result
*
* @param string dn The DN which contains the attribute you want to modify
* @param string attribute The attribute values you want to modify
*
* @return mixed result of comparison (true, false, -1 on error)
*/
function modify($dn, $attribute) {
return @ldap_modify($this->_resource, $dn, $attribute);
}
/**
* Removes attribute value from given dn and return a true or false result
*
* @param string dn The DN which contains the attribute you want to remove
* @param string attribute The attribute values you want to remove
*
* @return mixed result of comparison (true, false, -1 on error)
* @since 11.1
*/
function remove($dn, $attribute)
{
$resource = $this->_resource;
return @ldap_mod_del($resource, $dn, $attribute);
}
/**
* Compare an entry and return a true or false result
*
* @param string dn The DN which contains the attribute you want to compare
* @param string attribute The attribute whose value you want to compare
* @param string value The value you want to check against the LDAP attribute
*
* @return mixed result of comparison (true, false, -1 on error)
* @since 11.1
*/
function compare($dn, $attribute, $value) {
return @ldap_compare($this->_resource, $dn, $attribute, $value);
}
/**
* Read all or specified attributes of given dn
*
* @param string dn The DN of the object you want to read
* @param string attribute The attribute values you want to read (Optional)
*
* @return array of attributes or -1 on error
*/
function read($dn, $attribute = array())
{
$base = substr($dn,strpos($dn,',')+1);
$cn = substr($dn,0,strpos($dn,','));
$result = @ldap_read($this->_resource, $base, $cn);
if ($result) {
return @ldap_get_entries($this->_resource, $result);
} else {
return $result;
}
}
/**
* Deletes a given DN from the tree
*
* @param string $dn The DN of the object you want to delete
*
* @return boolean Result of operation
*/
function delete($dn) {
return @ldap_delete($this->_resource, $dn);
}
/**
* Create a new DN
*
* @param string $dn The DN where you want to put the object
* @param array $entries An array of arrays describing the object to add
*
* @return boolean Result of operation
*/
function create($dn, $entries) {
return @ldap_add($this->_resource, $dn, $entries);
}
/**
* Add an attribute to the given DN
* Note: DN has to exist already
*
* @param string $dn The DN of the entry to add the attribute
* @param array $entry An array of arrays with attributes to add
*
* @return boolean Result of operation
*/
function add($dn, $entry) {
return @ldap_mod_add($this->_resource, $dn, $entry);
}
/**
* Rename the entry
*
* @param string $dn The DN of the entry at the moment
* @param string $newdn The DN of the entry should be (only cn=newvalue)
* @param string $newparent The full DN of the parent (null by default)
* @param boolean $deleteolddn Delete the old values (default)
*
* @return boolean Result of operation
* @since 11.1
*/
function rename($dn, $newdn, $newparent, $deleteolddn) {
return @ldap_rename($this->_resource, $dn, $newdn, $newparent, $deleteolddn);
}
/**
* Returns the error message
*
* @return string error message
* @since 11.1
*/
function getErrorMsg() {
return @ldap_error($this->_resource);
}
/**
* Converts a dot notation IP address to net address (e.g. for Netware, etc)
*
* @param string $ip IP Address (e.g. xxx.xxx.xxx.xxx)
*
* @return string Net address
* @since 11.1
*/
function ipToNetAddress($ip)
{
$parts = explode('.', $ip);
$address = '1#';
foreach ($parts as $int) {
$tmp = dechex($int);
if (strlen($tmp) != 2) {
$tmp = '0' . $tmp;
}
$address .= '\\' . $tmp;
}
return $address;
}
/**
* Extract readable network address from the LDAP encoded networkAddress attribute.
* @author Jay Burrell, Systems & Networks, Mississippi State University
* Please keep this document block and author attribution in place.
*
* Novell Docs, see: http://developer.novell.com/ndk/doc/ndslib/schm_enu/data/sdk5624.html#sdk5624
* for Address types: http://developer.novell.com/ndk/doc/ndslib/index.html?page=/ndk/doc/ndslib/schm_enu/data/sdk4170.html
* LDAP Format, String:
* taggedData = uint32String "#" octetstring
* byte 0 = uint32String = Address Type: 0= IPX Address; 1 = IP Address
* byte 1 = char = "#" - separator
* byte 2+ = octetstring - the ordinal value of the address
* Note: with eDirectory 8.6.2, the IP address (type 1) returns
* correctly, however, an IPX address does not seem to. eDir 8.7 may correct this.
* Enhancement made by Merijn van de Schoot:
* If addresstype is 8 (UDP) or 9 (TCP) do some additional parsing like still returning the IP address
*/
function LDAPNetAddr($networkaddress)
{
$addr = "";
$addrtype = intval(substr($networkaddress, 0, 1));
$networkaddress = substr($networkaddress, 2); // throw away bytes 0 and 1 which should be the addrtype and the "#" separator
if (($addrtype == 8) || ($addrtype = 9)) {
// TODO 1.6: If UDP or TCP, (TODO fill addrport and) strip portnumber information from address
$networkaddress = substr($networkaddress, (strlen($networkaddress)-4));
}
$addrtypes = array (
'IPX',
'IP',
'SDLC',
'Token Ring',
'OSI',
'AppleTalk',
'NetBEUI',
'Socket',
'UDP',
'TCP',
'UDP6',
'TCP6',
'Reserved (12)',
'URL',
'Count'
);
$len = strlen($networkaddress);
if ($len > 0)
{
for ($i = 0; $i < $len; $i += 1)
{
$byte = substr($networkaddress, $i, 1);
$addr .= ord($byte);
if (($addrtype == 1) || ($addrtype == 8) || ($addrtype = 9)) { // dot separate IP addresses...
$addr .= ".";
}
}
if (($addrtype == 1) || ($addrtype == 8) || ($addrtype = 9)) { // strip last period from end of $addr
$addr = substr($addr, 0, strlen($addr) - 1);
}
} else {
$addr .= JText::_('JLIB_CLIENT_ERROR_LDAP_ADDRESS_NOT_AVAILABLE');
}
return Array('protocol'=>$addrtypes[$addrtype], 'address'=>$addr);
}
/**
* Generates a LDAP compatible password
*
* @param string $password Clear text password to encrypt
* @param string $type Type of password hash, either md5 or SHA
*
* @return string Encrypted password
* @since 11.1
*/
function generatePassword($password, $type='md5') {
$userpassword = '';
switch(strtolower($type)) {
case 'sha':
$userpassword = '{SHA}' . base64_encode(pack('H*', sha1($password)));
case 'md5':
default:
$userpassword = '{MD5}' . base64_encode(pack('H*', md5($password)));
break;
}
return $userpassword;
}
}