<?php


/**
 * Classe commune a tous les services de ce projet qui va analyser et rechercher des erreurs
 * sur les valeurs passees en parametres lors d'un appel a ces web services.
 *
 * Les parametres suivants sont traites :
 *   - zoom : le niveau de zoom sur la carte (API cartographique client)
 *     On va verifier que c'est un nombre entier compris entre une valeur minimale et une valeur maximale
 *
 *   - bbox : rectangle dont les bords delimitent en coordonnees l'espace de recherche de donnees spatiales
 *     L'ordre des valeurs est le suivant : ouest, sud, est, nord
 *     On va verifier que c'est une serie de quatre nombre decimaux delimites par des virgules
 *     et compris dans l'espace representant le monde a partir du systeme de projection WGS84 (EPSG:4326)
 *
 *   - stations : liste de points d'observations. C'est une serie de stations qui est passee en parametres
 *     de cette maniere, separees entre elles par un seperateur vertical |. Chaque station est decrite
 *     par sa source de donnees, le type de site et ses coordonnees longitude et latitude.
 *
 *   - referentiel : referentiel taxonomique a utiliser. On peut passer aussi bien en parametres
 *     son nom court que son nom complet (incluant le numero de version)
 *     On va verifier la disponibilite du referentiel pour ce service
 *
 *   - num_taxon : numero taxonomique d'une espece
 *   - nn : numero nomenclatural d'une espece
 *     On va rechercher sa presence dans les referentiels disponibles
 *     (les informations principales sur ce taxon seront renvoyees)
 *
 *   - dept : une liste de numeros de departements separees entre eux par des virgules
 *     On va verifier que chaque numero est un nombre entier et represente un code de departement valide
 *
 *   - auteur : l'auteur de l'observation
 *
 *   - date_debut et date_fin : intervalle de dates d'observation. On verifie que ce sont des dates valides
 *     et que date_debut <= date_fin. Le programme peut accepter la presence d'un seul de ces deux
 *     parametres : soit une date de debut, soit une date de fin
 *     
 *   - nb_jours : valeur entiere qui indique de recuperer les observations effectuees ou transmises
 *     sur les derniers jours avant la date d'execution du script
 *
 * La fonction principale de verification des parametres va parcourir tous les parametres, et verifier
 * pour chacun d'eux la validite de leurs valeurs. Dans le cas ou une valeur anormale est detectee
 * ou qu'elle se trouve en dehors de l'intervalle des resultats acceptes, une liste de messages d'erreur
 * sera generee et mise a jour.
 * 
 * Le resultat final de la verfication peut entrainer deux cas d'utilisation possibles. Si des messages
 * d'erreurs ont ete generes durant la verification, ils sont regroupes en un seul message pour lever
 * une exception qui sera interpretee par la classe appelante. Dans le cas ou la verification n'a rien
 * rencontre d'anormal, une fonction renverra la liste des parametres valides utilisables
 * pour des recherches de donnees pour la suite du traitement pour le service.
 *
 * @package framework-0.3
 * @author Alexandre GALIBERT <alexandre.galibert@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>
 * @version $Id$
 * @copyright 2013 Tela Botanica (accueil@tela-botanica.org)
 *
 */

class VerificateurParametres {
	
	private $parametres = array();
	private $validation = null;
	private $erreurs = array();
	private $dateTraitee = false;
	
	private $bboxMonde = null;
	
	
	public function __construct($parametres) {
		foreach ($parametres as $nomParametre => $valeur) {
			$this->parametres[$nomParametre] = $valeur;
		}
		$this->bboxMonde = array(
			'ouest' => floatval(Config::get('carte.limite_ouest')),
			'est'   => floatval(Config::get('carte.limite_est')),
			'sud'   => floatval(Config::get('carte.limite_sud')),
			'nord'  => floatval(Config::get('carte.limite_nord'))
		);
		$this->validation = new StdClass();
	}
	
