Rev 3119 | Rev 3423 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?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 $projetTags = array();private $tagsObs = null;private $tagsImg = null;private $champsEtendusObs = null;private $utilisateur_id = null;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 serveurprivate $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'];$this->projet = $requeteDonnees['projet'];// Si c'estune obs Pl@ntNet, la garde-t-on ou non ?if (! empty($requeteDonnees['tag-obs']) && strpos(strtolower($requeteDonnees['tag-obs']), 'plantnet') !== false) {// 1) l'email est-il dans notre annuaire ?$inscritATela = $this->estInscritATela($requeteDonnees['utilisateur']['courriel']);// 2) y a-t-il date, lieu, détermination, référentiel ? (à voir plus tard)// $donneeQualifiee = $this->estUneDonneeQualifiee($requeteDonnees);// @WARNING : ne pas relancer enrichirDonneesTaxonomiques() !$donneeQualifiee = false; // debugif (! $inscritATela && ! $donneeQualifiee) {// fake ID$retour = (object) array('msg' => "observation Pl@ntNet non sauvegardée",'id' => "fake-" . uniqid(),'images' => array());$this->envoyerJson($retour);exit; // envoyerJson() ne termine pas le script !} // sinon traitement normal}// 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 imagesif (filter_var($requeteDonnees['utilisateur']['courriel'], FILTER_VALIDATE_EMAIL)) {$this->debug[] = 'Utilisateur : '.print_r($requeteDonnees['utilisateur'], true);$utilisateur = $requeteDonnees['utilisateur'];if (array_key_exists('courriel', $utilisateur)) {// début transaction car si insertions par le même utilisateur en parallèle,// le getMaxOrdre et le INSERT sont en concurrence et risquent de foirer.// 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();$this->debug[] = 'Courriel : '.$utilisateur['courriel'];$utilisateur = $this->affecterChampsManquantsUtilisateur($utilisateur);extract($utilisateur); // @TODO pendre le paltoquet qui a écrit ça !!!// $id_utilisateur vient du extract() de $utilisateur['id_utilisateur']$this->utilisateur_id = $id_utilisateur;$ordre = $this->getMaxOrdre($id_utilisateur);if (!is_null($ordre)) {$requeteDonnees = $this->supprimerSlashesProfond($requeteDonnees);// Triage et manipulation des données$observations = array();foreach ($requeteDonnees as $cle => $obs) {if (preg_match('/^obsId[0-9]+$/', $cle)) {$ordreObs = $ordre++;$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['ce_utilisateur'] = $id_utilisateur;$obsAAjouter['courriel_utilisateur'] = $courriel;$obsAAjouter['prenom_utilisateur'] = $prenom;$obsAAjouter['nom_utilisateur'] = $nom;$obsAAjouter['ordre'] = $ordreObs;$obsAAjouter['nom_sel'] = isset($obs['nom_sel']) ? $obs['nom_sel'] : null;$obsAAjouter['nom_sel_nn'] = isset($obs['num_nom_sel']) ? $obs['num_nom_sel'] : null;$obsAAjouter['nom_ret'] = isset($obs['nom_ret']) ? $obs['nom_ret'] : null;$obsAAjouter['nom_ret_nn'] = isset($obs['num_nom_ret']) ? $obs['num_nom_ret'] : null;$obsAAjouter['nt'] = isset($obs['num_taxon']) ? $obs['num_taxon'] : null;$obsAAjouter['famille'] = isset($obs['famille']) ? $obs['famille'] : null;$obsAAjouter['nom_referentiel'] = isset($obs['referentiel']) ? ($obs['referentiel'] == 'bdtfxr') ? 'bdtfx' : $obs['referentiel'] : null;$obsAAjouter['date_observation'] = $this->transormerDateFrVersMysql($obs['date']);$obsAAjouter['commentaire'] = isset($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['pays'] = $obs['pays'];$obsAAjouter['zone_geo'] = $obs['commune_nom'];$obsAAjouter['ce_zone_geo'] = 'INSEE-C:'. (isset($obs['commune_code_insee']) ? $obs['commune_code_insee'] : '');$obsAAjouter['lieudit'] = isset($obs['lieudit']) ? $obs['lieudit'] : null;$obsAAjouter['station'] = isset($obs['station']) ? $obs['station'] : null;$obsAAjouter['milieu'] = isset($obs['milieu']) ? $obs['milieu'] : null;$obsAAjouter['altitude'] = (! empty($obs['altitude'])) ? $obs['altitude'] : null;$obsAAjouter['latitude'] = $obs['latitude'];$obsAAjouter['longitude'] = $obs['longitude'];$obsAAjouter['geodatum'] = 'WGS84';$obsAAjouter['certitude'] = isset($obs['certitude']) ? $obs['certitude'] : null;$obsAAjouter['phenologie'] = isset($obs['phenologie']) ? $obs['phenologie'] : null;$obsAAjouter['abondance'] = isset($obs['abondance']) ? $obs['abondance'] : null;$obsAAjouter['transmission'] = '1';$obsAAjouter['date_creation'] = date('Y-m-d H:i:s');$obsAAjouter['date_modification'] = $obsAAjouter['date_creation'];$obsAAjouter['date_transmission'] = $obsAAjouter['date_creation'];$this->champsEtendusObs[$ordreObs] = isset($obs['obs_etendue']) ? $obs['obs_etendue'] : array();$imgAAjouter = null;if (!empty($obs['image_nom'])) {$imgAAjouter = $this->traiterImagesALierAObs($id_utilisateur, $ordreObs, $obs);if ($imgAAjouter != null) {foreach ($imgAAjouter as $uneImgAAjouter) {$nomsOriginauxImagesTemp[] = $uneImgAAjouter['nom'];}}}if(!trim($courriel) && !trim($id_utilisateur)) {// XXX: debugfile_put_contents("/tmp/debug-cel-" . time(),$_POST . "\n=\n" . $requeteDonnees . "\n=\n" . var_export($obsAAjouter, true) ."\n=\n", $_SERVER);}// Tentative d'enrichissement des données taxonomiques// @TODO attention aux perfs, aux timeouts de WS etc.$this->enrichirDonneesTaxonomiques($obsAAjouter);$observations[$ordreObs] = array('obs' => $this->protegerTableau($obsAAjouter),'img' => $imgAAjouter);}}$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_ordres = array();$img_a_taguer_ids_noms = array();foreach ($observations as $infos) {$obs = $infos['obs'];$img = $infos['img'];$champs = implode(', ', array_keys($obs));$valeurs = implode(', ', $obs);$requete = "INSERT INTO cel_obs ($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.";} else {$obs_a_taguer_ordres[] = trim($obs['ordre'], "'");}// récupérer l'id de l'obs nouvellement insérée$idNouvelleObs = Cel::db()->obtenirDernierId();// si le formulaire contient une image on la traiteif ($img != null) {$this->nettoyerImagesUploades();$img_a_taguer_ids_noms = $this->stockerImagesEtLierAObs($idNouvelleObs, $img, $utilisateur);if ($img_a_taguer_ids_noms === false) {$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');$obs_a_taguer_ids = $this->obtenirIdsObsPourTableauOrdres($this->utilisateur_id, $obs_a_taguer_ordres);$this->taguerObs($obs_a_taguer_ids);if ($img_a_taguer_ids_noms !== false) {$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, $this->champsEtendusObs);} else {$erreursDurantTraitement = true;$this->messages[] = "Un nouveau numéro d'ordre d'observation n'a pu être généré.";}// Fin de la transaction - on considère que commit() et rollback() ne ratent jamaisif ($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éesif ($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[] = "L'identifiant de l'utilisateur (courriel) n'a pas été transmis.";}} 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 true si le courriel $courriel est présent dans l'annuaire Tela,* false sinon*/protected function estInscritATela($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;}// le service annuaire a retourné qqch de validereturn (! empty($retour));}/*** Retourne true si les champs suivants sont présents dans le tableau :* - obsId1[nom_sel]* - 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', 'nom_sel', 'nom_referentiel', 'nom_ret_nn',* 'nom_ret', 'famille'), 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 nom_sel*/protected function enrichirDonneesTaxonomiques(&$obs) {// sans référentiel, on ne peut rien faireif (! empty($obs['nom_referentiel'])) {// copies locales pour ne pas abimer les données d'entrée$nn = $obs['nom_sel_nn'];$ref = $obs['nom_referentiel'];$ns = $obs['nom_sel'];$nr = $obs['nom_ret'];$nnr = $obs['nom_ret_nn'];$fam = $obs['famille'];$nt = $obs['nt'];// si j'ai un nn, tentative de retrouver le nnr, le nom_sel,// le nom_ret 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 'nom_ret' car le service eFlore noms ne le retourne que sans auteur (pas bon)&& (empty($ns) || empty($nnr) || empty($nt) || 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érentielif ((! empty($ns))&& (empty($nn) || empty($nnr) || empty($nt) || 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 retenuforeach($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['nom_sel_nn'] = $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 toutif ($infos_nom['nom_complet'] != null) {$obs['nom_sel'] = $infos_nom['nom_complet'];}if ($infos_nom['nom_retenu.id'] != null) {$obs['nom_ret_nn'] = $infos_nom['nom_retenu.id'];}if ($infos_nom['num_taxonomique'] != null) {$obs['nt'] = $infos_nom['num_taxonomique'];}// manque le nom_ret retourné sans auteur (insatisfaisant)if ($infos_nom['famille'] != null) {$obs['famille'] = $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 ChampEtendu();$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);}private function traiterImagesALierAObs($id_utilisateur, $ordreObs, $obs) {$imgAAjouter = null;if (is_array($obs['image_nom'])) {$imgAAjouter = array();foreach ($obs['image_nom'] as $index => $nom_image) {$image = array();$image['id_utilisateur'] = $id_utilisateur;$image['id_obs'] = $ordreObs;$image['nom'] = $nom_image;$image['tags'] = isset($obs['image_tag'][$index]) ? explode(',',$obs['image_tag'][$index]) : '';// 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'] = isset($obs['image_b64'][$index]) ? $obs['image_b64'][$index] : '';$this->debug[] = 'Contient B64 : '.(empty($obs['image_b64']) ? 'non' : 'oui');$imgAAjouter[] = $image;}} else {if (!empty($obs['image_nom'])) {$imgAAjouter = array();$imgAAjouter['id_utilisateur'] = $id_utilisateur;$imgAAjouter['id_obs'] = $ordreObs;$imgAAjouter['nom'] = $obs['image_nom'];//$imgAAjouter['tags'] = isset($obs['image_tag']) ? explode(',',$obs['image_tag']) : '';$imgAAjouter['b64'] = isset($obs['image_b64']) ? $obs['image_b64'] : array();$this->debug[] = 'Contient B64 : '.(empty($obs['image_b64']) ? 'non' : 'oui');}}return $imgAAjouter;}protected function stockerImagesEtLierAObs($id_obs, $img, $utilisateur) {if (isset($img['nom'])) {$imgTmp[] = $img;unset($img);$img = $imgTmp;}$img_a_taguer_ids_noms = array();foreach ($img as $image) {$nomFichierImg = $this->traiterNomFichierImage($image['nom']);$cheminImage = $this->config['cel']['chemin_stockage_temp']."/$nomFichierImg";// Si l'image est transmise en base 64if (empty($image['b64']) === false) {$this->transformerBase64enFichier($cheminImage, $image['b64']);}$this->debug[] = 'Nom fichier img debut :'.$nomFichierImg;$idImg = $this->ajouterImageSurDdEtBdd($id_obs, $utilisateur, $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éesforeach (array_keys($img_a_taguer_ids_noms) as $idImageASupprimer) {$this->effacerImageDuDd($idImageASupprimer);}$img_a_taguer_ids_noms = false;break;}}return $img_a_taguer_ids_noms;}/*** Regarde si les infos concernant l'utilisateur en cours sont satisfaisantes* (un ID et des infos complètes venant d'un jeton); si non, regarde si un* ID a été passé en POST (cas du Widget de Saisie); si non, regarde tout de* même si l'email envoyé en POST correspond à un utilisateur connu dans la* table cel_utilisateurs_infos (cas de la synchro Pl@ntNet > TB)** @TODO réviser l'intégralité du flux pour éviter cette situation* sous-optimale et spaghettoïde*/private function affecterChampsManquantsUtilisateur($utilisateur) {$gestion_utilisateur = new GestionUtilisateur($this->config);// le nom de la méthode est trompeur : $infos_complementaires ne sera// chargé que si un jeton SSO est présent$infos_complementaires = $gestion_utilisateur->obtenirUtilisateurSiExiste($utilisateur['courriel']);// si on n'a pas d'ID pour l'instantif(!isset($utilisateur['id_utilisateur']) || trim($utilisateur['id_utilisateur']) == '') {// si les infos complémentaires ont été trouvées, on charge ce// qu'elles contiennentif ($infos_complementaires['connecte'] && isset($infos_complementaires['id_utilisateur'])) {// on essaye de ne pas écraser avec du vide (on sait jamais)$utilisateur['id_utilisateur'] = $infos_complementaires['id_utilisateur'];if (isset($infos_complementaires['prenom']) && trim($infos_complementaires['prenom']) != '') {$utilisateur['prenom'] = $infos_complementaires['prenom'];}if (isset($infos_complementaires['nom']) && trim($infos_complementaires['nom']) != '') {$utilisateur['nom'] = $infos_complementaires['nom'];}} else {// sinon on regarde dans cel_utilisateurs_infos pour voir si on// ne connait pas l'email quand-même$infosCUI = $gestion_utilisateur->lireCelUtilisateursInfos($utilisateur['courriel']);if ($infosCUI) {if (! empty($infosCUI['id_utilisateur'])) {$utilisateur['id_utilisateur'] = $infosCUI['id_utilisateur'];}if (! empty($infosCUI['prenom'])) {$utilisateur['prenom'] = $infosCUI['prenom'];}if (! empty($infosCUI['nom'])) {$utilisateur['nom'] = $infosCUI['nom'];}}// @TODO si la personne est inscrite à TB mais n'a jamais// utilisé le CeL, elle n'est pas présente dans la table// cel_utilisateurs_info... il faudrait appeler l'annuaire ici// else: en dernier recours on garde ce qu'on a dans le POST; on// obtient alors un obs "anonyme" (utilisateur non-inscrit)elseif (! empty($utilisateur['courriel'])) {$utilisateur['id_utilisateur'] = $utilisateur['courriel'];}}}return $utilisateur;}private function supprimerSlashesProfond($valeur) {$valeur = is_array($valeur) ? array_map(array($this, 'supprimerSlashesProfond'), $valeur) : stripslashes($valeur);return $valeur;}private function getMaxOrdre($id_utilisateur) {$idUtilisateurP = Cel::db()->proteger($id_utilisateur);$requete = 'SELECT MAX(ordre) AS ordre '.'FROM cel_obs '."WHERE ce_utilisateur = $idUtilisateurP ".' -- '.__FILE__.':'.__LINE__;$ordre_max = Cel::db()->requeterValeurUnique($requete);return ($ordre_max !== false) ? $ordre_max + 1 : null;}/*** 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) {$chemin_parent = '/';$listeIdsTags = array();foreach ($tags as $tag) {$tag = $this->nettoyerTag($tag);if ($tag != '') {$id_mot_cle = $this->gestionMotsClesObs->insererParCheminSiInexistant($tag, $chemin_parent, $this->utilisateur_id);if ($id_mot_cle !== false) {$listeIdsTags[] = $id_mot_cle;$chemin_parent .= $tag."/";}}}$liaison_ok = $this->gestionMotsClesObs->lierParTableaux($listeIdsTags, $observations_ids);if($liaison_ok) {foreach($observations_ids as $id) {GestionMotsClesChemin::regenererIndexTexteMotCle($id, 'obs');}}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 aif (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) {$chemin_parent = "/";$listeIdsTags = array();foreach ($tags as $tag) {$tag = $this->nettoyerTag($tag);if ($tag != '') {$id_mot_cle = $this->gestionMotsClesImages->insererParCheminSiInexistant($tag, $chemin_parent, $this->utilisateur_id);if ($id_mot_cle !== false) {$listeIdsTags[] = $id_mot_cle;$chemin_parent .= $tag."/";}}}$liaison_ok = $this->gestionMotsClesImages->lierParTableaux($listeIdsTags, $images_ids);if($liaison_ok) {foreach($images_ids as $id) {GestionMotsClesChemin::regenererIndexTexteMotCle($id, 'images');}}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";}}private function obtenirIdsObsPourTableauOrdres($id_utilisateur, $ordres) {$this->debug[] = print_r($ordres,true);$id_utilisateur = Cel::db()->proteger($id_utilisateur);$ordres = array_map(array(Cel::db(),'proteger'), $ordres);$requete = 'SELECT id_observation '.'FROM cel_obs '."WHERE ce_utilisateur = $id_utilisateur "." AND ordre IN (".implode(',',$ordres).") ";$this->debug[] = $requete;$resultat = Cel::db()->requeter($requete);$ids = array();foreach($resultat as $id) {$ids[] = $id['id_observation'];}return $ids;}/*** Supprime toutes les images temporaires dont :* - l'ancienneté est supérieure à DUREE_DE_VIE_IMG (si $nomsDeFichiers vaut false, 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=false) {// mode de suppression$suppressionParNom = (is_array($nomsDeFichiers) && count($nomsDeFichiers) > 0);$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 suppressionif ($suppressionParNom) {$suppression = in_array($objet, $nomsDeFichiers);} else {$filemtime = @filemtime($chemin);if ($filemtime !== false) {$suppression = (time() - $filemtime >= self::DUREE_DE_VIE_IMG) ? true : false;}}// suppressionif ($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 $utilisateur l'utilisateur* @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, $utilisateur, $cheminImage, $nomFichierImage) {$idImage = false;$idUtilisateur = $utilisateur['id_utilisateur'];$nouvelOrdre = $this->obtenirNouvelOrdrePourUtilisateur($idUtilisateur);if ($nouvelOrdre !== false) {if (file_exists($cheminImage)) {$extracteurMetadonnees = new ExtracteurMetadonnees();$metadonnees = $extracteurMetadonnees->extraireMetadonnees($cheminImage) ;if ($metadonnees !== false) {$infosImage = $metadonnees;$infosImage['ce_observation'] = $id_obs;$infosImage['ordre'] = $nouvelOrdre;$infosImage['nom_original'] = $nomFichierImage;$infosImage['ce_utilisateur'] = $idUtilisateur;$infosImage['courriel_utilisateur'] = $utilisateur['courriel'];$infosImage['nom_utilisateur'] = $utilisateur['nom'];$infosImage['prenom_utilisateur'] = $utilisateur['prenom'];$infosImage['md5'] = md5_file($cheminImage);$infosImage['date_creation'] = 'NOW()';$infosImage['date_modification'] = 'NOW()';$infosImage['date_liaison'] = 'NOW()';$infosImage['date_transmission'] = 'NOW()';$infosImage['transmission'] = '1';$this->debug[] = 'Nom fichier img meta :'.$nomFichierImage;$requete = $this->construireRequeteInsertionImage($infosImage);$resultat = Cel::db()->executer($requete);if ($resultat !== false) {$idImage = $this->obtenirIdImagePourIdentifiantEtOrdre($idUtilisateur, $nouvelOrdre);if ($idImage !== false) {$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.";}} else {$this->messages[] = "Erreur lors du calcul du nouvel ordre de l'image.";}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 obtenirNouvelOrdrePourUtilisateur($id_utilisateur) {$id_utilisateur = Cel::db()->proteger($id_utilisateur);$requete = 'SELECT MAX(ordre) as max_ordre '.'FROM cel_images '."WHERE ce_utilisateur = $id_utilisateur ";$resultat = Cel::db()->requeter($requete);$ordre = ($resultat) ? ++$resultat[0]['max_ordre'] : 0;return $ordre;}private function obtenirIdImagePourIdentifiantEtOrdre($id_utilisateur, $ordre) {$id_utilisateur = Cel::db()->proteger($id_utilisateur);$ordre = Cel::db()->proteger($ordre);$requete = 'SELECT id_image '.'FROM cel_images '."WHERE ce_utilisateur = $id_utilisateur "." AND ordre = $ordre ";$resultat = Cel::db()->requeter($requete);$id_image = (count($resultat) > 0) ? $resultat[0]['id_image'] : false;return $id_image;}private function construireRequeteInsertionImage($informations) {$champs = array();$valeurs = array();foreach ($informations as $champ => $valeur) {$champs[] = $champ;if (is_null($valeur)) {$valeurs[] = 'NULL';} else if ($valeur === 'NOW()') {$valeurs[] = $valeur;} else {$valeurs[] = Cel::db()->proteger($valeur);}}$champsConcat = implode(', ', $champs);$valeursConcat = implode(', ', $valeurs);$requete = "INSERT INTO cel_images ($champsConcat) VALUES ($valeursConcat) ".' -- '.__FILE__.':'.__LINE__;return $requete;}}