 <?php
// declare(encoding='UTF-8');
/**
 * Service affichant les dernières photo publiques du CEL ouvrable sous forme de diaporama.
 * Encodage en entrée : utf8
 * Encodage en sortie : utf8
 *
 * Cas d'utilisation et documentation :
 * @link http://www.tela-botanica.org/wikini/eflore/wakka.php?wiki=AideCELWidgetPhoto
 *
 * Paramètres :
 * ===> extra = booléen (1 ou 0)  [par défaut : 1]
 * Affiche / Cache la vignette en taille plus importante au bas du widget.
 * ===> vignette = [0-9]+,[0-9]+  [par défaut : 4,3]
 * Indique le nombre de vignette par ligne et le nombre de ligne.
 *
 * @author		Jean-Pascal MILCENT <jpm@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	Copyright (c) 2010, Tela Botanica (accueil@tela-botanica.org)
 */
class Streets extends WidgetCommun {

	const DS = DIRECTORY_SEPARATOR;
	const SERVICE_DEFAUT = 'saisie';
	const WS_SAISIE = 'CelWidgetSaisie';
	const WS_UPLOAD = 'CelWidgetUploadImageTemp';
	const WS_IMG_LIST = 'celImage';
	const WS_OBS = 'CelObs';
	const WS_OBS_LIST = 'InventoryObservationList';
	const LANGUE_DEFAUT = 'fr';
	const PROJET_DEFAUT = 'streets';
	const WS_NOM = 'noms';
	const EFLORE_API_VERSION = '0.1';
	private $cel_url_tpl = null;
	/** Si spécifié, on ajoute une barre de navigation inter-applications */
	private $bar;
	//private $parametres_autorises = array('projet', 'type', 'langue', 'order');
	private $parametres_autorises = array(
			'projet' => 'projet',
			'type' => 'type',
			'langue' => 'langue',
			'order' => 'order'
	);
	/**
	 * Méthode appelée par défaut pour charger ce widget.
	 */
	public function executer() {
		$retour = null;
		// Pour la création de l'id du cache nous ne tenons pas compte du paramètre de l'url callback
		unset($this->parametres['callback']);
		extract($this->parametres);
		$this->bar = (isset($bar)) ? $bar : false;
		/* Le fichier Framework.php du Framework de Tela Botanica doit être appelé avant tout autre chose dans l'application.
		 Sinon, rien ne sera chargé.
		 L'emplacement du Framework peut varier en fonction de l'environnement (test, prod...). Afin de faciliter la configuration
		 de l'emplacement du Framework, un fichier framework.defaut.php doit être renommé en framework.php et configuré pour chaque installation de
		 l'application.
		 Chemin du fichier chargeant le framework requis */
		$framework = dirname(__FILE__).'/framework.php';
		if (!file_exists($framework)) {
			$e = "Veuillez paramêtrer l'emplacement et la version du Framework dans le fichier $framework";
			trigger_error($e, E_USER_ERROR);
		} else {
			// Inclusion du Framework
			require_once $framework;
			// Ajout d'information concernant cette application
			Framework::setCheminAppli(__FILE__);// Obligatoire
			Framework::setInfoAppli(Config::get('info'));// Optionnel

		}
		$langue = (isset($langue)) ? $langue : self::LANGUE_DEFAUT;
		$this->langue = I18n::setLangue($langue);
		$this->parametres['langue'] = $langue;

		if (!isset($mode)) {
			$mode = self::SERVICE_DEFAUT;
		}
		if (!isset($projet)) {
			$this->parametres['projet'] = self::PROJET_DEFAUT;
		}

		$methode = $this->traiterNomMethodeExecuter($mode);
		if (method_exists($this, $methode)) {
			$retour = $this->$methode();
		} else {
			$this->messages[] = "Ce type de service '$methode' n'est pas disponible.";
		}

		$contenu = '';
		if (is_null($retour)) {
			$this->messages[] = 'La ressource demandée a retourné une valeur nulle.';
		} else {
			if (isset($retour['donnees'])) {
				$retour['donnees']['conf_mode'] = $this->config['parametres']['modeServeur'];
				$retour['donnees']['prod'] = ($this->config['parametres']['modeServeur'] == 'prod');
				$retour['donnees']['bar'] = $this->bar;
				$retour['donnees']['url_base'] = sprintf($this->config['chemins']['baseURLAbsoluDyn'], $this->config['streets']['cheminDos']);
				$retour['donnees']['url_ws_annuaire'] = sprintf($this->config['chemins']['baseURLServicesAnnuaireTpl'], 'utilisateur/identite-par-courriel/');
				$retour['donnees']['url_ws_streets'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_SAISIE);
				$retour['donnees']['url_ws_obs'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_OBS);
				$retour['donnees']['url_ws_obs_list'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_OBS_LIST);
				$retour['donnees']['url_ws_upload'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_UPLOAD);
				$retour['donnees']['url_ws_cel_imgs'] = sprintf($this->config['chemins']['baseURLServicesCelTpl'], self::WS_IMG_LIST) . '/liste-ids?obsId=';
				$retour['donnees']['url_ws_cel_img_url'] = str_replace ( '%s.jpg', '{id}XS', $this->config['chemins']['celImgUrlTpl'] );
				$retour['donnees']['mode'] = $mode;
				$retour['donnees']['langue'] = $langue;
				if( isset( $this->parametres['squelette'] ) ) {
					$squelette = dirname(__FILE__).self::DS.'squelettes'.self::DS. $this->parametres['squelette'].'.tpl.html';
				} else {
					$squelette = dirname(__FILE__).self::DS.'squelettes'.self::DS.$retour['squelette'].'.tpl.html';
				}
				$contenu = $this->traiterSquelettePhp($squelette, $retour['donnees']);
			} else {
				$this->messages[] = 'Les données à transmettre au squelette sont nulles.';
			}
		}
		$this->envoyer($contenu);
	}