	public function verifierParametres() {
		foreach ($this->parametres as $nomParametre => $valeur) {
			switch ($nomParametre) {
				case 'zoom' : $this->traiterParametreZoom($valeur);
					break;
				case 'bbox' : $this->traiterParametreBbox($valeur);
					break;
				case 'stations'  : $this->traiterParametreStations($this->parametres['stations']);
					break;
				case 'dept' : $this->traiterParametreDepartement($valeur);
					break;
				case 'auteur' : $this->traiterParametreAuteur($valeur);
					break;
				case 'referentiel' : $this->traiterParametreReferentiel($valeur);
					break;
				case 'num_taxon' : $this->traiterParametreTaxon($valeur);
					break;
				case 'nn' : $this->traiterParametreNomenclatural($valeur);
					break;
				case 'type_site' : $this->traiterParametreTypeSite($valeur);
					break;
				case 'nb_jours' : $this->traiterParametreNbJours($valeur);
					break;
				case 'date_debut' :
				case 'date_fin'  : {
					$dateDebut = isset($this->parametres['date_debut']) ? $this->parametres['date_debut'] : null;
					$dateFin = isset($this->parametres['date_fin']) ? $this->parametres['date_fin'] : null;
					if (!$this->dateTraitee) {
						$this->traiterParametresDate($dateDebut, $dateFin);
						$this->dateTraitee = true;
					}
					break;
				}
				case 'format' : $this->validation->format = strtolower($valeur); break;
				// autres parametres ==> les ignorer
				default : break;
			}
		}
		$this->verifierPresenceParametreSpatial();
	}
	
	private function ajouterErreur($messageErreur) {
		$this->erreurs[] = $messageErreur;
	}
	
	public function renvoyerResultatVerification() {
		return $this->validation;
	}
	
	public function contienterreurs() {
		return count($this->erreurs);
	}
	
	public function leverException() {
		$messagesErreur = "Les erreurs suivantes ont été rencontrées : \n".
			implode("\n", $this->erreurs);
		throw new Exception($messagesErreur, RestServeur::HTTP_CODE_MAUVAISE_REQUETE);
	}
	
	
	// ------------------------------------------------------------------------- //
	// Fonctions de verification de parametres et detection de valeurs anormales //
	// ------------------------------------------------------------------------- //
	
	private function traiterParametreZoom($zoom) {
		$zoom = intval($zoom);
		$mondeZoom = array(
				'min' => intval(Config::get('carte.zoom_minimal')),
				'max' => intval(Config::get('carte.zoom_maximal'))
		);
		if ($zoom < $mondeZoom['min'] || $zoom > $mondeZoom['max']) {
			$message = 'Niveau de zoom non reconnu par le service. Il doit être compris entre '.
				$mondeZoom['min'].' et '.$mondeZoom['max'];
			$this->ajouterErreur($message);
		} else {
			$this->validation->zoom = $zoom;
		}
	}
	
	private function traiterParametreBbox($chaineBbox) {
		$listeBbox = explode('|', trim($chaineBbox));
		$critereBbox = array();
		foreach ($listeBbox as $bbox) {
			$bboxVerifiee = $this->verifierCoordonneesBbox($bbox);
			if (!is_null($bboxVerifiee)) {
				$critereBbox[] = $bboxVerifiee;
			}
		}
		$this->validation->bbox = $critereBbox;
	}
	
	private function verifierCoordonneesBbox($bbox) {
		$bboxVerifiee = null;
		// verifier que la chaine de caracteres $bbox est une serie de chaque nombre decimaux
		// separes entre eux par une virgule
		if (preg_match('/^(-?\d{1,3}(.\d+)?,){3}(-?\d{1,3}(.\d+)?)$/', $bbox) == 0) {
			$message = "Format de saisie des coordonnees de la bounding box non valide.  Le service ".
				"n'accepte seulement qu'une serie de 4 nombre décimaux séparés par des virgules.";
			$this->ajouterErreur($message);
		} else {
			$coordonnees = explode(',', $bbox);
			// index du tableau des coordonnees : ouest/sud/est/nord
			$nomsIndexBbox = array("ouest", "sud", "est", "nord");
			$bbox = array();
			for ($i = 0; $i < count($coordonnees); $i ++) {
				$bbox[$nomsIndexBbox[$i]] = $coordonnees[$i];
			}
			// verifier que les coordonnees de chaque bord de la bbox sont valides
			if ($this->estUneBboxValide($bbox)) {
				$bboxVerifiee = $bbox;
			} else {
				$message = "Certaines coordonnées de la bounding box sont situés en dehors des limites ".
					"de notre monde";
				$this->ajouterErreur($message);
			}
		}
		return $bboxVerifiee;
	}
	
