<?php
/* Copyright (C) 2005-2012	Laurent Destailleur	<eldy@users.sourceforge.net>
 * Copyright (C) 2005-2017	Regis Houssin		<regis.houssin@inodbox.com>
 * Copyright (C) 2014		Marcos García		<marcosgdf@gmail.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 */

/**
 *  \file       htdocs/core/triggers/interface_50_modLdap_Ldapsynchro.class.php
 *  \ingroup    core
 *  \brief      Fichier de gestion des triggers LDAP
 */

require_once DOL_DOCUMENT_ROOT.'/core/triggers/dolibarrtriggers.class.php';


/**
 *  Class of triggers for ldap module
 */
class InterfaceLdapsynchro extends DolibarrTriggers
{
	public $family = 'ldap';
	public $description = "Triggers of this module allows to synchronize Dolibarr toward a LDAP database.";

	/**
	 * Version of the trigger
	 * @var string
	 */
	public $version = self::VERSION_DOLIBARR;

	/**
	 * @var string Image of the trigger
	 */
	public $picto = 'technic';

	/**
	 * Function called when a Dolibarrr business event is done.
	 * All functions "runTrigger" are triggered if file is inside directory htdocs/core/triggers or htdocs/module/code/triggers (and declared)
	 *
	 * @param string		$action		Event action code
	 * @param Object		$object     Object
	 * @param User		    $user       Object user
	 * @param Translate 	$langs      Object langs
	 * @param conf		    $conf       Object conf
	 * @return int         				<0 if KO, 0 if no triggered ran, >0 if OK
	 */
	public function runTrigger($action, $object, User $user, Translate $langs, Conf $conf)
	{
		if (empty($conf->ldap->enabled)) return 0;		// Module not active, we do nothing
		if (defined('DISABLE_LDAP_SYNCHRO')) return 0;	// If constant defined, we do nothing

		if (! function_exists('ldap_connect'))
		{
			dol_syslog("Warning, module LDAP is enabled but LDAP functions not available in this PHP", LOG_WARNING);
			return 0;
		}

		require_once DOL_DOCUMENT_ROOT."/core/class/ldap.class.php";
		require_once DOL_DOCUMENT_ROOT."/user/class/usergroup.class.php";

		$result=0;

		// Users
		if ($action == 'USER_CREATE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->add($dn,$info,$user);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'USER_MODIFY')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					if (empty($object->oldcopy) || ! is_object($object->oldcopy))
					{
						dol_syslog("Trigger ".$action." was called by a function that did not set previously the property ->oldcopy onto object", LOG_WARNING);
						$object->oldcopy = clone $object;
					}

					$oldinfo=$object->oldcopy->_load_ldap_info();
					$olddn=$object->oldcopy->_load_ldap_dn($oldinfo);

					// Verify if entry exist
					$container=$object->oldcopy->_load_ldap_dn($oldinfo,1);
					$search = "(".$object->oldcopy->_load_ldap_dn($oldinfo,2).")";
					$records=$ldap->search($container,$search);
					if (count($records) && $records['count'] == 0)
					{
						$olddn = '';
					}

					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);
					$newrdn=$object->_load_ldap_dn($info,2);
					$newparent=$object->_load_ldap_dn($info,1);

					$result=$ldap->update($dn,$info,$user,$olddn,$newrdn,$newparent);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'USER_NEW_PASSWORD')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					if (empty($object->oldcopy) || ! is_object($object->oldcopy))
					{
						dol_syslog("Trigger ".$action." was called by a function that did not set previously the property ->oldcopy onto object", LOG_WARNING);
						$object->oldcopy = clone $object;
					}

					$oldinfo=$object->oldcopy->_load_ldap_info();
					$olddn=$object->oldcopy->_load_ldap_dn($oldinfo);

