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 $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 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'];

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

			// 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 (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;

								$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: debug

									file_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 traite

							if ($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 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[] = "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;

	}

	/**

	 * 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 faire

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

			// copies locales pour ne pas abimer les donénes 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érentiel

				if ((! 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&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 premier nom retenu qu'on trouve, ou à défaut

					// le premier nom tout court

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

						if (! $ret_trouve && ($nn_trouve == null || $nom['retenu'] == 'true')) { // oui oui, un 'true' entre quotes :/

							$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 tout

				if ($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) && !empty($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 64

			if (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ées

				foreach (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'instant

		if(!isset($utilisateur['id_utilisateur']) || trim($utilisateur['id_utilisateur']) == '') {

			// si les infos complémentaires ont été trouvées, on charge ce

			// qu'elles contiennent

			if ($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'];

					}

				}

				// else: en dernier recours on garde ce qu'on a dans le POST; on

				// obtient alors un obs "anonyme" (utilisateur non-inscrit)

			}

		}

		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 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) {

		$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 suppression

						if ($suppressionParNom) {

							$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 $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;

	}

}