	private function executerSaisie() {
		$retour = array();
		$retour['squelette'] = 'streets';
		$retour['donnees']['general'] = I18n::get('General');
		$retour['donnees']['observateur'] = I18n::get('Observateur');
        $retour['donnees']['observation'] = I18n::get('Observation');
        $retour['donnees']['arbres'] = I18n::get('Arbres');
        $retour['donnees']['image'] = I18n::get('Image');
        $retour['donnees']['plantes'] = I18n::get('Plantes');
        $retour['donnees']['chpsupp'] = I18n::get('Chpsupp');
        $retour['donnees']['resume'] = I18n::get('Resume');
		$retour['donnees']['widget'] = $this->rechercherProjet();
		return $retour;
	}

	/* Recherche si le projet existe sinon va chercher les infos de base */
	private function rechercherProjet() {
		$tab = array();
		$url = $this->config['streets']['celUrlTpl'].'?projet='.$this->parametres['projet'].'&langue='.$this->parametres['langue'];
		$json = $this->getDao()->consulter($url);
		$tableau = json_decode($json, true);
		$tableau = $this->traiterParametres($tableau[0]);
		if (isset($this->parametres['squelette']) && $this->parametres['squelette'] === 'plantes') {
			$tableau['type_especes'] = 'liste';
		}
		$tableau['especes'] = $this->rechercherInfosEspeces($tableau);
		if ($tableau['milieux'] != "") {
			$tableau['milieux'] = explode(";", $tableau['milieux']);
		} else {
			$tableau['milieux'] = array();
		}
		if (isset($tableau['motscles'])) {
		    $tableau['tag-obs'] = $tableau['tag-img'] = $tableau['motscles'];
		}
		$tableau['chpSupp'] = $tab;
		$langue_projet_url = ( isset ( $this->parametres['langue'] ) && $this->parametres['langue'] !== 'fr' ) ? '_' . $this->parametres['langue'] : '';
		$tableau['chemin_fichiers'] = sprintf( $this->config['chemins']['baseURLAbsoluDyn'], $this->config['streets']['imgProjet'] . '/' );
		return $tableau;
	}

	// remplace certains parametres définis en bd par les parametres définis dans l'url
	private function traiterParametres($tableau) {
		$criteres = array('tag-obs', 'tag-img', 'projet', 'titre', 'logo');
		foreach($this->parametres as $nom_critere => $valeur_critere) {
			if (in_array($nom_critere, $criteres)) {
				$tableau[$nom_critere] = $valeur_critere;
			}
		}
		return $tableau;
	}

