<?php
// declare(encoding='UTF-8');
/**
 * Classe mère permettant de rassembler les manipulation concernant les mots clés.
 * Pour l'utiliser, il suffit d'étendre votre service avec cette classe à la place de Cel.
 * Encodage en entrée : utf8
 * Encodage en sortie : utf8
 *
 * @author Jean-Pascal MILCENT <jpm@tela-botanica.org>
 * @author Aurélien PERONNET <aurelien@tela-botanica.org>
 * @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>
 * @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
 * @version $Id$
 * @copyright © 2011, Tela-Botanica
 */
// TODO : compléter la classe avec des méthdodes de modification, suppression et consultation des mots-clés.
// TODO : ajout vérification de la non présence du caractère '|' dans les chaines utilisateurs...
class CelMotCle extends Cel {

	const OBS_RACINE_ID = 'racine_obs';
	const OBS_RACINE_NOM = 'Projets';
	const OBS_TABLE_SUFFIXE = '_obs';

	const IMG_RACINE_ID = 'racine';
	const IMG_RACINE_NOM = 'Mots clés';
	const IMG_TABLE_SUFFIXE = '_images';

	const SEPARATEUR_MOT_CLE_TEXTE = ',';
	const SEPARATEUR_MOT_CLE_ID_OBS = ',';
	const SEPARATEUR_MOT_CLE_ID_IMG = ',';

	/**
	 * @var String permet de savoir si nous avons à faire à un mot clé d'observation ou d'image.
	 */
	private $suffix = '';

	/**
	 * @var String identifiant de l'utilisateur dont nous gérons les mots-clés.
	 */
	private $utilisateur_id = '';

	public function lierMotCleObs($utilisateur_id, Array $mots_cles_ids, Array $ids) {
		$this->suffix = self::OBS_TABLE_SUFFIXE;
		$this->utilisateur_id = $utilisateur_id;
		return $this->lierMotCle($utilisateur_id, $mots_cles_ids, $ids);
	}

	public function lierMotCleImg($utilisateur_id, Array $mots_cles_ids, Array $ids) {
		$this->suffix = self::IMG_TABLE_SUFFIXE;
		$this->utilisateur_id = $utilisateur_id;
		return $this->lierMotCle($utilisateur_id, $mots_cles_ids, $ids);
	}

