Subversion Repositories eFlore/Applications.cel

<?php

// declare(encoding='UTF-8');

/**

 * Service permettant d'insérer les informations fournie par le widget Saisie dans le CEL.

 *

 * Cas d'utilisation :

 * PUT /CelWidgetSaisie : ajout de données en les passant via $_POST

 *

 * @internal   Mininum PHP version : 5.2

 * @category   CEL

 * @package    Services

 * @subpackage Widget

 * @version    0.1

 * @author     Mathias CHOUET <mathias@tela-botanica.org>

 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>

 * @author     Aurelien 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>

 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>

 */

class CelWidgetSaisie extends Cel {

    private $projet = null;

    private $projetId = null;

    private $projetTags = array();

    private $tagsObs = null;

    private $tagsImg = null;

    private $userId = null;

    private $userEmail = null;

    private $userIntitule = null;

    private $isFromPlantNet = false;

    private $isSauvages = false;

    const DUREE_DE_VIE_IMG = 86400;// 3600 * 24 = 86 400 (1 journée)

    const ARRET_SERVICE = false;// Permet de bloquer le service en cas de problème sur le serveur

    private $correspondanceIdImgTags = array();

    private $gestionMotsClesObs = null;

    private $gestionMotsClesImages = null;

    public function createElement($requeteDonnees) {

        if (self::ARRET_SERVICE) {

            $this->messages[] = "Désactivation temporaire du service d'envoi des données au CEL.";

        } else if (array_key_exists('projet', $requeteDonnees)) {

            $this->debug[] = 'Projet : '.$requeteDonnees['projet'];

            if ($requeteDonnees['projet'] != "base") {

                $this->projet = $requeteDonnees['projet'] ?? null;

                $this->projetId = $requeteDonnees['id_projet'] ?? null;

            }

            // Si c'est une obs Pl@ntNet

            if (! empty($requeteDonnees['tag-obs']) && strpos(strtolower($requeteDonnees['tag-obs']), 'plantnet') !== false) {

                $this->isFromPlantNet = true;

            }

            // Si c'est une obs Pl@ntNet

            if (! empty($requeteDonnees['tag-obs']) && strpos(strtolower($requeteDonnees['tag-obs']), 'mobileSauvages') !== false) {

                $this->isSauvages = true;

            }

            // Traitements des tags multiples de projet

            $this->traiterProjetTags();

            // Traitement des tags spécifiques aux obs

            $this->traiterTagObs($requeteDonnees);

            // Traitement des tags spécifiques aux images

            $this->traiterTagImg($requeteDonnees);

            // Traitement des observations et des images

            if (isset($requeteDonnees['utilisateur']['courriel']) && filter_var($requeteDonnees['utilisateur']['courriel'], FILTER_VALIDATE_EMAIL)) {

                $this->debug[] = 'Utilisateur : '.print_r($requeteDonnees['utilisateur'], true);

                $utilisateur = $requeteDonnees['utilisateur'];

                // début transaction car si insertions par le même utilisateur en parallèle,

                // De plus, ça permet de ne pas conserver les données d'obs si l'image provoque une erreur

                //Cel::db()->setAttribute(PDO::ATTR_AUTOCOMMIT, false);

                Cel::db()->beginTransaction();

                $erreursDurantTraitement = false;

                $nomsOriginauxImagesTemp = array();

                // hop on récupère les infos de l'utilisateur

                $infosUtilisateur = $this->infosInscritTela($utilisateur['courriel']);

                if ($infosUtilisateur) {

                    $this->userId = $infosUtilisateur['id'];

                    $this->userIntitule = $infosUtilisateur['intitule'];

                } else {

                    $this->userId = 0;

                    $this->userIntitule = $utilisateur['prenom'] . ' ' . $utilisateur['nom'];

                }

                $this->userEmail = $utilisateur['courriel'];

                $this->debug[] = 'Courriel : ' . $this->userEmail;

                $requeteDonnees = $this->supprimerSlashesProfond($requeteDonnees);

                // Triage et manipulation des données

                $observations = array();

                foreach ($requeteDonnees as $cle => $obs) {

                    if (preg_match('/^obsId[0-9]+$/', $cle)) {

                        $this->debug[] = 'commune_nom : '.$obs['commune_nom'];

                        $this->debug[] = 'commune_code_insee : '. (isset($obs['commune_code_insee']) ? $obs['commune_code_insee'] : 'n/a');

                        $obsAAjouter = array();

                        $obsAAjouter['user_id'] = $this->userId;

                        $obsAAjouter['user_email'] = $this->userEmail;

                        $obsAAjouter['user_pseudo'] = $this->userIntitule;

                        $obsAAjouter['user_sci_name'] = isset($obs['nom_sel']) ? $obs['nom_sel'] : null;

                        $obsAAjouter['user_sci_name_id'] = isset($obs['num_nom_sel']) && '' !== $obs['num_nom_sel'] ? $obs['num_nom_sel'] : null;

                        $obsAAjouter['accepted_sci_name'] = isset($obs['nom_ret']) ? $obs['nom_ret'] : null;

                        $obsAAjouter['accepted_sci_name_id'] = isset($obs['num_nom_ret']) && '' !== $obs['num_nom_ret'] ? $obs['num_nom_ret'] : null;

                        $obsAAjouter['family'] = isset($obs['famille']) ? $obs['famille'] : null;

                        $obsAAjouter['taxo_repo'] = isset($obs['referentiel']) ? ($obs['referentiel'] == 'bdtfxr') ? 'bdtfx' : $obs['referentiel'] : null;

                        $obsAAjouter['date_observed'] = $this->transormerDateFrVersMysql($obs['date']);

                        $obsAAjouter['annotation'] = isset($obs['notes']) && trim($obs['notes']) !== "" ? $obs['notes'] : null;

                        // Pays est pour le moment sur un varchar(2) dans la base

                        // alors qu'il est envoyé complet par le script WidgetSaisie

                        $obsAAjouter['osm_country'] = (isset($obs['pays'])) ? $obs['pays'] : null;

                        $obsAAjouter['locality'] = $obs['commune_nom'];

                        $obsAAjouter['locality_insee_code'] = isset($obs['commune_code_insee']) ? $obs['commune_code_insee'] : '';

                        $obsAAjouter['sublocality'] = isset($obs['lieudit']) && trim($obs['lieudit']) !== "" ? $obs['lieudit'] : null;

                        $obsAAjouter['station'] = isset($obs['station']) && trim($obs['station']) !== "" ? $obs['station'] : null;

                        $obsAAjouter['environment'] = isset($obs['milieu']) && trim($obs['milieu']) !== "" ? $obs['milieu'] : null;

                        $obsAAjouter['elevation'] = (! empty($obs['altitude'])) ? $obs['altitude'] : null;

                        $obsAAjouter['geometry'] = $obs['geometry'] ?? json_encode([

                                'type' => 'Point',

                                'coordinates' => [ (float)$obs['longitude'], (float)$obs['latitude'] ]

                            ]); // CONCAT('{\"type\":\"Point\",\"coordinates\":[', longitude, ',', latitude,']}'),

                        $obsAAjouter['geodatum'] = 'WGS84';

                        $obsAAjouter['published_location'] = ($this->tagsObs != null && in_array('sensible', $this->tagsObs) == true) ?

                            "localité" : "précise";

                        $obsAAjouter['phenology'] = isset($obs['phenologie']) ? $obs['phenologie'] : null;

                        $obsAAjouter['coef'] = isset($obs['abondance']) ? $obs['abondance'] : null;

                        $obsAAjouter['is_public'] = '1';

                        $obsAAjouter['date_created'] = date('Y-m-d H:i:s');

                        $obsAAjouter['date_updated'] = $obsAAjouter['date_created'];

                        $obsAAjouter['date_published'] = $obsAAjouter['date_created'];

                        $obsAAjouter['image_nom'] = $obs['image_nom'] ?? null;

                        $obsAAjouter['image_b64'] = $obs['image_b64'] ?? null;

                        $obsAAjouter['certainty'] = null;

                        if (isset($obs['certitude'])) {

                            switch ($obs['certitude']) {

                                case 'certaine':

                                    $obsAAjouter['certainty'] = 'certain';

                                    break;

                                case 'douteuse':

                                    $obsAAjouter['certainty'] = 'douteux';

                                    break;

                                default:

                                    $obsAAjouter['certainty'] = $obs['certitude'];

                                    break;

                            }

                        }

                        $obsAAjouter['certainty'] = ($this->projet == "aDeterminer") ? 'à déterminer' : $obsAAjouter['certainty'];

                        $obsAAjouter['input_source'] = 'widget';

                        $obsAAjouter['project_id'] = $this->projetId;

                        // racommodage en attendant mieux

                        $obsAAjouter['project'] = ($this->projetId == null) ? null : ($this->projetId == 53) ? "missions-flore" : $this->projet ;

                        if ($this->isFromPlantNet) {

                            $obsAAjouter['input_source'] = 'PlantNet';

                            $obsAAjouter['plantnet_id'] = $obs['obs_id'];

                        }

                        if ($this->isSauvages) {

                            $obsAAjouter['input_source'] = 'autre';

                            $obsAAjouter['project'] = 'sauvages';

                        }

                        $obsAAjouter['obs_etendue'] = isset($obs['obs_etendue']) ? $obs['obs_etendue'] : array();

                        // Tentative d'enrichissement des données taxonomiques

                        // @TODO attention aux perfs, aux timeouts de WS etc.

                        $this->enrichirDonneesTaxonomiques($obsAAjouter);

                        $observations[] = $obsAAjouter;

                    }

                }

                $this->debug[] = 'Nbre obs ajoutée : '.count($observations);

                $this->debug[] = 'projet : '.$this->projet;

                $this->debug[] = 'tagsObs : '.print_r($this->tagsObs, true);

                $this->debug[] = 'tagsImg : '.print_r($this->tagsImg, true);

                // Insertion dans la base

                $obs_a_taguer_ids = array();

                $img_a_taguer_ids_noms = array();

                $champsEtendusObs = array();

                foreach ($observations as $obs) {

                    $fullObs = $obs;

                    unset($obs['obs_etendue']);

                    unset($obs['image_nom']);

                    unset($obs['image_b64']);

                    $obs = $this->protegerTableau($obs);

                    $champs = implode(', ', array_keys($obs));

                    $valeurs = implode(', ', $obs);

                    $requete = "INSERT INTO occurrence ($champs) VALUES ($valeurs) ";

                    if (Cel::db()->executer($requete) === false) {

                        $erreursDurantTraitement = true;

                        $this->messages[] = "Un problème est survenu lors de l'insertion de l'obs dans la base de données.";

                    }

                    // récupérer l'id de l'obs nouvellement insérée

                    $idNouvelleObs = Cel::db()->obtenirDernierId();

                    $obs_a_taguer_ids[] = $idNouvelleObs;

                    $champsEtendusObs[$idNouvelleObs] = $fullObs['obs_etendue'];

                    $imgAAjouter = null;

                    if (isset($fullObs['image_nom'])) {

                        $imgAAjouter = $this->traiterImagesALierAObs($idNouvelleObs, $fullObs);

                        foreach ($imgAAjouter as $uneImgAAjouter) {

                            $nomsOriginauxImagesTemp[] = $uneImgAAjouter['nom'];

                        }

                    }

                    // si le formulaire contient une image on la traite

                    if (!empty($imgAAjouter)) {

                        $this->nettoyerImagesUploades();

                        $img_a_taguer_ids_noms = $this->stockerImagesEtLierAObs($idNouvelleObs, $imgAAjouter);

                        if (empty($img_a_taguer_ids_noms)) {

                            $erreursDurantTraitement = true;

                            $this->messages[] = "Au moins une des images n'a pas pu être enregistrée.";

                        } else {

                            $cmd = sprintf($this->config['cel']['commande_script_images'],implode(',', array_keys($img_a_taguer_ids_noms)));

                            pclose(popen($cmd,"r"));

                        }

                    }

                }

                $this->gestionMotsClesObs = new GestionMotsClesChemin($this->config,'obs');

                $this->gestionMotsClesImages = new GestionMotsClesChemin($this->config,'images');

                $this->taguerObs($obs_a_taguer_ids);

                if (!empty($img_a_taguer_ids_noms)) {

                    $this->taguerImg(array_keys($img_a_taguer_ids_noms));

                }

                // Les champs taggés sont des champs supplémentaires stockés sous forme de clé => valeur

                $this->ajouterChampsEtendusObs($obs_a_taguer_ids, $champsEtendusObs);

                // Fin de la transaction - on considère que commit() et rollback() ne ratent jamais

                if ($erreursDurantTraitement === false) {

                    // Suppression des fichiers images temporaires

                    $this->nettoyerImagesUploades($nomsOriginauxImagesTemp);

                    Cel::db()->commit();

                } else {

                    // On annule l'écriture des images enregistrées sur le disque dur - la transaction

                    // se charge de les retirer de la base de données

                    if ($img_a_taguer_ids_noms !== false) {

                        foreach (array_keys($img_a_taguer_ids_noms) as $idImageASupprimer) {

                            $this->effacerImageDuDd($idImageASupprimer);

                        }

                    }

                    Cel::db()->rollBack();

                }

            } else {

                $this->messages[] = '[' . $requeteDonnees['utilisateur']['courriel'] . "] n'est pas une adresse email valide.";

            }

        } else {

            $this->messages[] = "Les informations concernant le projet coopératif n'ont pas été transmises.";

        }

        if (count($this->messages) > 0) {

            $this->debug[] = print_r($this->messages, true);

        }

        if (count($this->messages) > 0) {

            $msg = 'erreur';

            $idNouvelleObs = null;

        } else {

            $msg = 'ok';

        }

        // renvoi des infos d'images (id, nom) ordonnées, en plus des infos obs.

        $infosImages = array();

        if (! empty($img_a_taguer_ids_noms)) {

            foreach ($img_a_taguer_ids_noms as $id => $nom) {

                $infosImages[] = array(

                    'id' => $id,

                    'nom' => $nom

                );

            }

        }

        $retour = (object) array(

            'msg' => $msg,

            'id' => $idNouvelleObs,

            'images' => $infosImages

        );

        $this->envoyerJson($retour);

        exit;

    }