					// Verify if entry exist
					$container=$object->oldcopy->_load_ldap_dn($oldinfo,1);
					$search = "(".$object->oldcopy->_load_ldap_dn($oldinfo,2).")";
					$records=$ldap->search($container,$search);
					if (count($records) && $records['count'] == 0)
					{
						$olddn = '';
					}

					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->update($dn,$info,$user,$olddn);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'USER_ENABLEDISABLE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
		}
		elseif ($action == 'USER_DELETE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->delete($dn);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'USER_SETINGROUP')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					// Must edit $object->newgroupid
					$usergroup=new UserGroup($this->db);
					if ($object->newgroupid > 0)
					{
						$usergroup->fetch($object->newgroupid);

						$oldinfo=$usergroup->_load_ldap_info();
						$olddn=$usergroup->_load_ldap_dn($oldinfo);

						// Verify if entry exist
						$container=$usergroup->_load_ldap_dn($oldinfo,1);
						$search = "(".$usergroup->_load_ldap_dn($oldinfo,2).")";
						$records=$ldap->search($container,$search);
						if (count($records) && $records['count'] == 0)
						{
							$olddn = '';
						}

						$info=$usergroup->_load_ldap_info();    // Contains all members, included the new one (insert already done before trigger call)
						$dn=$usergroup->_load_ldap_dn($info);

						$result=$ldap->update($dn,$info,$user,$olddn);
					}
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'USER_REMOVEFROMGROUP')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					// Must edit $object->newgroupid
					$usergroup=new UserGroup($this->db);
					if ($object->oldgroupid > 0)
					{
						$usergroup->fetch($object->oldgroupid);

						$oldinfo=$usergroup->_load_ldap_info();
						$olddn=$usergroup->_load_ldap_dn($oldinfo);

						// Verify if entry exist
						$container=$usergroup->_load_ldap_dn($oldinfo,1);
						$search = "(".$usergroup->_load_ldap_dn($oldinfo,2).")";
						$records=$ldap->search($container,$search);
						if (count($records) && $records['count'] == 0)
						{
							$olddn = '';
						}

						$info=$usergroup->_load_ldap_info();    // Contains all members, included the new one (insert already done before trigger call)
						$dn=$usergroup->_load_ldap_dn($info);

						$result=$ldap->update($dn,$info,$user,$olddn);
					}
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}

		// Groupes
		elseif ($action == 'GROUP_CREATE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					// Get a gid number for objectclass PosixGroup
					if (in_array('posixGroup',$info['objectclass'])) {
						$info['gidNumber'] = $ldap->getNextGroupGid('LDAP_KEY_GROUPS');
					}

					$result=$ldap->add($dn,$info,$user);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'GROUP_MODIFY')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					if (empty($object->oldcopy) || ! is_object($object->oldcopy))
					{
						dol_syslog("Trigger ".$action." was called by a function that did not set previously the property ->oldcopy onto object", LOG_WARNING);
						$object->oldcopy = clone $object;
					}

					$oldinfo=$object->oldcopy->_load_ldap_info();
					$olddn=$object->oldcopy->_load_ldap_dn($oldinfo);

					// Verify if entry exist
					$container=$object->oldcopy->_load_ldap_dn($oldinfo,1);
					$search = "(".$object->oldcopy->_load_ldap_dn($oldinfo,2).")";
					$records=$ldap->search($container,$search);
					if (count($records) && $records['count'] == 0)
					{
						$olddn = '';
					}

					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->update($dn,$info,$user,$olddn);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'GROUP_DELETE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_SYNCHRO_ACTIVE) && $conf->global->LDAP_SYNCHRO_ACTIVE === 'dolibarr2ldap')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->delete($dn);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}

		// Contacts
		elseif ($action == 'CONTACT_CREATE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_CONTACT_ACTIVE))
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->add($dn,$info,$user);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'CONTACT_MODIFY')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_CONTACT_ACTIVE))
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					if (empty($object->oldcopy) || ! is_object($object->oldcopy))
					{
						dol_syslog("Trigger ".$action." was called by a function that did not set previously the property ->oldcopy onto object", LOG_WARNING);
						$object->oldcopy = clone $object;
					}

					$oldinfo=$object->oldcopy->_load_ldap_info();
					$olddn=$object->oldcopy->_load_ldap_dn($oldinfo);

					// Verify if entry exist
					$container=$object->oldcopy->_load_ldap_dn($oldinfo,1);
					$search = "(".$object->oldcopy->_load_ldap_dn($oldinfo,2).")";
					$records=$ldap->search($container,$search);
					if (count($records) && $records['count'] == 0)
					{
						$olddn = '';
					}

					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->update($dn,$info,$user,$olddn);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'CONTACT_DELETE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_CONTACT_ACTIVE))
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->delete($dn);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}

		// Members
		elseif ($action == 'MEMBER_CREATE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_ACTIVE) && (string) $conf->global->LDAP_MEMBER_ACTIVE == '1')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->add($dn,$info,$user);

					// For member type
					if (! empty($conf->global->LDAP_MEMBER_TYPE_ACTIVE) && (string) $conf->global->LDAP_MEMBER_TYPE_ACTIVE == '1')
					{
						if ($object->typeid > 0)
						{
							require_once DOL_DOCUMENT_ROOT."/adherents/class/adherent_type.class.php";
							$membertype=new AdherentType($this->db);
							$membertype->fetch($object->typeid);
							$membertype->listMembersForMemberType('', 1);

							$oldinfo=$membertype->_load_ldap_info();
							$olddn=$membertype->_load_ldap_dn($oldinfo);

							// Verify if entry exist
							$container=$membertype->_load_ldap_dn($oldinfo,1);
							$search = "(".$membertype->_load_ldap_dn($oldinfo,2).")";
							$records=$ldap->search($container,$search);
							if (count($records) && $records['count'] == 0)
							{
								$olddn = '';
							}

							$info=$membertype->_load_ldap_info();    // Contains all members, included the new one (insert already done before trigger call)
							$dn=$membertype->_load_ldap_dn($info);

							$result=$ldap->update($dn,$info,$user,$olddn);
						}
					}
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'MEMBER_VALIDATE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_ACTIVE) && (string) $conf->global->LDAP_MEMBER_ACTIVE == '1')
			{
				// If status field is setup to be synchronized
				if (! empty($conf->global->LDAP_FIELD_MEMBER_STATUS))
				{
					$ldap=new Ldap();
					$result=$ldap->connect_bind();

					if ($result > 0)
					{
						$info=$object->_load_ldap_info();
						$dn=$object->_load_ldap_dn($info);
						$olddn=$dn;	// We know olddn=dn as we change only status

						$result=$ldap->update($dn,$info,$user,$olddn);
					}

					if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
				}
			}
		}
		elseif ($action == 'MEMBER_SUBSCRIPTION')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_ACTIVE) && (string) $conf->global->LDAP_MEMBER_ACTIVE == '1')
			{
				// If subscriptions fields are setup to be synchronized
				if ($conf->global->LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_DATE
					|| $conf->global->LDAP_FIELD_MEMBER_FIRSTSUBSCRIPTION_AMOUNT
					|| $conf->global->LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_DATE
					|| $conf->global->LDAP_FIELD_MEMBER_LASTSUBSCRIPTION_AMOUNT
					|| $conf->global->LDAP_FIELD_MEMBER_END_LASTSUBSCRIPTION)
				{
					$ldap=new Ldap();
					$result=$ldap->connect_bind();

					if ($result > 0)
					{
						$info=$object->_load_ldap_info();
						$dn=$object->_load_ldap_dn($info);
						$olddn=$dn;	// We know olddn=dn as we change only subscriptions

						$result=$ldap->update($dn,$info,$user,$olddn);
					}

					if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
				}
			}
		}
		elseif ($action == 'MEMBER_MODIFY')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_ACTIVE) && (string) $conf->global->LDAP_MEMBER_ACTIVE == '1')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					if (empty($object->oldcopy) || ! is_object($object->oldcopy))
					{
						dol_syslog("Trigger ".$action." was called by a function that did not set previously the property ->oldcopy onto object", LOG_WARNING);
						$object->oldcopy = clone $object;
					}

					$oldinfo=$object->oldcopy->_load_ldap_info();
					$olddn=$object->oldcopy->_load_ldap_dn($oldinfo);

					// Verify if entry exist
					$container=$object->oldcopy->_load_ldap_dn($oldinfo,1);
					$search = "(".$object->oldcopy->_load_ldap_dn($oldinfo,2).")";
					$records=$ldap->search($container,$search);
					if (count($records) && $records['count'] == 0)
					{
						$olddn = '';
					}

					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);
					$newrdn=$object->_load_ldap_dn($info,2);
					$newparent=$object->_load_ldap_dn($info,1);

					$result=$ldap->update($dn,$info,$user,$olddn,$newrdn,$newparent);

					// For member type
					if (! empty($conf->global->LDAP_MEMBER_TYPE_ACTIVE) && (string) $conf->global->LDAP_MEMBER_TYPE_ACTIVE == '1')
					{
						require_once DOL_DOCUMENT_ROOT."/adherents/class/adherent_type.class.php";

						/*
						 * Change member info
						 */
						$newmembertype=new AdherentType($this->db);
						$newmembertype->fetch($object->typeid);
						$newmembertype->listMembersForMemberType('', 1);

						$oldinfo=$newmembertype->_load_ldap_info();
						$olddn=$newmembertype->_load_ldap_dn($oldinfo);

						// Verify if entry exist
						$container=$newmembertype->_load_ldap_dn($oldinfo,1);
						$search = "(".$newmembertype->_load_ldap_dn($oldinfo,2).")";
						$records=$ldap->search($container,$search);
						if (count($records) && $records['count'] == 0)
						{
							$olddn = '';
						}

						$info=$newmembertype->_load_ldap_info();    // Contains all members, included the new one (insert already done before trigger call)
						$dn=$newmembertype->_load_ldap_dn($info);

						$result=$ldap->update($dn,$info,$user,$olddn);

						if ($object->oldcopy->typeid != $object->typeid)
						{
							/*
							 * Remove member in old member type
							 */
							$oldmembertype=new AdherentType($this->db);
							$oldmembertype->fetch($object->oldcopy->typeid);
							$oldmembertype->listMembersForMemberType('', 1);

							$oldinfo=$oldmembertype->_load_ldap_info();
							$olddn=$oldmembertype->_load_ldap_dn($oldinfo);

							// Verify if entry exist
							$container=$oldmembertype->_load_ldap_dn($oldinfo,1);
							$search = "(".$oldmembertype->_load_ldap_dn($oldinfo,2).")";
							$records=$ldap->search($container,$search);
							if (count($records) && $records['count'] == 0)
							{
								$olddn = '';
							}

							$info=$oldmembertype->_load_ldap_info();    // Contains all members, included the new one (insert already done before trigger call)
							$dn=$oldmembertype->_load_ldap_dn($info);

							$result=$ldap->update($dn,$info,$user,$olddn);
						}
					}
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'MEMBER_NEW_PASSWORD')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_ACTIVE) && (string) $conf->global->LDAP_MEMBER_ACTIVE == '1')
			{
				// If password field is setup to be synchronized
				if ($conf->global->LDAP_FIELD_PASSWORD || $conf->global->LDAP_FIELD_PASSWORD_CRYPTED)
				{
					$ldap=new Ldap();
					$result=$ldap->connect_bind();

					if ($result > 0)
					{
						$info=$object->_load_ldap_info();
						$dn=$object->_load_ldap_dn($info);
						$olddn=$dn;	// We know olddn=dn as we change only password

						$result=$ldap->update($dn,$info,$user,$olddn);
					}

					if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
				}
			}
		}
		elseif ($action == 'MEMBER_RESILIATE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_ACTIVE) && (string) $conf->global->LDAP_MEMBER_ACTIVE == '1')
			{
				// If status field is setup to be synchronized
				if (! empty($conf->global->LDAP_FIELD_MEMBER_STATUS))
				{
					$ldap=new Ldap();
					$result=$ldap->connect_bind();

					if ($result > 0)
					{
						$info=$object->_load_ldap_info();
						$dn=$object->_load_ldap_dn($info);
						$olddn=$dn;	// We know olddn=dn as we change only status

						$result=$ldap->update($dn,$info,$user,$olddn);
					}

					if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
				}
			}
		}
		elseif ($action == 'MEMBER_DELETE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_ACTIVE) && (string) $conf->global->LDAP_MEMBER_ACTIVE == '1')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->delete($dn);

					// For member type
					if (! empty($conf->global->LDAP_MEMBER_TYPE_ACTIVE) && (string) $conf->global->LDAP_MEMBER_TYPE_ACTIVE == '1')
					{
						if ($object->typeid > 0)
						{
							require_once DOL_DOCUMENT_ROOT."/adherents/class/adherent_type.class.php";

							/*
							 * Remove member in member type
							 */
							$membertype=new AdherentType($this->db);
							$membertype->fetch($object->typeid);
							$membertype->listMembersForMemberType('a.rowid != ' . $object->id, 1); // remove deleted member from the list

							$oldinfo=$membertype->_load_ldap_info();
							$olddn=$membertype->_load_ldap_dn($oldinfo);

							// Verify if entry exist
							$container=$membertype->_load_ldap_dn($oldinfo,1);
							$search = "(".$membertype->_load_ldap_dn($oldinfo,2).")";
							$records=$ldap->search($container,$search);
							if (count($records) && $records['count'] == 0)
							{
								$olddn = '';
							}

							$info=$membertype->_load_ldap_info();    // Contains all members, included the new one (insert already done before trigger call)
							$dn=$membertype->_load_ldap_dn($info);

							$result=$ldap->update($dn,$info,$user,$olddn);
						}
					}
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}

		// Members types
		elseif ($action == 'MEMBER_TYPE_CREATE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_TYPE_ACTIVE) && (string) $conf->global->LDAP_MEMBER_TYPE_ACTIVE == '1')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					// Get a gid number for objectclass PosixGroup
					if (in_array('posixGroup',$info['objectclass'])) {
						$info['gidNumber'] = $ldap->getNextGroupGid('LDAP_KEY_MEMBERS_TYPE');
					}

					$result=$ldap->add($dn,$info,$user);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'MEMBER_TYPE_MODIFY')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_TYPE_ACTIVE) && (string) $conf->global->LDAP_MEMBER_TYPE_ACTIVE == '1')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					if (empty($object->oldcopy) || ! is_object($object->oldcopy))
					{
						dol_syslog("Trigger ".$action." was called by a function that did not set previously the property ->oldcopy onto object", LOG_WARNING);
						$object->oldcopy = clone $object;
					}

					$object->oldcopy->listMembersForMemberType('', 1);

					$oldinfo=$object->oldcopy->_load_ldap_info();
					$olddn=$object->oldcopy->_load_ldap_dn($oldinfo);

					// Verify if entry exist
					$container=$object->oldcopy->_load_ldap_dn($oldinfo,1);
					$search = "(".$object->oldcopy->_load_ldap_dn($oldinfo,2).")";
					$records=$ldap->search($container,$search);
					if (count($records) && $records['count'] == 0)
					{
						$olddn = '';
					}

					$object->listMembersForMemberType('', 1);

					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->update($dn,$info,$user,$olddn);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}
		elseif ($action == 'MEMBER_TYPE_DELETE')
		{
			dol_syslog("Trigger '".$this->name."' for action '$action' launched by ".__FILE__.". id=".$object->id);
			if (! empty($conf->global->LDAP_MEMBER_TYPE_ACTIVE) && (string) $conf->global->LDAP_MEMBER_TYPE_ACTIVE == '1')
			{
				$ldap=new Ldap();
				$result=$ldap->connect_bind();

				if ($result > 0)
				{
					$info=$object->_load_ldap_info();
					$dn=$object->_load_ldap_dn($info);

					$result=$ldap->delete($dn);
				}

				if ($result < 0) $this->error="ErrorLDAP ".$ldap->error;
			}
		}

		return $result;
	}
}