	private function estUneBboxValide($bbox) {
		$monde = $this->bboxMonde;
		return (floatval($bbox['ouest']) >= $monde['ouest']  && floatval($bbox['ouest']) <= $monde['est']
		&& floatval($bbox['est'])   >= $monde['ouest']  && floatval($bbox['est'])   <= $monde['est']
		&& floatval($bbox['nord'])  >= $monde['sud']    && floatval($bbox['nord'])  <= $monde['nord']
		&& floatval($bbox['sud'])   >= $monde['sud']    && floatval($bbox['sud'])   <= $monde['nord']);
	}
	
	private function traiterParametreStations($listeStations) {
		$stations = explode('|', trim($listeStations));
		$critereStations = array();
		foreach ($stations as $station) {
			preg_match("/([a-z]+):([a-z]+):(-?\d{1,3}.\d+),(-?\d{1,3}.\d+)/", $station, $matches);
			if (count($matches) < 5) {
				$message = "Les données transmises sur la station à interroger sont incomplètes. ".
					"Le format suivant doit être respecté : source:type_site:longitude:latitude";
				$this->ajouterErreur($message);
			} else {
				$matches = array_splice($matches, 1, count($matches));
				$this->verifierCoordonneesStation($matches);
				$this->verifierSourceStation($matches[0]);
				$this->verifierTypeStation($matches[1]);
				$critereStations[] = $matches;
			}
		}
		$this->validation->stations = $critereStations;
	}
	
	private function verifierCoordonneesStation(& $station) {
		$longitude = floatval($station[2]);
		$latitude  = floatval($station[3]);
		if ($this->sontDesCoordonneesValides($longitude, $latitude)) {
			$station[2] = $latitude;
			$station[3] = $longitude;
		} else {
			$message = "Les coordonnees du point passées en parametres sont en dehors des limites de notre monde";
			$this->ajouterErreur($message);
		}
	}
	
	private function sontDesCoordonneesValides($longitude, $latitude) {
		$monde = $this->bboxMonde;
		return (floatval($longitude) >= $monde['ouest'] && floatval($longitude) <= $monde['est']
			&& floatval($latitude)  >= $monde['sud']   && floatval($latitude)  <= $monde['nord']);
	}
	
	private function verifierTypeStation($typeStation) {
		$typeStationsValides = array('station', 'commune');
		if (!in_array($typeStation, $typeStationsValides)) {
			$message = "'$typeStation' n'est pas un type de station reconnu. Sont acceptés seulement 'station' et 'commune'.";
			$this->ajouterErreur($message);
		}
	}
	
	private function verifierSourceStation($source) {
		$sourcesARequeter = explode(',', trim($this->parametres['source']));
		if (!in_array($source, $sourcesARequeter)) {
			$message = "La source '$source' n'est pas listée dans le paramètre source de l'URL (sont disponibles ".
				implode(',', $sourcesARequeter).").";
			$this->ajouterErreur($message);
		}
	}
	
	private function traiterParametreDepartement($numeroDepartement) {
		if ($numeroDepartement != '*') {
			$departements = explode(',', trim($numeroDepartement));
			foreach ($departements as $departement) {
				if($this->estUnCodeDepartementValide($departement)) {
					$this->validation->departement[] = $departement;
				} else {
					$message = "Code de département non valide";
					$this->ajouterErreur($message);
				}
			}
		}
	}
	