    /**

     * Retourne les infos du compte correspondant à $courriel

     * si présent dans l'annuaire Tela,

     * false sinon

     */

    protected function infosInscritTela($courriel) {

        if (empty($courriel)) {

            return false;

        }

        // interrogation de l'annuaire

        $url = sprintf($this->config['settings']['baseURLServicesAnnuaireTpl'], 'utilisateur/identite-par-courriel/' . $courriel);

        $retour = file_get_contents($url);

        if (! $retour) {

            return false;

        }

        try {

            $retour = json_decode($retour, true);

        } catch (Exception $e) {

            return false;

        }

        if (isset($retour['error'])) {

            return false;

        }

        // le service annuaire a retourné qqch de valide

        return array_shift($retour);

    }

    /**

     * Retourne true si les champs suivants sont présents dans le tableau :

     *  - obsId1[user_sci_name]

     *  - obsId1[latitude]' : obs.geoloc.lat || '',

    'obsId1[longitude]' : obs.geoloc.lon || '',

     *  mot-clé "pn:referentiel"

     */

    protected function estUneDonneeQualifiee($donnees) {

        // vérifier date et géoloc

        // lancer enrichirDonneesTaxonomiques et vérifier si ça a retrouvé un nn

    }

    /**

     * Si les données taxonomiques sont incomplètes dans $obs

     * (clefs 'nom_sel_nn', 'user_sci_name', 'taxo_repo', 'accepted_sci_name_id',

     * 'accepted_sci_name', 'family'), tente d'en récupérer un maximum à l'aide des

     * services eFlore, à condition que soient mentionnés au moins :

     *  - un nom de référentiel

     *  - un nom_sel_nn OU un user_sci_name

     */

