Subversion Repositories eFlore/Applications.cel

<?php

/**

* @package   jrest

* @author    Aurélien Peronnet <aurelien@tela-botania.org>

* @copyright 2010, 2013 Tela-Botanica

* @license   http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL

*

* Librairie de liaison d'images et d'observation à des mots clés en utilisant la méthode

* path enumeration

*/

class GestionMotsClesChemin {

	private $config;

	private $mode;

	private $table_liaison;

	private $table_mots_cles;

	private $champ_id_element_lie;

	public function GestionMotsClesChemin($config, $mode = 'obs') {

		$this->config = $config;

		//TODO: switch suivant mode

		$this->mode = $mode;

		if($mode == 'obs') {

			$this->table_liaison = 'cel_obs_tags_path_liaison';

			$this->table_mots_cles = 'cel_obs_tags_path';

			$this->champ_id_element_lie = 'id_obs';

		} else {

			$this->table_liaison = 'cel_images_tags_path_liaison';

			$this->table_mots_cles = 'cel_images_tags_path';

			$this->champ_id_element_lie = 'id_image';

		}

	}

	public function viderTables() {

		$requete = "TRUNCATE ".$this->table_mots_cles." ";

		$vidage = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);

		$requete = "TRUNCATE ".$this->table_liaison." ";

