Subversion Repositories eFlore/Applications.cel

Rev

Rev 2026 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

<?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;
        }
}

?>