    protected function enrichirDonneesTaxonomiques(&$obs) {

        // sans référentiel, on ne peut rien faire

        if (! empty($obs['taxo_repo'])) {

            // copies locales pour ne pas abimer les données d'entrée

            $nn = $obs['user_sci_name_id'];

            $ref = $obs['taxo_repo'];

            $ns = $obs['user_sci_name'];

            $nr = $obs['accepted_sci_name'];

            $nnr = $obs['accepted_sci_name_id'];

            $fam = $obs['family'];

            // si j'ai un nn, tentative de retrouver le nnr, le user_sci_name,

            // le accepted_sci_name et la famille, s'ils ne sont pas déjà présents (on

            // pourrait les écraser systématiquement mais l'appel au service

            // dégrade les perfs)

            if ((! empty($nn) && is_numeric($nn))

                // omission du test sur 'accepted_sci_name' car le service eFlore noms ne le retourne que sans auteur (pas bon)

                && (empty($ns) || empty($nnr) || empty($fam) /*|| empty($nr)*/)) {

                // go

                $this->enrichirDonneesTaxonomiquesParNN($ref, $nn, $obs);

            } else {

                // si j'ai un nom complet, avec un peu de bol il sera dans le référentiel

                if ((! empty($ns))

                    && (empty($nn) || empty($nnr) || empty($fam) /*|| empty($nr)*/)) {

                    // go

                    $this->enrichirDonneesTaxonomiquesParNS($ref, $ns, $obs);

                }

            } // sinon fuque

        }

    }

