<?php
// declare(encoding='UTF-8');
/**
 * Classe de recherche d'images à partir de divers critères.
 *
 * @internal   Mininum PHP version : 5.2
 * @category   CEL
 * @package    Services
 * @subpackage Bibliothèques
 * @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 RechercheImage extends Cel {
	
	public static $tris_possibles = array(
			// 'ordre', // On désactive ordre qui est le tri par défaut, car ça pédale trop si l'user à trop d'obs
			'taxon',
			'transmission',
			'zone_geo',
			'date_prise_de_vue',
			'appareil_fabriquant',
			'note_qualite',
			'nom_original'
	);

	function rechercherImagesEtObservationAssociees($id_utilisateur = null, $criteres = array(), $debut = 0, $limite = 50) {
		$images_trouvees = $this->rechercherImages($id_utilisateur, $criteres, $debut, $limite);

		$retour = array();
		foreach($images_trouvees as $image) {
			$image['id_observation'] = $this->obtenirInformationsObservationsAssociees($image['ce_utilisateur'],$image['id_image']);
			$retour[] = $image ;
		}
		return $retour;
	}
	
	
	// redéfinis en 2020, affiche toutes les infos images et obs à partir d'un join pour n'avoir que les images liées à une obs
	public function rechercherImagesJoinObservation($id_utilisateur = null, $criteres = array(), $debut = 0 , $limite = 50) {
	    $ordre = (isset($criteres['tri']) && $criteres['tri']) ? $criteres['tri'] : '';
	    unset($criteres['tri']);
	    $direction = (isset($criteres['dir']) && $criteres['dir']) ? $criteres['dir'] : 'ASC';
	    unset($criteres['dir']);
	    $imgUrlTplBase = explode('%', $this->config['settings']['celImgUrlTpl'])[0];
	    
	    $debut = ($debut < 0) ? 0 : $debut;
	    $requete_recherche_images = 'SELECT ci.`id_image` as id_photo, co.guid,     
`id_observation` as id_obs, `nom_sel`, `nom_sel_nn`, `zone_geo` as localisation, `latitude`, `longitude`,
 `date_observation` as date_obs, `commentaire`, `certitude`, `grade` as fiabilite, programme as projet, 
`score_identiplante` as score_ip, `url_identiplante` as url_ip, `validation_identiplante` as est_ip_valide,
 co.mots_cles_texte as tags_obs, `nom_ret`, `nom_ret_nn`, `famille`,`nom_referentiel`, `pays`, 
`ce_zone_geo` as code_insee, `dept`, `lieudit`, `station`, `milieu`, `altitude`, `localisation_precision`,
 `localisation_floutage`, `localisation_coherence`, `abondance`, `phenologie`, `spontaneite`, 
`type_donnees`, `biblio`, `source`, `herbier`, `determinateur`, `observateur`, `observateur_structure`,
`ce_utilisateur` as id_utilisateur, `courriel_utilisateur` as mail_utilisateur, `pseudo_utilisateur` as nom_utilisateur, 
ci.`nom_original`, ci.`date_prise_de_vue` as date_photo, "Creative Commons BY-SA (2.0)" as licence, 
concat(case when `nom_sel` is null then "Indéterminée" else nom_sel end, " par ", case when pseudo_utilisateur = "" then substr(courriel_utilisateur, 1, locate("@", courriel_utilisateur)) when pseudo_utilisateur IS NULL then substr(courriel_utilisateur, 1, locate("@", courriel_utilisateur)) else pseudo_utilisateur end, concat(" [CC BY-SA 2.0 FR], via Tela Botanica")) as attribution,
 concat("'.$imgUrlTplBase.'", lpad(ci.id_image, 9, "0"), "O,") as url_photo, ci.`mots_cles_texte` as tags_photo ';
	    
	    $requete_recherche_images .= $this->fabriquerRequeteJointureDblObs($criteres);
	    $requete_recherche_images .= ($id_utilisateur != null) ? 'AND co.ce_utilisateur = '.Cel::db()->proteger($id_utilisateur) : '';
	    
	    
	    $sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
	    $requete_recherche_images .= $sous_requete_recherche;
	    
	    if (!empty($ordre)) {
	        $requete_recherche_images .= ' ORDER BY '.$ordre.' '.$direction;
	    }
	    $requete_recherche_images .= ' LIMIT '.$debut.','.$limite;
	    
	    $resultats_images = array();
	    $resultats_images = Cel::db()->requeter($requete_recherche_images);
	    
	    return $resultats_images;
	}

	public function rechercherImages($id_utilisateur = null, $criteres = array(), $debut = 0 , $limite = 50) {
		$ordre = (isset($criteres['tri']) && $criteres['tri']) ? $criteres['tri'] : '';
		unset($criteres['tri']);
		$direction = (isset($criteres['dir']) && $criteres['dir']) ? $criteres['dir'] : 'ASC';
		unset($criteres['dir']);

		$debut = ($debut < 0) ? 0 : $debut;
		$requete_recherche_images = 'SELECT ci.*, co.pseudo_utilisateur ';

		$requete_recherche_images .= $this->fabriquerRequeteJointureObs($criteres);
		$requete_recherche_images .= ($id_utilisateur != null) ? 'AND co.ce_utilisateur = '.Cel::db()->proteger($id_utilisateur) : '';
		

		$sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);
		$requete_recherche_images .= $sous_requete_recherche;

		if (!empty($ordre)) {
			$requete_recherche_images .= ' ORDER BY '.$ordre.' '.$direction;
		}
		$requete_recherche_images .= ' LIMIT '.$debut.','.$limite;

		$resultats_images = array();
		$resultats_images = Cel::db()->requeter($requete_recherche_images);

		return $resultats_images;
	}

	public function compterImages($id_utilisateur = null, $criteres = array()) {
		$requete_recherche_images = 'SELECT COUNT(*) AS nb_images ';

		$requete_recherche_images .= $this->fabriquerRequeteJointureObs($criteres);
		$requete_recherche_images .= ($id_utilisateur != null) ? 'AND co.ce_utilisateur = '.Cel::db()->proteger($id_utilisateur) : '';
		
		$sous_requete_recherche = $this->fabriquerSousRequeteRecherche($id_utilisateur, $criteres);

		$requete_recherche_images .= $sous_requete_recherche;
		$nb_images = 0;

		$resultat_requete_nombre_images = Cel::db()->requeter($requete_recherche_images);

		if ($resultat_requete_nombre_images && is_array($resultat_requete_nombre_images) && count($resultat_requete_nombre_images) > 0) {
			$nb_images = $resultat_requete_nombre_images[0]['nb_images'];
		}
		
		return $nb_images;
	}

	private function doitJoindreTableObs($criteres = array(), $tri = "") {
		$tris_obs = array('nom_sel','transmission','zone_geo');
		$criteres_obs = array('zone_geo','ce_zone_geo','taxon','transmission','recherche');
		return count(array_intersect(array_keys($criteres),$criteres_obs)) > 0 ||
				(!empty($tri) && in_array($tri, $tris_obs));
	}

	private function fabriquerRequeteJointureObs($criteres) {
	    if (isset($criteres['standard']) && $criteres['standard'] == 0 ) {
    		$requete = 'FROM cel_images_export ci '.
    			'LEFT JOIN cel_export_total co '.
    				'ON ci.ce_observation = co.id_observation '.
    				'WHERE co.transmission = '.Cel::db()->proteger($criteres['transmission']); 
	    } else {
	        $requete = 'FROM cel_images_export ci '.
	   	        'LEFT JOIN cel_export co '.
	   	        'ON ci.ce_observation = co.id_observation '.
	   	        'WHERE 1 '; 
	    }
		return $requete;
	}
	
	private function fabriquerRequeteJointureDblObs($criteres) {
	    if (isset($criteres['standard']) && $criteres['standard'] == 0 ) {
	        $requete = 'FROM cel_images_export ci '.
	   	        'JOIN cel_export_total co '.
	   	        'ON ci.ce_observation = co.id_observation '.
	   	        'WHERE co.transmission = '.Cel::db()->proteger($criteres['transmission']);
	    } else {
	        $requete = 'FROM cel_images_export ci '.
	   	        'JOIN cel_export co '.
	   	        'ON ci.ce_observation = co.id_observation '.
	   	        'WHERE 1 '; 
	    }
	    return $requete;
	}

	public function obtenirInformationsObservationsAssociees($id_utilisateur, $id_image) {
		$requete = 'SELECT ce_observation FROM cel_images_export WHERE id_image = '.$id_image;
		$resultats = Cel::db()->requeter($requete);

		$idsObsListe = array();
		foreach ($resultats as $liaison) {
			$idsObsListe[] = $liaison['ce_observation'];
		}
		$ids_obs = implode(',', $idsObsListe);

		$infos_obs = '';
		if (trim($ids_obs) != '') {
			$requete = 'SELECT * FROM cel_export_total WHERE id_observation IN ('.$ids_obs.') AND ce_utilisateur = "'.$id_utilisateur.'"';
			$resultats = Cel::db()->requeter($requete);

			foreach ($resultats as $obs_liee) {
				$infos_obs .= $obs_liee['ordre'].'#'.$obs_liee['nom_sel'].'#'.$obs_liee['transmission'].';;' ;
			}
		}
		return $infos_obs;
	}

	private function fabriquerSousRequeteRecherche($id_utilisateur, $criteres) {
		$sous_requete = ' AND ';
		foreach ($criteres as $nom => $valeur) {
			if ($valeur == null || trim($nom) == "" || trim($valeur) == "") {
				continue;
			}

			switch ($nom) {
				case "id_image";
					$sous_requete .= 'ci.id_image = '.Cel::db()->proteger($valeur) ;
					$sous_requete .= ' AND ';
					break;
				case "mots_cles";
					$sous_requete .= $this->creerSousRequeteMotsCles($valeur);
					break;
				case "projet"; // mot clé des observations
				    $sous_requete .= $this->creerSousRequeteProjet($valeur);
				    break;
				case "id_mots_cles";
					$liste_mc = '"'.str_replace(';','","',$valeur).'"';
					$tpl_sous_requete = GestionMotsClesChemin::obtenirTemplateRequeteMotsClesIds('images');
					$sous_requete .= 'id_image IN ('.sprintf($tpl_sous_requete, $liste_mc).')';
					$sous_requete .= ' AND ' ;
					break;
				case "commentaire":
					$mots_comment_liste = explode(" " , $valeur) ;

					foreach($mots_comment_liste as $mot_comment) {
						$mot_comment = trim($mot_comment) ;
						$sous_requete .= 'ci.'.$nom.' LIKE '.Cel::db()->proteger('%'.$mot_comment.'%') ;
						$sous_requete .= ' AND ' ;
					}
					break;
				case "annee":
				case "mois":
				case "jour":
					$sous_requete .= $this->fabriquerSousRequeteRechercheDate($nom, $valeur) ;
					$sous_requete .= ' AND ' ;
					break;
				case "date" : 
				    $sous_requete .= 'date_format(date_observation, "%Y-%m-%d") ='.Cel::db()->proteger($valeur);
				    $sous_requete .= ' AND ' ;
				    break;
				case "date_deb" :
				    $sous_requete .= 'date_format(date_observation, "%Y-%m-%d") >='.Cel::db()->proteger($valeur);
				    $sous_requete .= ' AND ' ;
				    break;
				case "date_fin" :
				    $sous_requete .= 'date_format(date_observation, "%Y-%m-%d") <='.Cel::db()->proteger($valeur);
				    $sous_requete .= ' AND ' ;
				    break;
				case "tampon":
					$ids_tampon = rtrim($valeur, ',') ;
					$sous_requete .= 'ci.id_images IN ( '.Cel::db()->proteger($ids_tampon).')' ;
					break;
				case "recherche":
					$sous_requete .= $this->fabriquerSousRequeteRechercheGenerale($id_utilisateur, $valeur);
					$sous_requete .= ' AND ';
					break;
				case "transmission":
				    /*$sous_requete .= 'co.transmission = '.Cel::db()->proteger($valeur) ;
					$sous_requete .= ' AND ';*/
					break;
				case "standard":
				    /*$sous_requete .= 'co.donnees_standard = '.Cel::db()->proteger($valeur) ;
				    $sous_requete .= ' AND ';*/
				    break;
				case "referentiel":
				    $sous_requete .= 'co.nom_referentiel = '.Cel::db()->proteger($valeur) ;
				    $sous_requete .= ' AND ';
				    break;
				case "taxon":
					$valeur = str_replace('indetermine','null',$valeur);
					$sous_requete .= ' (';
					$sous_requete .= 'co.nom_ret LIKE '.Cel::db()->proteger($valeur.'%') ;
					$sous_requete .= ' OR ' ;
					$sous_requete .= 'co.nom_sel LIKE '.Cel::db()->proteger($valeur.'%') ;
					$sous_requete .= ') AND ' ;
					break;
				case "num_nom":
				    $sous_requete .= ' (';
				    $sous_requete .= 'co.nom_ret_nn = '.Cel::db()->proteger($valeur) ;
				    $sous_requete .= ' OR ' ;
				    $sous_requete .= 'co.nom_sel_nn = '.Cel::db()->proteger($valeur) ;
				    $sous_requete .= ') AND ' ;
				    break;
				case "auteur":
				    if (is_numeric($valeur)) {
					   $sous_requete .= 'co.ce_utilisateur = '.Cel::db()->proteger($valeur).' AND ';
				    } elseif (strpos($valeur, '@') !== false) {
				        $sous_requete .= 'co.courriel_utilisateur = '.Cel::db()->proteger($valeur).
								        ' AND ';
				    } else {
				        $sous_requete .= 'co.pseudo_utilisateur LIKE '.Cel::db()->proteger($valeur.'%').
								        ' AND ';
				    }
					break;
				case "dept":
					if($valeur !== "NULL") {
					    $depts = explode(",", $valeur);
					    if (count($depts) == 1) {
						  $sous_requete .= '(co.dept = '. Cel::db()->proteger($valeur).') ';
					    } else {
					        $sous_requete .= '(co.dept in ('.$valeur.')) ';
					    }
					}
					break;
				case "zone_geo":
					if($valeur !== "NULL") {
						$sous_requete .= '(co.zone_geo = '.Cel::db()->proteger($valeur).') ';
					}
					break;
				case "pays":
				    if($valeur !== "NULL") {
				        $sous_requete .= '(co.pays like '.Cel::db()->proteger($valeur.'%').') ';
				    }
				    break;
				case "famille":
					$sous_requete .= 'co.famille = '.Cel::db()->proteger($valeur) ;
					$sous_requete .= ' AND ' ;
					break;
				case "programme":
				    if($valeur !== "NULL") {
				        $sous_requete .= '(co.programme = '.Cel::db()->proteger($valeur).') ';
				    }
				    break;
				case "tri":
				    break;
				case "dir":
				    break;
				default:
					$sous_requete .= 'ci.'.$nom.' = '.Cel::db()->proteger($valeur) ;
					$sous_requete .= ' AND ' ;
					break;
			}
		}
		$sous_requete = rtrim($sous_requete,' AND ');
		return $sous_requete;
	}

	private function fabriquerSousRequeteRechercheGenerale($id_utilisateur, $chaine_recherche) {
		if (trim($chaine_recherche) == '') {
			return '';
		}
		$chaine_recherche = strtolower($chaine_recherche);
		$chaine_recherche = str_replace(' ','_',$chaine_recherche);
		$requete = ' ('.
			'ci.nom_original LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
			'co.nom_ret LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
			'co.nom_sel LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
			'co.zone_geo LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
			'co.ce_zone_geo LIKE '.Cel::db()->proteger('%'.$chaine_recherche.'%').' OR '.
			//TODO: recherche multicriteres sur mots clés texte ne fonctionne pas à cause de la jointure
			//'ci.mots_cles_texte LIKE '.Cel::db()->proteger('%'.$chaine_recherche.'%').' OR '.
			'co.ce_utilisateur LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
			'co.courriel_utilisateur LIKE '.Cel::db()->proteger($chaine_recherche.'%').' OR '.
			'co.pseudo_utilisateur  LIKE '.Cel::db()->proteger($chaine_recherche.'%').' '.
		') ';
		return $requete;
	}

	private function fabriquerSousRequeteRechercheDate($intervalle, $valeur) {
		$correspondance_champ = array('annee' => 'YEAR','mois' => 'MONTH','jour' => 'DAY');
		$requete_recherche_date = '';

		if (is_numeric($valeur) && $valeur != "00") {
			$requete_recherche_date = '('.$correspondance_champ[$intervalle].'(co.date_observation) = '.Cel::db()->proteger($valeur).') ';
		} else {
			$requete_recherche_date = '(co.date_observation IS NULL OR co.date_observation = "0000-00-00")';
		}

		return $requete_recherche_date;
	}

	private function creerSousRequeteMotsCles($mot_cle) {
		//TODO: une requête plus efficace serait possible en utilisant
		// les vraies tables de mots clés et en faisant disparaitre ce champ maudit
		$requete = '';
		if (preg_match('/.*OU.*/', $mot_cle)) {
			$mots_cles_tab = explode('OU',$mot_cle);
			foreach ($mots_cles_tab as $mot_cle_item) {
				$requete .= '(ci.mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') OR ';
			}
			$requete = '('.rtrim($requete,'OR ').')';
		} else if (preg_match('/.*ET.*/', $mot_cle)) {
			$mots_cles_tab = explode('ET',$mot_cle);
			foreach ($mots_cles_tab as $mot_cle_item) {
				$requete .= '(ci.mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') AND ';
			}
			$requete = '('.rtrim($requete, 'AND ').') ';
		} else {
			$requete = "(ci.mots_cles_texte LIKE ".Cel::db()->proteger('%'.$mot_cle.'%').') ';
		}
		$requete .= ' AND ';
		return $requete;
	}

	private function creerSousRequeteProjet($mot_cle) {
	    //TODO: une requête plus efficace serait possible en utilisant
	    // les vraies tables de mots clés et en faisant disparaitre ce champ maudit
	    $requete = '';
	    if (preg_match('/.*OU.*/', $mot_cle)) {
	        $mots_cles_tab = explode('OU',$mot_cle);
	        foreach ($mots_cles_tab as $mot_cle_item) {
	            $requete .= '(co.mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') OR ';
	        }
	        $requete = '('.rtrim($requete,'OR ').')';
	    } else if (preg_match('/.*ET.*/', $mot_cle)) {
	        $mots_cles_tab = explode('ET',$mot_cle);
	        foreach ($mots_cles_tab as $mot_cle_item) {
	            $requete .= '(co.mots_cles_texte LIKE '.Cel::db()->proteger('%'.$mot_cle_item.'%').') AND ';
	        }
	        $requete = '('.rtrim($requete, 'AND ').') ';
	    } else {
	        $requete = "(co.mots_cles_texte LIKE ".Cel::db()->proteger('%'.$mot_cle.'%').') ';
	    }
	    $requete .= ' AND ';
	    return $requete;
	}
	
	public function formaterPourEnvoiCel(&$tableau_images) {
		foreach ($tableau_images as &$image) {
			$ids_mots_cles = $this->getIdsMotsClesImage($image['id_image']);
			$mots_cles_chaine = '';
			foreach ($ids_mots_cles as $id_mot_cle) {
				$mots_cles_chaine .= $id_mot_cle['id_mot_cle'].',';
			}
			$mots_cles_chaine = rtrim($mots_cles_chaine,',');
			$image['mots_cles'] = $mots_cles_chaine;
		}
		return $tableau_images;
	}

	public function obtenirCourrielUtilisateurPourIdImage($id_image) {
		$idImageP = Cel::db()->proteger($id_image);
		$requete = 'SELECT courriel_utilisateur '.
			'FROM cel_images_export JOIN cel_export_total ON ce_observation = id_observation '.
			"WHERE id_image = $idImageP ".
			' -- '.__FILE__.':'.__LINE__;
		$utilisateur_courriel = Cel::db()->requeter($requete);

		$retour = false;
		if (!empty($utilisateur_courriel) && isset($utilisateur_courriel[0]['courriel_utilisateur'])) {
			$retour = $utilisateur_courriel[0]['courriel_utilisateur'];
		}
		return $retour;
	}

	private function getIdsMotsClesImage($id_image) {
		$requete = 'SELECT DISTINCT photo_tag_id '.
			'FROM photo_tag_photo '.
			"WHERE photo_id = $id_image ". 
			' -- '.__FILE__.':'.__LINE__;
		return Cel::db()->requeter($requete);
	}
}