	private function rechercherInfosEspeces( $infos_projets ) { //print_r($infos_projets);exit;
		$retour = array();
		$referentiel = $infos_projets['referentiel'];
		$urlWsNsTpl = $this->config['chemins']['baseURLServicesEfloreTpl'];
		$retour['url_ws_autocompletion_ns'] = sprintf( $urlWsNsTpl, self::EFLORE_API_VERSION, $referentiel, self::WS_NOM );;
		$retour['url_ws_autocompletion_ns_tpl'] = sprintf( $urlWsNsTpl, self::EFLORE_API_VERSION, '{referentiel}', self::WS_NOM );
		$retour['ns_referentiel'] = $referentiel;

		if ( isset( $infos_projets['type_especes'] ) ) {

			switch ( $infos_projets['type_especes'] ) {
				case 'fixe' :
					$retour = $this->chargerInfosTaxon( $infos_projets['referentiel'], $infos_projets['especes'] );
					break;
				case 'referentiel' : break;
				case 'liste' :
					$referentiel = $infos_projets['referentiel'];
					$retour['taxons'] = $this->recupererListeNomsSci();
					break;
			}
		} else if ( isset( $infos_projets['referentiel'] ) ) {
			$referentiel = $infos_projets['referentiel'];
			if ( isset($infos_projets['num_nom'] ) ) {
				$retour = $this->chargerInfosTaxon( $infos_projets['referentiel'], $infos_projets['num_nom'] );
			}
		}
		return $retour;
	}

	/**
	 * Consulte un webservice pour obtenir des informations sur le taxon dont le
	 * numéro nomenclatural est $num_nom (ce sont donc plutôt des infos sur le nom
	 * et non le taxon?)
	 * @param string|int $num_nom
	 * @return array
	 */
	protected function chargerInfosTaxon( $referentiel, $num_nom ) {
		$url_service_infos = sprintf( $this->config['chemins']['infosTaxonUrl'], $referentiel, $num_nom );
		$infos = json_decode( file_get_contents( $url_service_infos ) );
		// trop de champs injectés dans les infos espèces peuvent
		// faire planter javascript
		$champs_a_garder = array( 'id', 'nom_sci','nom_sci_complet', 'nom_complet', 'famille','nom_retenu.id', 'nom_retenu_complet', 'num_taxonomique' );
		$resultat = array();
		$retour = array();
		if ( isset( $infos ) && !empty( $infos ) ) {
			$infos = (array) $infos;
			if ( isset( $infos['nom_sci'] ) && $infos['nom_sci'] !== '' ) {
				$resultat = array_intersect_key( $infos, array_flip($champs_a_garder ) );
				$resultat['retenu'] = ( $infos['id'] == $infos['nom_retenu.id'] ) ? 'true' : 'false';
				$retour['espece_imposee'] = true;
				$retour['nn_espece_defaut'] = $nnEspeceImposee;
				$retour['nom_sci_espece_defaut'] = $resultat['nom_complet'];
				$retour['infos_espece'] = $this->array2js( $resultat, true );
			}
		}
		return $retour;
	}

	protected function getReferentielImpose() {
		$referentiel_impose = true;
		if (!empty($_GET['referentiel']) && $_GET['referentiel'] !== 'autre') {
			$this->ns_referentiel = $_GET['referentiel'];
		} else if (isset($this->configProjet['referentiel'])) {
			$this->ns_referentiel = $this->configProjet['referentiel'];
		} else if (isset($this->configMission['referentiel'])) {
			$this->ns_referentiel = $this->configMission['referentiel'];
		} else {
			$referentiel_impose = false;
		}
		return $referentiel_impose;
	}

	/**
	 * Trie par nom français les taxons lus dans le fichier tsv
	 */
	protected function recupererListeNomsSci() {
		$taxons = $this->recupererListeTaxon();
		if (is_array($taxons)) {
			$taxons = self::trierTableauMd($taxons, array('nom_fr' => SORT_ASC));
		}
		return $taxons;
	}