    /**

     * Enrichit le tableau $obs destiné à être inséré dans le BDD, en

     * interrogeant le service eFlore/noms par référentiel + nom scientifique

     * avec auteur

     */

    protected function enrichirDonneesTaxonomiquesParNS($ref, $ns, &$obs) {

        $url_nom = $this->config['eflore']['url_service_nom'];

        $url_nom = str_replace('{referentiel}', $ref, $url_nom);

        $url_nom .= '?recherche=etendue&ns.structure=au&masque=' . urlencode($ns);

        // un horrible @ car les erreurs de file_get_contents() ne sont pas try/catchables

        // @TODO mettre du cURL à l'occase

        $infos_nom = @file_get_contents($url_nom);

        if ($infos_nom != NULL) {

            try {

                $infos_nom = json_decode($infos_nom, true);

                if (count($infos_nom['resultat']) > 0) {

                    $nn_trouve = null;

                    $ret_trouve = false;

                    // on prend le nom avec auteur correspondant exactement;

                    // s'il y en a plusieurs on prend le premier qui est retenu

                    foreach($infos_nom['resultat'] as $n => $nom) {

                        if (! $ret_trouve) {

                            if ($nom['nom_sci_complet'] == $ns) {

                                if ($nn_trouve == null || $nom['retenu'] == 'true') {

                                    $nn_trouve = $n;

                                    $ret_trouve = ($nom['retenu'] == 'true');

                                }

                            }

                        }

                    }

                    if ($nn_trouve != null) {

                        // gagné !

                        $obs['user_sci_name_id'] = $nn_trouve;

                        // et maintenant on recolle ce qu'on peut à partir du nn

                        $this->enrichirDonneesTaxonomiquesParNN($ref, $nn_trouve, $obs);

                    }

                }

            } catch(Exception $e) {

                // échec silencieux

            }

        }

    }