		$vidage = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);

		return $vidage;

	}

	public function construireRequeteOr($mots_cles) {

		return $this->construireRequete($mots_cles, 'OR');

	}

	public function construireRequeteCheminOr($mots_cles) {

		return $this->construireRequeteChemin($mots_cles, 'OR');

	}

	public function construireRequeteAnd($mots_cles) {

		return $this->construireRequete($mots_cles, 'AND');

	}

	public function construireRequeteCheminAnd($mots_cles) {

		return $this->construireRequeteChemin($mots_cles, 'AND');

	}

	public function construireRequete($mots_cles, $operateur = 'AND') {

		$requete = "SELECT * FROM cel_images_tags_path_liaison ";

		$criteres = array();

		$premier = array_pop($mots_cles);

		$requete .= 'WHERE (tag = '.Cel::db()->proteger($premier).' ';

		foreach ($mots_cles as $mot_cle) {

			$requete .= " ".$operateur." id_image IN (SELECT id_image ".

										"FROM cel_images_tags_path_liaison ".

										"WHERE tag = ".Cel::db()->proteger($mot_cle)." ".

										") ";

		}

		$requete .= ")";

		$images = Cel::db()->requeter($requete);

		return $images;

	}

	private function construireRequeteChemin($mots_cles, $operateur = 'AND') {

		$requete = "SELECT * FROM cel_images_tags_path_liaison ";

		$criteres = array();

		$premier = array_pop($mots_cles);

		$requete .= 'WHERE (chemin LIKE '.Cel::db()->proteger('%/'.$premier.'/%').' ';

		foreach ($mots_cles as $mot_cle) {

			$requete .= " ".$operateur." id_image IN (SELECT id_image ".

												"FROM cel_images_tags_path_liaison ".

												"WHERE chemin LIKE ".Cel::db()->proteger('%/'.$mot_cle.'/%')." ".

												") ";

		}

		$requete .= ")";

		$images = Cel::db()->requeter($requete);

		return $images;

	}

	private function obtenirMotsClesOriginaux($mode) {

		if($mode == 'obs') {

			$requete_arbre = "SELECT id_mot_cle_obs as id_mot_cle, ce_mot_cle_obs_parent as parent, id_utilisateur, mot_cle ".

							"FROM cel_mots_cles_obs_srv ORDER BY id_utilisateur, niveau";

		} else {

			$requete_arbre = "SELECT id_mot_cle_image as id_mot_cle, ce_mot_cle_image_parent as parent, id_utilisateur, mot_cle ".

							"FROM cel_mots_cles_images_srv ORDER BY id_utilisateur, niveau";

		}

		$mots_cles = Cel::db()->requeter($requete_arbre);

		$mots_cles_hierarchiques = array();

		$correspondances_id_mots_cles_obs = array();

		$rien = 0;

		foreach($mots_cles as &$mot) {

			if(!empty($mot['mot_cle'])) {

				$chemin = '/';

				$cle_parent = $mot['parent'].'-'.$mot['id_utilisateur'];

				if(isset($mots_cles_hierarchiques[$cle_parent])) {

					$chemin = $mots_cles_hierarchiques[$cle_parent]['chemin'];

				}

				$chemin .= self::simplifier($mot['mot_cle']).'/';

				$chemin = str_replace("//", "/", $chemin);

				$cle = $mot['id_mot_cle'].'-'.$mot['id_utilisateur'];

				$mots_cles_hierarchiques[$cle] = array(

								'id_utilisateur' => $mot['id_utilisateur'],

								'chemin' => $chemin,

								'tag' => $mot['mot_cle']

				);

			}

		}

		return $mots_cles_hierarchiques;

	}

	private function obtenirLiaisonsMotsClesOriginaux($mode) {

		if($mode == 'obs') {

			$requete_liaisons = "SELECT comc.id_observation as id_element_lie, comc.id_mot_cle_obs as id_mot_cle, id_utilisateur as id_utilisateur ".

														"FROM cel_obs_mots_cles_srv comc ";

														//"INNER JOIN cel_obs o ON o.id_observation = comc.id_observation ";

		} else {

			$requete_liaisons = "SELECT comc.id_image as id_element_lie, comc.id_mot_cle_image as id_mot_cle, id_utilisateur as id_utilisateur ".

																	"FROM cel_images_mots_cles_srv comc ";

																	//"INNER JOIN cel_images o ON o.id_image = comc.id_image ";

		}

		$liaisons = Cel::db()->requeter($requete_liaisons);

		return $liaisons;

	}

	public function convertirNestedSetVersPathEnum() {

		$mots_cles_hierarchiques = $this->obtenirMotsClesOriginaux($this->mode);

		$liaisons = $this->obtenirLiaisonsMotsClesOriginaux($this->mode);

		/*foreach($mots_cles_hierarchiques as $mot) {

			echo $mot['chemin'].'<br />';

		}*/

		//echo '<pre>'.print_r($liaisons,true).'</pre>';

		//exit;

		$time_start = microtime();

		$mots_cles_slice = array_chunk($mots_cles_hierarchiques, 800, true);

		foreach($mots_cles_slice as $mots_cles_tranche) {

			$requete_insertion_mots_cles = "INSERT INTO ".$this->table_mots_cles." (chemin, id_utilisateur, tag) ".

			                     			" VALUES ";

			foreach($mots_cles_tranche as $cle => $mot_cle_tranche) {

				$requete_insertion_mots_cles .= "(".

					cel::db()->proteger($mot_cle_tranche['chemin']).", ".

					cel::db()->proteger($mot_cle_tranche['id_utilisateur']).", ".

					cel::db()->proteger($mot_cle_tranche['tag'])." ".

				"), ";

			}

			$requete_insertion_mots_cles = rtrim($requete_insertion_mots_cles, ", ");

			cel::db()->executer($requete_insertion_mots_cles);

		}

		$gne = 0;

		$liaisons_slice = array_chunk($liaisons, 800, true);

		foreach($liaisons_slice as &$liaison_tranche) {

			$requete_insertion_liaisons = "INSERT INTO ".$this->table_liaison." (".$this->champ_id_element_lie.", chemin, tag, id_utilisateur) ".

									      " VALUES ";

			$lier = false;

			foreach($liaison_tranche as &$liaison_obs_mot_cle) {

				$cle = $liaison_obs_mot_cle['id_mot_cle'].'-'.$liaison_obs_mot_cle['id_utilisateur'];

				if(isset($mots_cles_hierarchiques[$cle])) {

					$requete_insertion_liaisons .= "(".

						cel::db()->proteger($liaison_obs_mot_cle['id_element_lie']).", ".

						cel::db()->proteger($mots_cles_hierarchiques[$cle]['chemin']).", ".

						cel::db()->proteger($mots_cles_hierarchiques[$cle]['tag']).", ".

						cel::db()->proteger($liaison_obs_mot_cle['id_utilisateur'])." ".

					"), ";

					$lier = true;

				}

			}

			if($lier) {

				$requete_insertion_liaisons = rtrim($requete_insertion_liaisons, ", ");

				cel::db()->executer($requete_insertion_liaisons);

			}

		}

		$time = microtime() - $time_start;

		echo "La génération d'un tableau de ".count($mots_cles_hierarchiques).' éléments et de '.count($liaisons).' liaisons a pris '.$time.' secondes';

		exit;

	}

	public function obtenirArbre($id_utilisateur, $chemin = "/") {

		$requete = "SELECT * FROM ".$this->table_mots_cles." ".

		"WHERE id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." AND ".

		"chemin LIKE ".Cel::db()->proteger($chemin."%")." ".

		"ORDER BY chemin";

		$arbre = Cel::db()->requeter($requete.' -- '.__FILE__.':'.__LINE__);

		usort($arbre, array('GestionMotsClesChemin', 'comparerProfNoeuds'));

		return $arbre;

	}

	public function insererParChemin($mot_cle, $chemin_parent, $id_utilisateur) {

		$chemin_mot_cle = self::getCheminHarmonise($chemin_parent, $mot_cle);

		$requete = "INSERT INTO ".$this->table_mots_cles." (chemin, id_utilisateur, tag) ".

		           "VALUES (".

		           		Cel::db()->proteger($chemin_mot_cle).", ".

						Cel::db()->proteger($id_utilisateur).", ".

						Cel::db()->proteger($mot_cle)." ".

		           ")";

		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);

		return $insertion;

	}

	public function insererParIdParent($mot_cle, $id_parent, $id_utilisateur) {

		$mot_cle_simp = self::simplifier($mot_cle);

		$sous_requete_chemin = "(SELECT chemin FROM ".$this->table_mots_cles." ".

		                       "WHERE id_tag = ".Cel::db()->proteger($id_parent).")";

		$requete = "INSERT INTO ".$this->table_mots_cles."(chemin, id_utilisateur, tag) ".

		           "VALUES (".

						"CONCAT(".$sous_requete_chemin.",".Cel::db()->proteger($mot_cle_simp).",'/') ".

						Cel::db()->proteger($id_utilisateur).", ".

						Cel::db()->proteger($tag).", ".

		           ")";

		$insertion = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);

		return $insertion;

	}

	public function lierParId($id_mot_cle, $id_observation, $id_utilisateur) {

		$sous_requete_chemin = "(SELECT chemin FROM ".$this->table_mots_cles." ".

				   		"WHERE id_tag = ".Cel::db()->proteger($id_mot_cle).") ";

		$requete = "INSERT INTO ".$this->table_liaison." (".$this->champ_id_element_lie.", chemin, id_utilisateur) ".

					"VALUES (".

				   		Cel::db()->proteger($id_observation).", ".

				   		$sous_requete_chemin.",".

				   		Cel::db()->proteger($id_utilisateur)." ".

				   	") ".

					"ON DUPLICATE KEY UPDATE ".$this->champ_id_element_lie." = ".$this->champ_id_element_lie." ";

		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);

		return $liaison;

	}

	public function lierParChemin($chemin, $id_observation, $id_utilisateur) {

		$requete = "INSERT INTO ".$this->table_liaison." (id_obs, chemin, id_utilisateur) ".

					"VALUES (".

						Cel::db()->proteger($id_observation).", ".

						Cel::db()->proteger($sous_requete_chemin).", ".

						Cel::db()->proteger($id_utilisateur)." ".

				   	") ".

					"ON DUPLICATE KEY UPDATE ".$this->champ_id_element_lie." = ".$this->champ_id_element_lie." ";

		$liaison = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);

		return $liaison;

	}

	// Déplacer un mot clé et le renommer est une même opération, dans le cas du renommage,

	// seule la fin du chemin change

	public function renommerChemin($ancien_chemin, $nouveau_chemin, $id_utilisateur) {

		$ancien_chemin = self::harmoniserChemin($ancien_chemin);

		$nouveau_chemin = self::harmoniserChemin($nouveau_chemin);

		$ancien_chemin_p = Cel::db()->proteger($ancien_chemin);

		$nouveau_chemin_p = Cel::db()->proteger($nouveau_chemin);

		// TODO : triggers pour les tables liées ?

		$requete = "UPDATE ".$this->table_mots_cles." ".

		       	   "SET chemin = REPLACE(chemin,".$ancien_chemin_p.", ".$nouveau_chemin_p.") ".

				   "WHERE chemin LIKE ".Cel::db()->proteger($ancien_chemin."%")." AND ".

		           "id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." ";

		echo $requete.'<br />';

		$deplacement = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);

		return $deplacement;

	}

	public function supprimerChemin($chemin, $id_utilisateur) {

		// TODO : triggers pour les tables liées ?

		$requete = "DELETE FROM ".$this->$table_mots_cles." ".

                   	"WHERE chemin LIKE ".Cel::db()->proteger($chemin."%")." AND ".

                   	"id_utilisateur = ".Cel::db()->proteger($id_utilisateur)." ";

		$suppression = Cel::db()->executer($requete.' -- '.__FILE__.':'.__LINE__);

		return $suppression;

	}

	// Fonctions utilitaires

	static public function comparerProfNoeuds($a, $b) {

		$nb_slashs_a = substr_count($a['chemin'], '/');

		$nb_slashs_b = substr_count($a['chemin'], '/');

		$cmp = 0;

		if($nb_slashs_a == $nb_slashs_b) {

			$cmp = strcmp($a['chemin'], $b['chemin']);

		} else {

			$cmp = ($a['chemin'] > $b['chemin']) ? +1 : -1;

		}

		return $cmp;

	}

	/*

		CREATE TRIGGER maj_chemin BEFORE UPDATE

		ON cel_obs_tag_path FOR EACH ROW

		BEGIN

			UPDATE cel_obs_tag_path_liaison

			SET cel_obs_tag_path_liaison.chemin = NEW.CHEMIN

			WHERE cel_obs_tag_path_liaison.chemin LIKE CONCAT(OLD.chemin,'%')

			AND cel_obs_tag_path_liaison.id_utilisateur = OLD.id_utilisateur

		END;

		CREATE TRIGGER suppr_chemin BEFORE UPDATE

		ON cel_obs_tag_path FOR EACH ROW

		BEGIN

			DELETE FROM cel_obs_tag_path_liaison

			WHERE cel_obs_tag_path_liaison.chemin LIKE CONCAT(OLD.chemin,'%')

			AND cel_obs_tag_path_liaison.id_utilisateur = OLD.id_utilisateur

		END;

		CREATE TRIGGER suppr_obs BEFORE DELETE

		ON cel_obs FOR EACH ROW

		BEGIN

			DELETE FROM cel_obs_tag_path_liaison

			WHERE cel_obs_tag_path_liaison.id_obs = OLD.id_observation

		END;

	*/

	static public function getCheminHarmonise($chemin_parent, $mot_cle) {

		return self::harmoniserChemin($chemin_parent.'/'.self::simplifier($mot_cle).'/');

	}

	static public function harmoniserChemin($chemin) {

		$chemin = self::startsWith($chemin,'/') ? $chemin : '/'.$chemin;

		$chemin = self::endsWith($chemin,'/') ? $chemin : $chemin.'/';

		return str_replace('//', '/', $chemin);

	}

	// fonction de slugification du mot clé

	// http://stackoverflow.com/questions/2955251/php-function-to-make-slug-url-string

	static public function simplifier($text)

	{

		return trim(str_replace(array('\\','/'), '', $text));

		// replace non letter or digits by -

		$text = preg_replace('~[^\\pL\d]+~u', '-', $text);

		// trim

		$text = trim($text, '-');

		// transliterate

		$text = iconv('utf-8', 'us-ascii//TRANSLIT', $text);

		// lowercase

		$text = strtolower($text);

		// remove unwanted characters

		$text = preg_replace('~[^-\w]+~', '', $text);

		if (empty($text))

		{

			return 'n-a';

		}

		return $text;

	}

	static public function startsWith($haystack, $needle) {

		return $needle === "" || strpos($haystack, $needle) === 0;

	}

	static public function endsWith($haystack, $needle) {

		return $needle === "" || substr($haystack, -strlen($needle)) === $needle;

	}

}

?>