	private function estUnCodeDepartementValide($departement) {
		// expression reguliere pour verifier que c'est un nombre entier a 2 ou 3 chiffres
		$estUnDepartementValide = true;
		if ($departement == '2A' || $departement == '2B') {
		 	$estUnDepartementValide = true;
		} elseif (preg_match('/^\d{2,3}$/', $departement) != 1) {
			$estUnDepartementValide = false;
		} else {
			if ((intval($departement) < 1 || intval($departement) > 95)
				&& (intval($departement) < 971 || intval($departement) > 978)) {
				$estUnDepartementValide = false;
			}
		} 
		return $estUnDepartementValide;
	}
	
	private function traiterParametreAuteur($auteur) {
		if ($auteur != '*') {
			$this->validation->auteur = trim($auteur);
		}
	}
	
	private function traiterParametreTypeSite($typeSite) {
		$this->validation->typeSite = strtolower(trim($typeSite));
	}
	
	private function traiterParametreReferentiel($referentiel)  {
		if (!isset($this->validation->referentiel) && $referentiel != '*') {
			$referentielAUtiliser = $this->affecterNomCompletReferentiel($referentiel);
			if (is_null($referentielAUtiliser)) {
				$message = "Le référentiel demandé n'est pas reconnu par le service.";
				$this->ajouterErreur($message);
			} else {
				$this->validation->referentiel = $referentielAUtiliser;
			}
		}
	}
	
	private function affecterNomCompletReferentiel($referentiel) {
		$referentielAUtiliser = null;
		$listeReferentiels = Referentiel::recupererListeReferentielsDisponibles();
		foreach ($listeReferentiels as $nomReferentiel) {
			$nomCourtReferentiel = current(explode('_', $nomReferentiel));
			if ($referentiel == $nomCourtReferentiel || $referentiel == $nomReferentiel) {
				$referentielAUtiliser = $nomReferentiel;
				break;
			}
		}
		return $referentielAUtiliser;
	}
	
	private function traiterParametreTaxon($numeroTaxon) {
		if ($numeroTaxon != '*') {
			$listeTaxons = explode(',', $numeroTaxon);
			foreach ($listeTaxons as $nt) {
				$taxon = null;
				if (isset($this->validation->referentiel)) {
					$taxon = $this->renvoyerTaxonDansReferentiel($nt, 'nt', $this->validation->referentiel);
				} else {
					$taxon = $this->rechercherTaxonDansReferentiels($nt, 'nt');
				}
				if (is_null($taxon)) {
					$message = "Le numéro de taxon n'a pas permis de retrouver le taxon associé.";
					$this->ajouterErreur($message);
				} else {
					$this->ajouterTaxonAListe($taxon);
					$this->validation->referentiel = $taxon['referentiel'];
				}
			}
		}
	}
	
	private function traiterParametreNomenclatural($numeroNomenclatural) {
		if ($numeroNomenclatural != '*') {
			$listeTaxons = explode(',', $numeroNomenclatural);
			foreach ($listeTaxons as $nn) {
				$taxon = null;
				if (isset($this->validation->referentiel)) {
					$taxon = $this->renvoyerTaxonDansReferentiel($nn, 'nn', $this->validation->referentiel);
				} else {
					$taxon = $this->rechercherTaxonDansReferentiels($nn, 'nn');
				}
				if (is_null($taxon)) {
					$message = "Le numéro nomenclatural n'a pas permis de retrouver le taxon associé.";
					$this->ajouterErreur($message);
				} else {
					$this->ajouterTaxonAListe($taxon);
					$this->validation->referentiel = $taxon['referentiel'];
				}
			}
		}
	}
	
	private function rechercherTaxonDansReferentiels($numeroTaxon, $typeNumero) {
		$taxon = null;
		$listeReferentiels = Referentiel::recupererListeReferentielsDisponibles();
		foreach ($listeReferentiels as $nomReferentiel) {
			$taxon = $this->renvoyerTaxonDansReferentiel($numeroTaxon, $typeNumero, $nomReferentiel);
			if (!is_null($taxon)) {
				break;
			}
		}
		return $taxon;
	}
	