    /**

     * Enrichit le tableau $obs destiné à être inséré dans le BDD, en

     * interrogeant le service eFlore/noms par référentiel + nn

     */

    protected function enrichirDonneesTaxonomiquesParNN($ref, $nn, &$obs) {

        $url_nom = $this->config['eflore']['url_service_nom'];

        $url_nom = str_replace('{referentiel}', $ref, $url_nom);

        $url_nom .= '/' . $nn;

        // un horrible @ car les erreurs de file_get_contents() ne sont pas try/catchables

        // @TODO mettre du cURL à l'occase

        $infos_nom = @file_get_contents($url_nom);

        if ($infos_nom != NULL) {

            try {

                $infos_nom = json_decode($infos_nom, true);

                // une fois qu'on a les infos, on écrase tout

                if ($infos_nom['nom_sci_complet'] != null) {

                    $obs['user_sci_name'] = $infos_nom['nom_sci_complet'];

                }

                if ($infos_nom['nom_retenu_complet'] != null) {

                    $obs['accepted_sci_name'] = $infos_nom['nom_retenu_complet'];

                }

                if ($infos_nom['nom_retenu.id'] != null) {

                    $obs['accepted_sci_name_id'] = $infos_nom['nom_retenu.id'];

                }

                // manque le accepted_sci_name retourné sans auteur (insatisfaisant)

                if ($infos_nom['famille'] != null) {

                    $obs['family'] = $infos_nom['famille'];

                }

            } catch(Exception $e) {

                // échec silencieux

            }

        }

    }

    private function traiterProjetTags() {

        if (strpos($this->projet, ',') === false) {

            $this->projetTags = array('Projets coopératifs>'.$this->projet);

        } else {

            $projetTagsTxt = explode(',', $this->projet);

            foreach ($projetTagsTxt as $tag) {

                $this->projetTags[] = 'Projets coopératifs>'.$tag;

            }

        }

    }

    private function traiterTagObs($requeteDonnees) {

        if (array_key_exists('tag-obs', $requeteDonnees) && $requeteDonnees['tag-obs'] != '') {

            $this->tagsObs = explode(',', $requeteDonnees['tag-obs']);

        }

        foreach ($this->projetTags as $tag) {

            $this->tagsObs[] = $tag;

        }

    }

    private function traiterTagImg($requeteDonnees) {

        if (array_key_exists('tag-img', $requeteDonnees) && $requeteDonnees['tag-img'] != '') {

            $this->tagsImg = explode(',', $requeteDonnees['tag-img']);

        }

        foreach ($this->projetTags as $tag) {

            $this->tagsImg[] = $tag;

        }

    }

    private function ajouterChampsEtendusObs($obs_ids, $obs_a_champs_etendus) {

        $champs_etendus_obs = array();

        $gestionChampsEtendus = new GestionChampsEtendus($this->config, 'obs');

        foreach ($obs_ids as $id_obs) {

            $champs = array_shift($obs_a_champs_etendus);

            if ($champs != null && is_array($champs)) {

                foreach ($champs as $infosChamp) {

                    $cle = isset($infosChamp['cle']) ? $infosChamp['cle'] : '';

                    $valeur = isset($infosChamp['valeur']) ? $infosChamp['valeur'] : '';

                    if (!empty($cle) && $valeur !== '') {

                        $champEtendu = new ObsEtendue();

                        $champEtendu->id = $id_obs;

                        $champEtendu->cle = $cle;

                        $champEtendu->valeur = $valeur;

                        $champs_etendus_obs[] = $champEtendu;

                    }

                }

            }

        }

        if(! $champs_etendus_obs) return TRUE;

        return $gestionChampsEtendus->ajouterParLots($champs_etendus_obs, $this->projet);

    }