	/**
	 * @TODO documenter
	 * @return array
	 */
	protected function recupererListeNoms() {
		$taxons = $this->recupererListeTaxon();
		$nomsAAfficher = array();
		$nomsSpeciaux = array();
		if (is_array($taxons)) {
			foreach ($taxons as $taxon) {
				$nomSciTitle = $taxon['nom_ret'].
				($taxon['nom_fr'] != '' ? ' - '.$taxon['nom_fr'] : '' ).
				($taxon['nom_fr_autre'] != '' ? ' - '.$taxon['nom_fr_autre'] : '' );
				$nomFrTitle = $taxon['nom_sel'].
				($taxon['nom_ret'] != $taxon['nom_sel']? ' - '.$taxon['nom_ret'] : '' ).
				($taxon['nom_fr_autre'] != '' ? ' - '.$taxon['nom_fr_autre'] : '' );

				if ($taxon['groupe'] == 'special') {
					$nomsSpeciaux[] = array(
							'num_nom' => $taxon['num_nom_sel'],
							'nom_a_afficher' => $taxon['nom_fr'],
							'nom_a_sauver' => $taxon['nom_sel'],
							'nom_title' => $nomSciTitle,
							'nom_type' => 'nom-special');
				} else {
					$nomsAAfficher[] = array(
							'num_nom' => $taxon['num_nom_sel'],
							'nom_a_afficher' => $taxon['nom_sel'],
							'nom_a_sauver' => $taxon['nom_sel'],
							'nom_title' => $nomSciTitle,
							'nom_type' => 'nom-sci');
					$nomsAAfficher[] = array(
							'num_nom' => $taxon['num_nom_sel'],
							'nom_a_afficher' => $taxon['nom_fr'],
							'nom_a_sauver' => $taxon['nom_fr'],
							'nom_title' => $nomFrTitle,
							'nom_type' => 'nom-fr');
				}
			}
			$nomsAAfficher = self::trierTableauMd($nomsAAfficher, array('nom_a_afficher' => SORT_ASC));
			$nomsSpeciaux = self::trierTableauMd($nomsSpeciaux, array('nom_a_afficher' => SORT_ASC));
		}
		return array('speciaux' => $nomsSpeciaux, 'sci-et-fr' => $nomsAAfficher);
	}

	/**
	 * Lit une liste de taxons depuis un fichier tsv fourni
	 */
	protected function recupererListeTaxon() {
		$taxons = array();
		$fichier_tsv = dirname(__FILE__) . self::DS . 'configurations' . self::DS . 'sauvages_taxons.tsv';

		if ( file_exists( $fichier_tsv ) && is_readable( $fichier_tsv ) ) {
			$taxons = $this->decomposerFichierTsv( $fichier_tsv );
		} else {
			$this->debug[] = "Impossible d'ouvrir le fichier '$fichier_tsv'.";
		}
		return $taxons;
	}

	/**
	 * Découpe un fihcier csv
	 */
	protected function decomposerFichierTsv($fichier, $delimiter = "\t"){
		$header = null;
		$data = array();
		if (($handle = fopen($fichier, "r")) !== FALSE) {
			while (($row = fgetcsv($handle, 1000, $delimiter)) !== FALSE) {
				if (!$header) {
					$header = $row;
				} else {
					$data[] = array_combine($header, $row);
				}
			}
			fclose($handle);
		}
		return $data;
	}

	/**
	 * Convertit un tableau PHP en Javascript - @WTF pourquoi ne pas faire un json_encode ?
	 * @param array $array
	 * @param boolean $show_keys
	 * @return une portion de JSON représentant le tableau
	 */
	protected function array2js($array,$show_keys) {
		$tableauJs = '{}';
		if (!empty($array)) {
			$total = count($array) - 1;
			$i = 0;
			$dimensions = array();
			foreach ($array as $key => $value) {
				if (is_array($value)) {
					$dimensions[$i] = array2js($value,$show_keys);
					if ($show_keys) {
						$dimensions[$i] = '\"'.$key.'\":'.$dimensions[$i];
					}
				} else {
					$dimensions[$i] = '\"'.addslashes($value).'\"';
					if ($show_keys) {
						$dimensions[$i] = '\"'.$key.'\":'.$dimensions[$i];
					}
				}
				if ($i == 0) {
					$dimensions[$i] = '{'.$dimensions[$i];
				}
				if ($i == $total) {
					$dimensions[$i].= '}';
				}
				$i++;
			}
			$tableauJs = implode(',', $dimensions);
		}
		return $tableauJs;
	}
}
?>