	private function renvoyerTaxonDansReferentiel($numeroTaxon, $typeNumero, $nomReferentiel) {
		$referentiel = new Referentiel($nomReferentiel);
		$referentiel->chargerTaxon($typeNumero, $numeroTaxon);
		$taxon = $referentiel->renvoyerTaxon();
		return $taxon;
	}
	
	private function ajouterTaxonAListe($taxon) {
		if (!isset($this->validation->taxon)) {
			$this->validation->taxon = array($taxon);
		} elseif (!in_array($taxon, $this->validation->taxon)) {
			$this->validation->taxon[] = $taxon;
		}
	}
	
	private function traiterParametresDate($dateDebut, $dateFin) {
		$statutValidite = $this->verifierValiditeDate($dateDebut, 'début')
			+ $this->verifierValiditeDate($dateFin, 'fin');
		if ($statutValidite == 2) {
			if (!is_null($dateDebut) && !is_null($dateFin) && $dateDebut > $dateFin) {
				$message = "Intervalle de dates incorrect : date de fin avant la date de début";
				$this->ajouterErreur($message);
			} else {
				$this->validation->dateDebut = $dateDebut;
				$this->validation->dateFin   = $dateFin;
			}
		}
	}
	
	private function verifierValiditeDate(& $date, $position) {
		$statutValidite = is_null($date) ? 1 : 0;
		$moisParDefaut = $position == 'début' ? 1 : 12;
		$jourParDefaut = $position == 'début' ? 1 : 31;
		if (!is_null($date)) {
			$split = explode("-", $date);
			$annee = intval($split[0]);
			$mois  = isset($split[1]) ? intval($split[1]) : $moisParDefaut;
			$jour  = isset($split[2]) ? intval($split[2]) : $jourParDefaut;
			if (!$this->estDateValide($jour, $mois, $annee)) {
				$message = "Date de {$position} saisie non valide";
				$this->ajouterErreur($message);
			} else {
				$date = $annee."-".(($mois<10)?"0".$mois:$mois)."-".(($jour<10)?"0".$jour:$jour);
				$dateDuJour = date('Y-m-d');
				if ($date > $dateDuJour) {
					$message = "La date de {$position} saisie postérieure à la date du jour : {$dateDuJour}";
					$this->ajouterErreur($message);
				} else {
					$statutValidite = 1;
				}
			}
		}
		return $statutValidite;
	}
	
	private function estDateValide($jour, $mois, $annee) {
		$estBissextile = (($annee % 4 == 0 && $annee % 100 != 0) || ($annee % 400 == 0));
		$dureeFevrier = $estBissextile ? 29 : 28;
		$dureeMois = array(1 => 31, 2 => $dureeFevrier, 3 => 31, 4 => 30, 5 => 31, 6 => 30, 7 => 31,
			8 => 31, 9 => 30, 10 => 31, 11 => 30, 12 => 31);
		return ($annee >= 1900 && $mois >= 1 && $mois <= 12 && $jour >= 1 && $jour <= $dureeMois[$mois]); 
	}
	
	private function verifierPresenceParametreSpatial() {
		$presenceParametreSpatial = false;
		if (isset($this->parametres['bbox'])
			|| (isset($this->parametres['stations']))) {
			$presenceParametreSpatial = true;
		}
		if ($presenceParametreSpatial == false) {
			$message = "Aucune coordonnée n'a été saisie";
			$this->ajouterErreur($message);
		}
	}
	
	private function traiterParametreNbJours($nbJours) {
		// verifier que c'est un nombre entier positif (avec expression reguliere)
		if (preg_match('/^\d+$/', $nbJours) != 1) {
			$message = "La valeur passée pour le nombre de jours doit être un entier positif.";
			$this->ajouterErreur($message);
		} elseif ($nbJours > 0) {
			$this->validation->nbJours = intval($nbJours);
		}
	}
	
}

?>