    private function traiterImagesALierAObs($idObs, $obs) {

        $imgAAjouter = array();

        if (is_array($obs['image_nom'])) {

            foreach ($obs['image_nom'] as $index => $nom_image) {

                $image = array();

                $image['id_utilisateur'] = $this->userId;

                $image['id_obs'] = $idObs;

                $image['nom'] = $nom_image;

                // on suppose que les b64 des images sont envoyés dans le même ordre que leurs noms

                // TODO: indexer le tableau avec le nom des images

                $image['b64'] = (is_array($obs['image_b64']) && isset($obs['image_b64'][$index])) ? $obs['image_b64'][$index] : null;

                $this->debug[] = 'Contient B64 : '.(isset($obs['image_b64']) ? 'oui' : 'non');

                $imgAAjouter[] = $image;

            }

        } else {

            $image = array();

            $image['id_utilisateur'] = $this->userId;

            $image['id_obs'] = $idObs;

            $image['nom'] = $obs['image_nom'];

            $image['b64'] = $obs['image_b64'] ?? null;

            $this->debug[] = 'Contient B64 : '.(isset($obs['image_b64']) ? 'oui' : 'non');

            $imgAAjouter[] = $image;

        }

        return $imgAAjouter;

    }

    protected function stockerImagesEtLierAObs($id_obs, $img) {

        $img_a_taguer_ids_noms = array();

        foreach ($img as $image) {

            $image['nom'] = trim(rtrim($image['nom'], "'"), "'");

            $nomFichierImg = $this->traiterNomFichierImage($image['nom']);

            $cheminImage = $this->config['cel']['chemin_stockage_temp']."/$nomFichierImg";

            // Si l'image est transmise en base 64

            if (isset($image['b64'])) {

                $this->transformerBase64enFichier($cheminImage, $image['b64']);

            }

            $this->debug[] = 'Nom fichier img debut :'.$nomFichierImg;

            $idImg = $this->ajouterImageSurDdEtBdd($id_obs, $cheminImage, $nomFichierImg);

            if ($idImg !== false) {

                $img_a_taguer_ids_noms[$idImg] = $nomFichierImg;

                if (isset($image['tags'])) {

                    $this->correspondanceIdImgTags[$idImg] = $image['tags'];

                }

            } else {

                // L'image n'a pas pu être écrite.

                // On annule l'écriture des précédentes et on s'arrête là - la transaction

                // se chargera de les retirer de la base de données

                foreach (array_keys($img_a_taguer_ids_noms) as $idImageASupprimer) {

                    $this->effacerImageDuDd($idImageASupprimer);

                }

                $img_a_taguer_ids_noms = array();

                break;

            }

        }

        return $img_a_taguer_ids_noms;

    }

    private function supprimerSlashesProfond($valeur) {

        $valeur = is_array($valeur) ? array_map(array($this, 'supprimerSlashesProfond'), $valeur) : stripslashes($valeur);

        return $valeur;

    }

    /**

     * Transforme une date au format français (jj/mm/aaaa) dans un format Mysql (aaaa-mm-jj).

     * @param string $dateFr date au format français (jj/mm/aaaa)

     * @return string date au format Mysql (aaaa-mm-jj)

     */

    private function transormerDateFrVersMysql($dateFr) {

        $dateMysql = '0000-00-00';

        $morceauxDate = explode('/', $dateFr);

        if (count($morceauxDate) == 3) {

            $dateMysql = implode('-', array_reverse($morceauxDate));

        }

        return $dateMysql;

    }

    private function taguerObs($obs_a_taguer_ids) {

        if (count($obs_a_taguer_ids) > 0) {

            foreach ($this->tagsObs as $hierarchieTag) {

                $tagsALier = explode('>', $hierarchieTag);

                $liaisonOk = $this->lierObsAMotsCles($obs_a_taguer_ids, $tagsALier);

                if ($liaisonOk === false) {

                    $e = "Toutes les observations n'ont pas pu être liées aux mots-clés : $hierarchieTag";

                    $this->messages[] = $e;

                }

            }

        }

    }

    private function lierObsAMotsCles($observations_ids, $tags) {

        // pas de mots clés pour les non-inscrits

        if ($this->userId == null) {

            $this->userId = 0;

        }

        $chemin_parent = '/';

        $listeIdsTags = array();

        foreach ($tags as $tag) {

            $tag = $this->nettoyerTag($tag);

            if ($tag != '') {

                $id_mot_cle = $this->gestionMotsClesObs->insererParCheminSiInexistant($tag, $chemin_parent, $this->userId);

                if ($id_mot_cle !== false) {

                    $listeIdsTags[] = $id_mot_cle;

                    $chemin_parent .= $tag."/";

                }

            }

        }

        $liaison_ok = $this->gestionMotsClesObs->lierParTableaux($listeIdsTags, $observations_ids);

        return $liaison_ok;

    }