	/**
	* Lie un mot-clé à une ou plusieurs images ou obs suivant le suffixe en cours.
	*
	* @param String $utilisateur_id identifiant de l'utilisateur.
	* @param Array $mots_cles_ids tableau d'ids des mot-clé.
	* @param Array $ids un tableau d'ids d'obs ou img (int) qui seront associées aux mots clés.
	*/
	public function lierMotCle($utilisateur_id, Array $mots_cles_ids, Array $ids) {
		$retour = false;

		if ($this->contenirNbresEntiers($ids)) {

			$champ_objet_lie = ($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'id_observation' : 'id_image';
			$champ_mot_cle = ($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'id_mot_cle_obs' : 'id_mot_cle_image';

			// le mot clé ignore est spécifique mysql, mais il est utilisé ici pour des raisons
			// de performance, à remplacer par un test sur les mots clés déjà existant si ça gène
			$requete = "INSERT IGNORE INTO cel{$this->suffix}_mots_cles ".
				'('.$champ_objet_lie.', '.$champ_mot_cle.') '.
				'VALUES ';

			foreach($ids as $id) {
				foreach($mots_cles_ids as $mot) {
					$requete .= '('.$id.','.Cel::db()->proteger($mot).'),';
				}
			}
			$requete = rtrim($requete,',');
			$resultat = Cel::db()->executer($requete);

			// J'en suis ici
			if ($resultat) {
				$retour = true;
				foreach ($ids as $id) {
					$regeneration = $this->regenererIndexTexteMotCle($id);
					if ($regeneration === false) {
						$retour = false;
					}
				}
			} else {
				$e = "Erreur de mise à jour des mots clés d'une obs : $requete";
				$this->logger('CEL_bugs', $e);
				$this->messages[] = $e;
			}
		} else {
			$this->messages[] = "Le tableau des ordres des obs ne contenait pas que des nombres entiers.";
		}
		return $retour;
	}

	private function contenirNbresEntiers($ordres) {
		$ok = true;
		foreach ($ordres as $ordre) {
			if (! preg_match('/^[0-9]+$/', $ordre)) {
				$this->debug[] = "Ordre pb : $ordre";
				$ok = false;
			}
		}
		return $ok;
	}

	private function regenererIndexTexteMotCle($id) {
		$ok = false;
		$mots_cles = $this->obtenirMotsClesTexte($id);
		$mots_cles_concatenes = $this->concatenerMotsCles($mots_cles);
		$ok = $this->mettreAJourMotsClesConcatenes($mots_cles_concatenes, $id);
		return $ok;
	}

	private function obtenirMotsClesTexte($id_image_ou_obs) {
		$requete = 	'SELECT mot_cle '.
			'FROM '.'cel_mots_cles'.$this->suffix.' '.
			'WHERE id_mot_cle_'.(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'obs' : 'image').' IN '.
			'('.
				'SELECT id_mot_cle_'.(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'obs' : 'image').' '.
				'FROM cel'.$this->suffix.'_mots_cles '.
				'WHERE '.(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'id_observation' : 'id_image').' = '.Cel::db()->proteger($id_image_ou_obs).
			')';

		$resultats = Cel::db()->requeter($requete);
		return $resultats;
	}

	private function formaterIdsMotClePourClauseInSql($mot_cle_ids) {
		$mot_cle_ids = $this->nettoyerMotsCles($mot_cle_ids);
		$mot_cle_ids = str_replace(self::SEPARATEUR_MOT_CLE_ID_OBS, ',', $mot_cle_ids);
		$mot_cle_ids = trim($mot_cle_ids, ',');
		$mot_cle_ids_proteges = implode(',', $this->protegerTableau(explode(',', $mot_cle_ids)));
		return $mot_cle_ids_proteges;
	}

	private function concatenerMotsCles(Array $mots_cles) {
		$mot_cles_concatenes = '';
		if (count($mots_cles) > 0) {
			$dedoublonage = array();
			foreach ($mots_cles as $mot_cle) {
				if (array_key_exists($mot_cle['mot_cle'], $dedoublonage) === false) {
					$dedoublonage[$mot_cle['mot_cle']] = 1;
					$mot_cles_concatenes .= $mot_cle['mot_cle'].self::SEPARATEUR_MOT_CLE_TEXTE;
				} else {
					$dedoublonage[$mot_cle['mot_cle']]++;
				}
			}
		}
		$mot_cles_concatenes = rtrim($mot_cles_concatenes, self::SEPARATEUR_MOT_CLE_TEXTE);
		return $mot_cles_concatenes;
	}

	private function mettreAJourMotsClesConcatenes($mots_cles, $id) {
		$mots_cles = Cel::db()->proteger($mots_cles);
		$utilisateur_id = Cel::db()->proteger($this->utilisateur_id);

		$requete = 	'UPDATE cel'.$this->suffix." ".
					"SET mots_cles_texte = $mots_cles ".
					"WHERE id_".(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'observation' : 'image')." = $id ";

		$ok = Cel::db()->executer($requete) ? true : false;
		return $ok;
	}


	private function nettoyerMotsCles($chaine) {
		$valeur = str_replace('null', '', $chaine);
		$valeur = trim($valeur, ';;');

		return $valeur;
	}

	public function ajouterMotCleObs($utilisateur_id, $mot_cle, $mot_cle_parent_id) {
		$this->suffix = self::OBS_TABLE_SUFFIXE;
		$this->utilisateur_id = $utilisateur_id;
		return $this->ajouterMotCle($mot_cle, $mot_cle_parent_id);
	}

	public function ajouterMotCleImg($utilisateur_id, $mot_cle, $mot_cle_parent_id) {
		$this->suffix = self::IMG_TABLE_SUFFIXE;
		$this->utilisateur_id = $utilisateur_id;
		return $this->ajouterMotCle($mot_cle, $mot_cle_parent_id);
	}

	private function ajouterMotCle($mot_cle, $mot_cle_parent_id) {
		$retour = true;
		$this->ajouterMotCleRacine();
		if ($this->verifierAbsence($mot_cle, $mot_cle_parent_id)) {
			$mot_cle_id = $this->genererTagId($mot_cle);

			$this->commencerTransaction();

			$bornes = $this->retrouverBornesEtNiveau($mot_cle_parent_id);
			$borne_pere = $bornes['bd'];
			$niveau = $bornes['niveau'] + 1;
			$bg = $bornes['bd'];
			$bd = $bg + 1;
			$mot_cle_encode = $this->encoderMotCle($mot_cle);

			$mot_cle_protege = Cel::db()->proteger($mot_cle);
			$bg = Cel::db()->proteger($bg);
			$bd = Cel::db()->proteger($bd);
			$mot_cle_encode = Cel::db()->proteger($mot_cle_encode);
			$mot_cle_id = Cel::db()->proteger($mot_cle_id);
			$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
			$mot_cle_parent_id_protege = Cel::db()->proteger($mot_cle_parent_id);
			$niveau = Cel::db()->proteger($niveau);

			$transaction_reussie_1 = $this->decalerBornesPlusDeux($borne_pere) ? true : false;

			$requete = 	"INSERT INTO  cel_mots_cles{$this->suffix} ".
						"VALUES ($mot_cle_id, $id_utilisateur, $mot_cle_protege, $mot_cle_encode,".
						" $bg, $bd, $niveau, $mot_cle_parent_id_protege) ";

			$transaction_reussie_2 = $this->executerSQL($requete);
			if (!$transaction_reussie_2) {
				$e = "Échec d'insertion du mot-clé : $requete ";
				$this->messages[] = $e;
			}

			if ($transaction_reussie_1 && $transaction_reussie_2) {
				$retour = $this->completerTransaction();
			} else {
				$retour = $this->annulerTransaction();
			}
		} else {
			$e = "Le mot-clé '$mot_cle' existe déjà dans la table cel_mots_cles{$this->suffix}.";
			$this->debug[] = $e;
		}

		$id = ($retour) ? $this->getIdMotCle($mot_cle, $mot_cle_parent_id) : false;
		return $id;
	}

	private function genererTagId($tag) {
		$id = ($this->getHashCode($tag) + ((mt_rand() / (double)mt_getrandmax()) * 10000));
		$id = str_replace(',', '.', $id);
		return $id;
	}

	private function getHashCode($chaine){
		$hash = 0;
		$stringLength = strlen($chaine);
		for ($i = 0; $i < $stringLength; $i++) {
			$hash = 31 * $hash + $chaine[$i];
		}
		return $hash;
	}

	private function ajouterMotCleRacine() {
		$nbre_mots_cles = $this->compterMotsCles();
		$this->debug[] = "Nbre de mots-clés : $nbre_mots_cles";
		if ($nbre_mots_cles == 0) {
			switch ($this->suffix) {
				case self::OBS_TABLE_SUFFIXE :
					$nom_racine = self::OBS_RACINE_NOM;
					$id_racine = self::OBS_RACINE_ID;
					break;
				case self::IMG_TABLE_SUFFIXE :
					$nom_racine = self::IMG_RACINE_NOM;
					$id_racine = self::IMG_RACINE_ID;
					break;
				default:
					$nom_racine = $this->suffix;
					$id_racine = $this->suffix;
			}

			$md5_racine = Cel::db()->proteger($this->encoderMotCle($nom_racine));
			$nom_racine = Cel::db()->proteger($nom_racine);
			$id_racine = Cel::db()->proteger($id_racine);
			$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);

			$requete = "INSERT INTO cel_mots_cles{$this->suffix} ".
			"VALUES ($id_racine, $id_utilisateur, $nom_racine, $md5_racine,".
			" 1, 2, 0, '') ";

			if ($this->executerSQL($requete) === false) {
				$e = "La requête d'insertion du mot-clé racine a échoué.";
				$this->messages[] = $e;
			}
		}
	}

	private function verifierAbsence($mot_cle, $mot_cle_parent_id) {
		$absence = false;
		$mot_cle = Cel::db()->proteger($mot_cle);
		$mot_cle_parent_id = Cel::db()->proteger($mot_cle_parent_id);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
		$requete = 	'SELECT COUNT(*) AS nbre '.
			"FROM cel_mots_cles{$this->suffix} ".
			"WHERE mot_cle = $mot_cle ".
			"	AND id_utilisateur = $id_utilisateur ".
			"	AND ce_mot_cle_".(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'obs' : 'image')."_parent = $mot_cle_parent_id";

		$nbre = $this->recupererValeur($requete);
		if ($nbre === false) {
			$e = "La requête de vérification d'absence d'un mot-clé a échoué.";
			$this->messages[] = $e;
		} else if ($nbre == 0) {
			$absence = true;
		}
		return $absence;
	}

	private function getIdMotCle($mot_cle, $mot_cle_parent_id) {
		$mot_cle = Cel::db()->proteger($mot_cle);
		$mot_cle_parent_id = Cel::db()->proteger($mot_cle_parent_id);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
		$requete = 	'SELECT id_mot_cle_'.(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'obs' : 'image').' AS id '.
			"FROM cel_mots_cles{$this->suffix} ".
			"WHERE mot_cle = $mot_cle ".
			"	AND id_utilisateur = $id_utilisateur ".
			"	AND ce_mot_cle_".(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'obs' : 'image')."_parent = $mot_cle_parent_id";
		$resultat = $this->recupererResultat($requete);
		$mot_cle_id = ($resultat) ? $resultat['id'] : false;
		return $mot_cle_id;
	}

	private function compterMotsCles() {
		$nbre = 0;
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
		$requete = 	'SELECT COUNT(*) AS nbre '.
					"FROM cel_mots_cles{$this->suffix} ".
					"WHERE id_utilisateur = $id_utilisateur ";

		$nbre = $this->recupererValeur($requete);
		if ($nbre === false) {
			$e = "La requête de comptage du nombre de mots-clés a échoué.";
			$this->messages[] = $e;
		}
		return $nbre;
	}

	/**
	 * Désactive l'auto-commit puis débute la transaction
	 */
	private function commencerTransaction() {
		// Désactive l'autocommit le temps de la manipulation de l'arbre
		$requete = 'SET AUTOCOMMIT = 0 ';
		$reussite_autocommit = $this->executerSQL($requete);

		// Débute une nouvelle transaction
		$requete = 'BEGIN ';
		$reussite_begin = $this->executerSQL($requete);
	}

	/**
	 * Termine la transaction puis réactive l'auto-commit
	 */
	private function completerTransaction() {
		// Complète la transaction
		$requete = 'COMMIT ';
		$reussite_commit = $this->executerSQL($requete);

		// Réactive l'autocommit le temps de la manipulation de l'arbre
		$requete = 'SET AUTOCOMMIT = 1 ';
		$reussite_autocommit = $this->executerSQL($requete);

		return true;
	}

	/**
	 * Annule la transaction et réactive l'auto-commit
	 */
	private function annulerTransaction() {
		// Annule la transaction
		$requete = 'ROLLBACK ';
		$reussite_rollback = $this->executerSQL($requete);

		// Réactive l'autocommit le temps de la manipulation de l'arbre
		$requete = 'SET AUTOCOMMIT = 1 ';
		$reussite_autocommit = $this->executerSQL($requete);

		return false;
	}

	/**
	 * Renvoie les bornes d'un noeud de l'arbre des mots clés
	 */
	private function retrouverBornesEtNiveau($mot_cle_id) {
		$mot_cle_id = Cel::db()->proteger($mot_cle_id);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
		$requete = 	'SELECT bd, bg, niveau '.
					"FROM cel_mots_cles{$this->suffix} ".
					"WHERE id_mot_cle_".(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'obs' : 'image')." = $mot_cle_id ".
					"	AND id_utilisateur = $id_utilisateur ";

		$resultat = $this->recupererResultat($requete);
		return $resultat;
	}

	/**
	 * Décale les bornes de deux pour insérer un nouvel élément
	 */
	private function decalerBornesPlusDeux($valeur) {
		// Décalage borne droite
		$valeur = Cel::db()->proteger($valeur);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					'SET bd = bd + 2 '.
					"WHERE bd >= $valeur ".
					"	AND id_utilisateur = $id_utilisateur ";
		$reussi_1 = $this->executerSQL($requete);
		if (!$reussi_1) {
			$e = "Échec du décalage de la borne droite de +2 : $requete ";
			$this->messages[] = $e;
		}

		// Décalage borne gauche
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					'SET bg = bg + 2 '.
					"WHERE bg >= $valeur ".
					"	AND id_utilisateur = $id_utilisateur ";
		$reussi_2 = $this->executerSQL($requete);
		if (!$reussi_2) {
			$e = "Échec du décalage de la borne gauche de +2 : $requete";
			$this->messages[] = $e;
		}

		return ($reussi_1 && $reussi_2);
	}

	/**
	 * Décale les bornes d'un intervalle négatif donné (pour la suppression d'un sous arbre).
	 */
	private function decalerBornesMoinsIntervalle($bg, $bd) {
		$decalage = $bd - $bg + 1;
		$bg = Cel::db()->proteger($bg);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);

		// Décalage borne droite
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					"SET bd = cmc_bd - $decalage ".
					"WHERE bd >= $bg ".
					"	AND id_utilisateur = $id_utilisateur ";
		$reussi_1 = $this->executerSQL($requete);

		// Décalage borne gauche
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					"SET bg = bg - $decalage ".
					"WHERE bg > $bg ".
					"	AND id_utilisateur = $id_utilisateur ";
		$reussi_2 = $this->executerSQL($requete);

		return $reussi_1 && $reussi_2;
	}

