*/ class LSldap { var $config; var $cnx = NULL; /** * Constructeur * * Cette methode définis la configuration de l'accès à l'annuaire * et établie la connexion. * * @author Benjamin Renard * * @param[in] $config array Tableau de configuration au formar Net_LDAP2 * * @retval void * * @see Net_LDAP2::connect() */ function LSldap ($config) { $this -> config = $config; $this -> connect(); } /** * Connection * * Cette methode établie la connexion à l'annuaire Ldap * * @author Benjamin Renard * * @retval boolean true si la connection est établie, false sinon */ function connect() { $this -> cnx = Net_LDAP2::connect($this -> config); if (Net_LDAP2::isError($this -> cnx)) { LSerror :: addErrorCode('LSldap_01',$this -> cnx -> getMessage()); $this -> cnx = NULL; return; } return true; } /** * Déconnection * * Cette methode clos la connexion à l'annuaire Ldap * * @author Benjamin Renard * * @retval void */ function close() { $this -> cnx -> done(); } /** * Recherche dans l'annuaire * * Cette methode effectue une recherche dans l'annuaire et retourne le resultat * de celle-ci sous la forme d'un tableau. * * @author Benjamin Renard * * @param[in] $filter [required] string Filtre de recherche Ldap * @param[in] $basedn string DN de base pour la recherche * @param[in] $params array Paramètres de recherche au format Net_LDAP2::search() * * @see Net_LDAP2::search() * * @retval array Retourne un tableau associatif contenant : * - ['dn'] : le DN de l'entré * - ['attrs'] : tableau associatif contenant les attributs (clé) * et leur valeur (valeur). */ function search ($filter,$basedn=NULL,$params = array()) { $ret = $this -> cnx -> search($basedn,$filter,$params); if (Net_LDAP2::isError($ret)) { LSerror :: addErrorCode('LSldap_02',$ret -> getMessage()); return; } $retInfos=array(); foreach($ret -> entries() as $entry) { $retInfos[]=array('dn' => $entry -> dn(), 'attrs' => $entry -> getValues()); } return $retInfos; } /** * Compte le nombre de retour d'une recherche dans l'annuaire * * Cette methode effectue une recherche dans l'annuaire et retourne le nombre * d'entrés trouvées. * * @author Benjamin Renard * * @param[in] $filter [required] string Filtre de recherche Ldap * @param[in] $basedn string DN de base pour la recherche * @param[in] $params array Paramètres de recherche au format Net_LDAP2::search() * * @see Net_LDAP2::search() * * @retval numeric Le nombre d'entré trouvées */ function getNumberResult ($filter,$basedn=NULL,$params = array() ) { if (empty($filter)) $filter=NULL; $ret = $this -> cnx -> search($basedn,$filter,$params); if (Net_LDAP2::isError($ret)) { LSerror :: addErrorCode('LSldap_02',$ret -> getMessage()); return; } return $ret -> count(); } /** * Charge les valeurs des attributs d'une entré de l'annuaire * * Cette methode recupère les valeurs des attributs d'une entrée de l'annaire * et les retournes sous la forme d'un tableau. * * @author Benjamin Renard * * @param[in] $dn string DN de l'entré Ldap * * @retval array Tableau associatif des valeurs des attributs avec en clef, le nom de l'attribut. */ function getAttrs($dn) { $infos = ldap_explode_dn($dn,0); if((!$infos)||($infos['count']==0)) return; $basedn=''; for ($i=1;$i<$infos['count'];$i++) { $sep=($basedn=='')?'':','; $basedn.=$sep.$infos[$i]; } $return=$this -> search($infos[0],$basedn); return $return[0]['attrs']; } /** * Retourne une entrée existante ou nouvelle * * @author Benjamin Renard * * @param[in] $object_type string Type de l'objet Ldap * @param[in] $dn string DN de l'entré Ldap * * @retval ldapentry|array Un objet ldapentry (PEAR::Net_LDAP2) * ou un tableau (si c'est une nouvelle entrée): * Array ( * 'entry' => ldapentry, * 'new' => true * ) */ function getEntry($object_type,$dn) { if(isset($GLOBALS['LSobjects'][$object_type])){ $obj_conf=$GLOBALS['LSobjects'][$object_type]; $entry = $this -> cnx -> getEntry($dn); if (Net_LDAP2::isError($entry)) { //$newentry = new Net_LDAP2_Entry(&$this -> cnx); //$newentry -> dn($dn); //$newentry -> add(array('objectclass' => $obj_conf['objectclass'])); //foreach($obj_conf['attrs'] as $attr_name => $attr_conf) { // $newentry->add(array($attr_name => $attr_conf['default_value'])); //} $attributes = array(); foreach($obj_conf['attrs'] as $attr_name => $attr_conf) { if( isset($attr_conf['default_value']) ) { $attributes[$attr_name]=$attr_conf['default_value']; } } $newentry = $this -> getNewEntry($dn,$obj_conf['objectclass'],$attributes); if (!$newentry) { return; } return array('entry' => $newentry,'new' => true); } else { return $entry; } } else { LSerror :: addErrorCode('LSldap_03'); return; } } /** * Retourne une nouvelle entrée * * @param[in] $dn string Le DN de l'objet * @param[in] $objectClass array Un tableau contenant les objectClass de l'objet * @param[in] $attrs array Un tabeau du type array('attr_name' => attr_value, ...) * * @retval mixed Le nouvelle objet en cas de succès, false sinon */ function getNewEntry($dn,$objectClass,$attrs,$add=false) { $newentry = Net_LDAP2_Entry::createFresh($dn,array_merge(array('objectclass' =>$objectClass),(array)$attrs)); if(Net_LDAP2::isError($newentry)) { return false; } if($add) { if(!$this -> cnx -> add($newentry)) { return; } } return $newentry; } /** * Met à jour une entrée dans l'annuaire * * Remarque : Supprime les valeurs vides de attributs et les attributs sans valeur. * * @author Benjamin Renard * * @param[in] $object_type string Type de l'objet Ldap * @param[in] $dn string DN de l'entré Ldap * @param[in] $change array Tableau des modifications à apporter * * @retval boolean true si l'objet a bien été mis à jour, false sinon */ function update($object_type,$dn,$change) { LSdebug($change); $dropAttr=array(); $entry=$this -> getEntry($object_type,$dn); if (is_array($entry)) { $new = $entry['new']; $entry = $entry['entry']; } else { $new = false; } if($entry) { foreach($change as $attrName => $attrVal) { $drop = true; if (is_array($attrVal)) { foreach($attrVal as $val) { if (!empty($val)) { $drop = false; $changeData[$attrName][]=$val; } } } else { if (!empty($attrVal)) { $drop = false; $changeData[$attrName][]=$attrVal; } } if($drop) { $dropAttr[] = $attrName; } } $entry -> replace($changeData); LSdebug('change : 
'.print_r($changeData,true).'
'); LSdebug('drop : 
'.print_r($dropAttr,true).'
'); if ($new) { LSdebug('LSldap :: add()'); $ret = $this -> cnx -> add($entry); } else { LSdebug('LSldap :: update()'); $ret = $entry -> update(); } if (Net_LDAP2::isError($ret)) { LSerror :: addErrorCode('LSldap_05',$dn); LSerror :: addErrorCode(0,'NetLdap-Error : '.$ret->getMessage()); } else { if (!empty($dropAttr)) { foreach($dropAttr as $attr) { if(Net_LDAP2::isError($entry -> getValue($attr))) { // Attribut n'existe pas dans l'annuaire continue; } // Méthode buggé : suppression impossible de certain attribut // exemple : jpegPhoto // $entry -> delete($attr); $entry -> replace(array($attr =>array())); } $ret = $entry -> update(); if (Net_LDAP2::isError($ret)) { LSerror :: addErrorCode('LSldap_06'); LSerror :: addErrorCode(0,'NetLdap-Error : '.$ret->getMessage()); } } return true; } } else { LSerror :: addErrorCode('LSldap_04'); return; } } /** * Test de bind * * Cette methode établie une connexion à l'annuaire Ldap et test un bind * avec un login et un mot de passe passé en paramètre * * @author Benjamin Renard * * @retval boolean true si la connection à réussi, false sinon */ function checkBind($dn,$pwd) { $config = $this -> config; $config['binddn'] = $dn; $config['bindpw'] = $pwd; $cnx = Net_LDAP2::connect($config); if (Net_LDAP2::isError($cnx)) { return; } return true; } /** * Retourne l'état de la connexion Ldap * * @retval boolean True si le serveur est connecté, false sinon. */ function isConnected() { return ($this -> cnx == NULL)?false:true; } /** * Supprime un objet de l'annuaire * * @param[in] string DN de l'objet à supprimer * * @retval boolean True si l'objet à été supprimé, false sinon */ function remove($dn) { $ret = $this -> cnx -> delete($dn,array('recursive' => true)); if (Net_LDAP2::isError($ret)) { LSerror :: addErrorCode(0,'NetLdap-Error : '.$ret->getMessage()); return; } return true; } /** * Déplace un objet LDAP dans l'annuaire * * @param[in] $old string Le DN actuel * @param[in] $new string Le futur DN * * @retval boolean True si l'objet a été déplacé, false sinon */ function move($old,$new) { $ret = $this -> cnx -> move($old,$new); if (Net_LDAP2::isError($ret)) { LSerror :: addErrorCode('LSldap_07'); LSerror :: addErrorCode(0,'NetLdap-Error : '.$ret->getMessage()); return; } return true; } } /* * Error Codes */ $GLOBALS['LSerror_code']['LSldap_01'] = array ( 'msg' => _("LSldap : Error during the LDAP server connection (%{msg}).") ); $GLOBALS['LSerror_code']['LSldap_02'] = array ( 'msg' => _("LSldap : Error during the LDAP search (%{msg}).") ); $GLOBALS['LSerror_code']['LSldap_03'] = array ( 'msg' => _("LSldap : Object type unkown.") ); $GLOBALS['LSerror_code']['LSldap_04'] = array ( 'msg' => _("LSldap : Error during fecthing the LDAP entry.") ); $GLOBALS['LSerror_code']['LSldap_05'] = array ( 'msg' => _("LSldap : Error during changing the LDAP entry (DN : %{dn}).") ); $GLOBALS['LSerror_code']['LSldap_06'] = array ( 'msg' => _("LSldap : Error during deleting the empty attributes.") ); $GLOBALS['LSerror_code']['LSldap_07'] = array ( 'msg' => _("LSldap : Error during changing the DN of the object.") ); ?>