    private function taguerImg($img_a_taguer_ids) {

        if (count($img_a_taguer_ids) > 0) {

            $this->debug[] = "Tags img : ".print_r($this->tagsImg, true);

            foreach ($this->tagsImg as $hierarchieTag) {

                $tagsALier = explode('>', $hierarchieTag);

                $liaisonOk = $this->lierImgAMotsCles($img_a_taguer_ids, $tagsALier);

                if ($liaisonOk === false) {

                    $e = "Toutes les images n'ont pas pu être liées aux mots-clés : $hierarchieTag";

                    $this->messages[] = $e;

                }

            }

        }

        // Liaison des tags spécifiques à chaque image s'il y en a

        if (count($this->correspondanceIdImgTags) > 0) {

            foreach ($this->correspondanceIdImgTags as $id_img => $tags) {

                if ($tags != null && !empty($tags)) {

                    $this->lierImgAMotsCles(array($id_img), $tags);

                }

            }

        }

    }

    private function lierImgAMotsCles($images_ids, $tags) {

        // pas de mots clés pour les non-inscrits

        if ($this->userId == null) {

            $this->userId = 0;

        }

        $chemin_parent = "/";

        $listeIdsTags = array();

        foreach ($tags as $tag) {

            $tag = $this->nettoyerTag($tag);

            if ($tag != '') {

                $id_mot_cle = $this->gestionMotsClesImages->insererParCheminSiInexistant($tag, $chemin_parent, $this->userId);

                if ($id_mot_cle !== false) {

                    $listeIdsTags[] = $id_mot_cle;

                    $chemin_parent .= $tag."/";

                }

            }

        }

        $liaison_ok = $this->gestionMotsClesImages->lierParTableaux($listeIdsTags, $images_ids);

        return $liaison_ok;

    }

    private function nettoyerTag($tag) {

        $tag = trim($tag);

        $tag = preg_replace('/(?:\s+|[,]+)/', ' ', $tag);

        return $tag;

    }

    private function traiterNomFichierImage($fichierNom) {

        $fichierNom = preg_replace('/[.](jpeg|jpg)$/i', '.jpg', strtolower(trim($fichierNom)));

        return $fichierNom;

    }

    /**

     * Décode l'image en base64,enregistre celle-ci sous forme de fichier du type de l'image

     *  dans un dossier temporaire.

     */

    private function transformerBase64enFichier($cheminImage, $imageInfosB64) {

        // Enleve la partie data:image qui permet la previsalisation pour firefox de l'image en base64

        $imageBase64 = explode(';', $imageInfosB64);

        $dataBase64 = explode(',',$imageBase64[1]);

        $dataImg = base64_decode($dataBase64[1]);

        $imageRessource = fopen($cheminImage, 'wb');

        fwrite($imageRessource, $dataImg);

        fclose($imageRessource);

        if (file_exists($cheminImage) == false) {

            $this->messages[] = "Erreur lors de la création du fichier";

        }

    }

    /**

     * Supprime toutes les images temporaires dont :

     * - l'ancienneté est supérieure à DUREE_DE_VIE_IMG (si $nomsDeFichiers est vide, par défaut)

     * - le nom correspond à un des éléments du tableau $nomsDeFichiers (s'il est spécifié et non vide)

     */

    protected function nettoyerImagesUploades($nomsDeFichiers = array()) {

        $dossierStockage = $this->config['cel']['chemin_stockage_temp'].'/';

        if (is_dir($dossierStockage)) {

            $objets = scandir($dossierStockage);

            if (is_array($objets)) {

                foreach ($objets as $objet) {

                    $chemin = $dossierStockage . $objet;

                    if (is_file($chemin)) {

                        // critère de suppression

                        if (count($nomsDeFichiers) > 0) {

                            $suppression = in_array($objet, $nomsDeFichiers);

                        } else {

                            $filemtime = @filemtime($chemin);

                            if ($filemtime !== false) {

                                $suppression = (time() - $filemtime >= self::DUREE_DE_VIE_IMG) ? true : false;

                            }

                        }

                        // suppression

                        if ($suppression === true) {

                            unlink($chemin);

                        }

                    }

                }

            }

        }

    }

    /**

     * Ajoute une image dans la base de données et stocke le fichier en fabriquant les miniatures,

     * renvoie le nouvel id d'image en cas de succès

     *

     * @param string $id_obs l'id de l'obs

     * @param string $cheminImage le chemin vers le fichier original de l'image

     * @param string $nomFichierImage le nom du fichier original de l'image

     */