	/**
	 * Décale à droite des bornes donées d'un intervalle positif donné (pour l'ajout d'un sous arbre).
	 */
	private function decalerBornesPlusIntervalle($valeur_bornes, $largeur) {
		$valeur_bornes = Cel::db()->proteger($valeur_bornes);
		$largeur = Cel::db()->proteger($largeur);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);

		// Décalage borne droite
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					"SET bd = bd + $largeur ".
					"WHERE bd >= $valeur_bornes ".
					"	AND id_utilisateur = $id_utilisateur ";
		$reussi_1 = $this->executerSQL($requete);

		// Décalage borne gauche
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					"SET bg = bg + $largeur ".
					"WHERE bg >= $valeur_bornes ".
					"	AND id_utilisateur = $id_utilisateur| ";
		$reussi_2 = $this->executerSQL($requete);

		return $reussi_1 && $reussi_2;
	}

	/**
	 * Inverse les bornes d'un intervalle pour l'exclure des modifications sur l'arbre sans changer la hiérarchie.
	 */
	private function exclureIntervalle($bg, $bd) {
		$bg = Cel::db()->proteger($bg);
		$bd = Cel::db()->proteger($bd);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					"SET bd = bd - $bd - 1 , ".
					"	bg =  bg - $bd - 1 ".
					"WHERE bd <= $bd ".
					"	AND bg >= $bg ".
					"	AND id_utilisateur = $id_utilisateur ";
		return $this->executerSQL($requete);
	}

	/**
	 * Recale les bornes dun intervalle pour l'inclure dans l'arbre à la bonne place.
	 * Décalage borne droite
	 */
	private function inclureIntervalle($bg, $bd, $largeur, $modif_niveau) {
		$bg = Cel::db()->proteger($bg);
		$bd = Cel::db()->proteger($bd);
		$largeur = Cel::db()->proteger($largeur);
		$modif_niveau = Cel::db()->proteger($modif_niveau);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					"SET bg =  bg + $largeur , ".
					"	bd = bd + $largeur, ".
					"	niveau = niveau + $modif_niveau ".
					"WHERE bg >=  $bg ".
					"	AND bd <=  $bd ".
					"	AND id_utilisateur = $id_utilisateur ";

		return $this->executerSQL($requete);
	}

	private function changerPere($mot_cle_id, $id_pere) {
		$mot_cle_id = Cel::db()->proteger($mot_cle_id);
		$id_pere = Cel::db()->proteger($id_pere);
		$id_utilisateur = Cel::db()->proteger($this->utilisateur_id);
		$requete = 	"UPDATE cel_mots_cles{$this->suffix} ".
					"SET ce_mot_cle_".(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'obs' : 'image')."_parent = $id_pere ".
					"WHERE id_mot_cle_".(($this->suffix == self::OBS_TABLE_SUFFIXE) ? 'obs' : 'image')." = $mot_cle_id ".
					"	AND id_utilisateur = $id_utilisateur ";

		return $this->executerSQL($requete);
	}

	private function executerSQL($requete) {
		$execution = Cel::db()->executer($requete);
		$execution = ($execution === false) ? false : true;
		return $execution;
	}

	private function recupererValeur($requete) {
		$resultat = Cel::db()->requeter($requete, Cel::SQL_RETOUR_COLONNE);
		return $resultat;
	}

	private function recupererResultat($requete) {
		$resultat = Cel::db()->requeter($requete, Cel::SQL_RETOUR_LIGNE, Cel::SQL_MODE_ASSOC);
		return $resultat;
	}

	private function recupererResultats($requete) {
		$resultat = Cel::db()->requeter($requete, Cel::SQL_RETOUR_COMPLET, Cel::SQL_MODE_ASSOC);
		return $resultat;
	}

	private function verifierLignesAffectees($requete) {
		$execution = Cel::db()->executer($requete);
		return $execution;
	}
}
?>