    public function ajouterImageSurDdEtBdd($id_obs, $cheminImage, $nomFichierImage) {

        $idImage = false;

        if (file_exists($cheminImage)) {

            $extracteurMetadonnees = new ExtracteurMetadonnees();

            $metadonnees = $extracteurMetadonnees->extraireMetadonnees($cheminImage);

            if ($metadonnees !== false) {

                $infosImage = array();

                $infosImage['date_shot'] = $metadonnees['date_shot'];

                $infosImage['size'] = $metadonnees['size'];

                $infosImage['occurrence_id'] = $id_obs;

                $infosImage['original_name'] = $nomFichierImage;

                $infosImage['user_id'] = $this->userId;

                $infosImage['user_email'] = $this->userEmail;

                $infosImage['user_pseudo'] = $this->userIntitule;

                $infosImage['content_url'] = $cheminImage;

                $infosImage['mime_type'] = mime_content_type($cheminImage);

                // $infosImage['md5'] = md5_file($cheminImage);

                $infosImage['date_created'] = 'NOW()';

                $infosImage['date_updated'] = 'NOW()';

                $infosImage['date_linked_to_occurrence'] = 'NOW()';

                $this->debug[] = 'Nom fichier img meta :'.$nomFichierImage;

                $requete = $this->construireRequeteInsertionImage($infosImage);

                $resultat = Cel::db()->executer($requete);

                if ($resultat !== false) {

                    $idImage = $this->traiterEtRecupererIdImage($nomFichierImage, $id_obs);

                    if ($idImage !== false) {

                        $infosImage['url'] = 'https://api.tela-botanica.org/img:'.str_pad($idImage, 9, '0', STR_PAD_LEFT).'O';

                        $manipulateurImage = new ImageRecreation($this->config);

                        // Stocke le fichier en conservant les fichiers temporaires, ce qui permet de réessayer

                        // de les traiter en cas d'échec de la totalité du processus de traitement de l'obs

                        $stockageOk = $manipulateurImage->stockerFichierOriginal($cheminImage, $idImage, true);

                        if ($stockageOk) {

                            $miniatureChemin = str_replace('.jpg', '_min.jpg', $cheminImage);

                            if (file_exists($miniatureChemin)) {

                                if (@unlink($miniatureChemin) === false) {

                                    $this->messages[] = "La miniature de l'image n'a pu être supprimée.";

                                }

                            }

                        } else {

                            $this->messages[] = "Une erreur s'est produite lors du stockage du fichier.";

                            // Remise à zéro d'idImage pour que l'erreur ne soit pas ignorée par l'appelant

                            $idImage = false;

                        }

                    } else {

                        $this->messages[] =  "Impossible d'obtenir le nouvel identifiant de l'image";

                    }

                } else {

                    $this->messages[] = "Echec de l'insertion dans la base de donnees des informations de l'image.";

                }

            } else {

                $this->messages[] = "Erreur lors de l'extraction des metadonnées.";

            }

        } else {

            $this->messages[] = "L'image originale est introuvable sur le serveur.";

        }

        return $idImage;

    }

    /**

     * Supprime une image du disque dur. Ne touche pas à la base de données, on considère

     * que c'est le rôle de la transaction d'annuler les écritures en cas de problème

     *

     * @param Integer $idImageASupprimer

     * @return boolean $ok true si la suppression s'est bien passée, false s'il reste au moins un fichier

     */

    protected function effacerImageDuDd($idImageASupprimer) {

        $manipulateurImage = new ImageRecreation($this->config);

        $ok = $manipulateurImage->detruireImageSurDisque($idImageASupprimer);

        return $ok;

    }

    private function traiterEtRecupererIdImage($original_name, $id_obs) {

        $original_name = Cel::db()->proteger($original_name);

        $id_obs = Cel::db()->proteger($id_obs);

        $requete = 'SELECT id '.

            'FROM photo '.

            "WHERE occurrence_id = ".$id_obs.

            "	AND original_name = $original_name ";

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

        $id_image = $resultat[0]['id'] ?? false;

        if ($id_image) {

            $full_id_image = str_pad($id_image, 9, '0', STR_PAD_LEFT) . 'O';

            $image_url = sprintf($this->config['settings']['celImgUrlTpl'], $full_id_image);

            $requete = 'UPDATE photo'

                . ' SET url = ' . Cel::db()->proteger($image_url)

                . ' WHERE id = ' . Cel::db()->proteger($id_image);

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

        }

        return $id_image;

    }

    private function construireRequeteInsertionImage($informations) {

        $champs = array();

        $valeurs = array();

        foreach ($informations as $champ => $valeur) {

            $champs[] = $champ;

            if (is_null($valeur)) {

                $valeurs[$champ] = 'NULL';

            } else if ($valeur === 'NOW()') {

                $valeurs[$champ] = $valeur;

            } else {

                $valeurs[$champ] = Cel::db()->proteger($valeur);

            }

        }

        $champsConcat = implode(', ', $champs);

        $valeursConcat = implode(', ', $valeurs);

        $requete = "INSERT INTO photo ($champsConcat) VALUES ($valeursConcat) ".

            ' -- '.__FILE__.':'.__LINE__;

        return $requete;

    }

}