Subversion Repositories eFlore/Projets.eflore-projets

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
705 delphine 1
<?php
2
/** Exemple lancement:
3
 * /opt/lampp/bin/php -d memory_limit=3500M ~/web/eflore-projets/scripts/cli.php sauvages -a chargerTous
4
*/
5
class Sauvages extends EfloreScript {
6
	private $contenu_fichier = array();
7
	protected $parametres_autorises = array(
8
			'-f' => array(true, true, 'Nom du fichier ou du dossier à traiter'));
853 delphine 9
	private $caracteresAccentues = array(
10
			'À', 'Á', 'Â', 'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î',
11
			'Ï', 'Ð', 'Ñ', 'Ò', 'Ó', 'Ô', 'Õ', 'Ö', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'ß',
12
			'à', 'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î',
13
			'ï', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 'ÿ', 'Ā',
14
			'ā', 'Ă', 'ă', 'Ą', 'ą', 'Ć', 'ć', 'Ĉ', 'ĉ', 'Ċ', 'ċ', 'Č', 'č', 'Ď', 'ď',
15
			'Đ', 'đ', 'Ē', 'ē', 'Ĕ', 'ĕ', 'Ė', 'ė', 'Ę', 'ę', 'Ě', 'ě', 'Ĝ', 'ĝ', 'Ğ',
16
			'ğ', 'Ġ', 'ġ', 'Ģ', 'ģ', 'Ĥ', 'ĥ', 'Ħ', 'ħ', 'Ĩ', 'ĩ', 'Ī', 'ī', 'Ĭ', 'ĭ',
17
			'Į', 'į', 'İ', 'ı', 'IJ', 'ij', 'Ĵ', 'ĵ', 'Ķ', 'ķ', 'Ĺ', 'ĺ', 'Ļ', 'ļ', 'Ľ',
18
			'ľ', 'Ŀ', 'ŀ', 'Ł', 'ł', 'Ń', 'ń', 'Ņ', 'ņ', 'Ň', 'ň', 'ʼn', 'Ō', 'ō', 'Ŏ',
19
			'ŏ', 'Ő', 'ő', 'Œ', 'œ', 'Ŕ', 'ŕ', 'Ŗ', 'ŗ', 'Ř', 'ř', 'Ś', 'ś', 'Ŝ', 'ŝ',
20
			'Ş', 'ş', 'Š', 'š', 'Ţ', 'ţ', 'Ť', 'ť', 'Ŧ', 'ŧ', 'Ũ', 'ũ', 'Ū', 'ū', 'Ŭ',
21
			'ŭ', 'Ů', 'ů', 'Ű', 'ű', 'Ų', 'ų', 'Ŵ', 'ŵ', 'Ŷ', 'ŷ', 'Ÿ', 'Ź', 'ź', 'Ż',
22
			'ż', 'Ž', 'ž', 'ſ', 'ƒ', 'Ơ', 'ơ', 'Ư', 'ư', 'Ǎ', 'ǎ', 'Ǐ', 'ǐ', 'Ǒ', 'ǒ',
23
			'Ǔ', 'ǔ', 'Ǖ', 'ǖ', 'Ǘ', 'ǘ', 'Ǚ', 'ǚ', 'Ǜ', 'ǜ', 'Ǻ', 'ǻ', 'Ǽ', 'ǽ', 'Ǿ', 'ǿ');
24
	private $caracteresNormaux = array(
25
			'A', 'A', 'A', 'A', 'A', 'A', 'AE', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I',
26
			'I', 'D', 'N', 'O', 'O', 'O', 'O', 'O', 'O', 'U', 'U', 'U', 'U', 'Y', 's',
27
			'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i',
28
			'i', 'n', 'o', 'o', 'o', 'o', 'o', 'o', 'u', 'u', 'u', 'u', 'y', 'y', 'A', 'a',
29
			'A', 'a', 'A', 'a', 'C', 'c', 'C', 'c', 'C', 'c', 'C', 'c', 'D', 'd', 'D', 'd',
30
			'E', 'e', 'E', 'e', 'E', 'e', 'E', 'e', 'E', 'e', 'G', 'g', 'G', 'g', 'G', 'g',
31
			'G', 'g', 'H', 'h', 'H', 'h', 'I', 'i', 'I', 'i', 'I', 'i', 'I', 'i', 'I', 'i',
32
			'IJ', 'ij', 'J', 'j', 'K', 'k', 'L', 'l', 'L', 'l', 'L', 'l', 'L', 'l', 'l', 'l',
33
			'N', 'n', 'N', 'n', 'N', 'n', 'n', 'O', 'o', 'O', 'o', 'O', 'o', 'OE', 'oe', 'R',
34
			'r', 'R', 'r', 'R', 'r', 'S', 's', 'S', 's', 'S', 's', 'S', 's', 'T', 't', 'T', 't',
35
			'T', 't', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'W', 'w', 'Y',
36
			'y', 'Y', 'Z', 'z', 'Z', 'z', 'Z', 'z', 's', 'f', 'O', 'o', 'U', 'u', 'A', 'a', 'I',
37
			'i', 'O', 'o', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'U', 'u', 'A', 'a', 'AE', 'ae', 'O', 'o');
705 delphine 38
 
39
	public function executer() {
40
		// Lancement de l'action demandée
41
		try {
42
			$this->initialiserProjet('sauvages');
43
 
44
			$cmd = $this->getParametre('a');
45
			switch ($cmd) {
46
				case 'chargerTous' :
47
					$this->creerXmlTaxons();
48
					$this->creerXmlCriteres();
49
					break;
50
				case 'creerXmlCriteres' :
51
					$this->creerXmlCriteres();
52
					break;
53
				case 'creerXmlTaxons' :
54
					$this->creerXmlTaxons();
55
					break;
56
				default :
57
					throw new Exception("Erreur : la commande '$cmd' n'existe pas!");
58
			}
59
		} catch (Exception $e) {
60
			$this->traiterErreur($e->getMessage());
61
		}
62
	}
63
 
64
	public function creerXmlCriteres() {
65
		$this->recupererContenuFichier();
853 delphine 66
		$criteres_nom = $this->contenu_fichier[0];
67
		unset($this->contenu_fichier[0]);
68
		$criteres_label = $this->contenu_fichier[1];
705 delphine 69
		unset($this->contenu_fichier[1]);
853 delphine 70
		$description_label = $this->contenu_fichier[2];
71
		unset($this->contenu_fichier[2]);
705 delphine 72
		$criteres_valeurs = $this->extraireValeurs();
853 delphine 73
		$xml = $this->formerXmlCriteres($criteres_nom, $criteres_label, $description_label, $criteres_valeurs);//print_r($xml);
705 delphine 74
		file_put_contents("./xml_criteres.xml", $xml);
75
	}
76
 
77
 
853 delphine 78
	public function formerXmlCriteres($nom, $label, $description, $valeurs) {
705 delphine 79
		$xml='<keys>
80
				<groupe id="1">
81
					<nom>Arbres</nom>
82
					<media>images/pictos/icone_arbre.png</media>
83
					<criteres>';
84
		foreach ($label as $id=>$criteres) {
85
			if ($id > 2) {
86
				$xml .= '<critere id="1.'.$id.'">
87
							<label>'.$criteres.'</label>
88
							<description>'.$description[$id].'</description>
89
							<valeurs>';
90
				foreach ($valeurs[$id] as $id_val=>$valeur) {
91
					if ($valeur != "0") {
853 delphine 92
						$crit = str_replace(" ", "_", $this->supprimerAccents($nom[$id]));
93
						$val = str_replace(" ", "_", $this->supprimerAccents($valeur));
94
						$image = $crit."_".$val;
705 delphine 95
						$xml .= '<valeur code="1.'.$id.'.'.$id_val.'" media="images/pictos/'.$image.'.png">'.$valeur.'</valeur>';
96
					}
97
				}
98
				$xml .= '</valeurs></critere>';
99
			}
100
		}
101
		$xml .= "</criteres>
102
			</groupe>
103
			</keys>";
104
		return $xml;
105
	}
106
 
107
	private function extraireValeurs() {
108
		$valeurs = array();
109
		foreach ($this->contenu_fichier as $ligne) {
110
			$i = 0;
111
			foreach ($ligne as $critere) {
112
				if (!isset($valeurs[$i]) || !in_array(trim($critere), $valeurs[$i])) {
113
					$valeurs[$i][] = trim($critere);
114
				}
115
				$i++;
116
			}
117
		}
118
		return $valeurs;
119
	}
120
 
121
 
122
	public function creerXmlTaxons() {
123
		$this->recupererContenuFichier();
124
		$criteres_label = array_flip($this->contenu_fichier[0]);
125
		unset($this->contenu_fichier[0]);
126
		unset($this->contenu_fichier[1]);
853 delphine 127
		unset($this->contenu_fichier[2]);
705 delphine 128
		$criteres_valeurs = $this->extraireValeurs();
129
		$xml = $this->formerXmlTaxons($criteres_label, $criteres_valeurs); //print_r($xml);
130
		file_put_contents("./xml_taxons.xml", $xml);
131
	}
132
 
133
	public function formerXmlTaxons($criteres_label, $criteres_valeurs) {
134
		$xml='<?xml version="1.0" ?><TAXONS SUBJECT="XML">';
135
		$rest = new RestClient();
136
		foreach ($this->contenu_fichier as $id=>$taxon) {
137
			$infos_taxon = $this->rechercherInfosTaxon($rest, $taxon[$criteres_label["nom scientifique"]]);
138
			$xml .= '<TAXON id="'.$id.'" value="'.
139
				ucfirst($taxon[$criteres_label["nom vernaculaire"]]).'" sciName="'.$taxon[$criteres_label["nom scientifique"]].'" groupe="1">
140
			<DESCRIPTION>'.$infos_taxon["description"].'</DESCRIPTION>
141
			<PICTURES>';
142
			if ($infos_taxon["images"] != array()) {
143
				foreach ($infos_taxon["images"] as $image) {
144
					$xml .= '<PICTURE media="'.$image["binaire.href"].'"><author>'.$image["auteur.libelle"].'</author></PICTURE>';
145
				}
146
			}
147
			$xml .= '</PICTURES><CRITERIAS>';
148
			for ($i=3; $i < count($taxon); $i++) {
149
				if (trim($taxon[$i]) !== "0") {
150
					$xml .= '<VALUE code="1.'.$i.'.'.array_search(trim($taxon[$i]), $criteres_valeurs[$i]).'"/>';
151
				}
152
			}
153
			$xml .= '</CRITERIAS></TAXON>';
154
		}
155
		$xml .= "</TAXONS>";
156
		return $xml;
157
	}
158
 
159
	private function rechercherInfosTaxon($rest, $ns) {
160
		$info = array("description" => "", "images" => array());
161
		$reponse = $this->consulterWebService($rest, "bdtfx", "taxons", "?masque=".urlencode(rtrim($ns)));
162
		if (is_array($reponse["resultat"])) {
163
			$id = key($reponse["resultat"]);
164
		} else {
853 delphine 165
			$reponse = $this->consulterWebService($rest, "bdtfx", "noms", "?retour.champs=nom_retenu.id&masque=".urlencode(rtrim($ns)));
705 delphine 166
			if (is_array($reponse["resultat"])) {
167
				$id = $reponse["resultat"][key($reponse["resultat"])]["nom_retenu.id"];
168
			}
169
		}
170
		$reponse = $this->consulterWebService($rest, "coste", "textes", "/bdtfx.nn:".$id);
171
		if ($reponse['texte'] != ""){
853 delphine 172
			$texte = str_replace("**", "", $reponse['texte']);
173
			$texte = str_replace("//", "", $texte);
174
			$texte = explode(" – ", $texte);
175
			unset($texte[0],$texte[1]);
176
			if (strpos($texte[2], ";") === false) {unset($texte[2]);} else {print_r($texte[2]);}
177
 
178
			if (preg_match('/^[\w|\s|\-|,]*\.*\s*$/', $texte[2]) == true) {print_r($texte[2]); unset($texte[2]);}
179
			$info["description"] = implode(" – ", $texte);
705 delphine 180
		} else {
181
			$reponse = $this->consulterWebService($rest, "baseflor", "informations", "/bdtfx.nn:".$id);
182
			$info["description"] = $this->formaterBaseflor($reponse);
183
		}
184
		$reponse = $this->consulterWebService($rest, "cel", "images", "?navigation.limite=5&retour.format=CRS&masque.nn=".$id);
185
		$info["images"] = $reponse["resultats"];
186
		return $info;
187
	}
188
 
189
	private function formaterBaseflor($reponse) {
190
		$description = "En cours de rédaction.";
191
		if ($reponse["idiotaxon"] != "") {
853 delphine 192
			$description = "Formation végétale : ".$reponse["form_vegetale"]."; ".
705 delphine 193
							"Inflorescence : ".$reponse["inflorescence"]."; ".
194
							"Couleur de la fleur : ".$reponse["couleur_fleur"]."; ".
195
							"Sexualité : ".$reponse["sexualite"]."; ".
196
							"Fruit : ".$reponse["fruit"]."; ".
197
							"Pollinisation : ".$reponse["pollinisation"]."; ".
198
							"Dissémination : ".$reponse["dissemination"]."; ".
199
							"Ecologie : ".$reponse["carac_ecolo"]." – ".
200
							"Chorologie : ".$reponse["chorologie"]."; ".
201
							"Floraison :  ".$reponse["floraison"];
202
		}
203
		return $description;
204
	}
205
 
206
	private function consulterWebService($rest, $projet,$resssource,$parametres) {
207
		$url_id = "http://www.tela-botanica.org/service:eflore:0.1/".$projet."/".$resssource.$parametres;
208
		$reponse = $rest->consulter($url_id);
209
		return json_decode($reponse, true);
210
	}
211
 
212
 
213
	private function recupererContenuFichier() {
214
		$nomFichier = Config::get('dossierCsv').Config::get('projet');
215
		if ($nomFichier && file_exists($nomFichier) ){
216
			$extensionFichier = strtolower(strrchr($nomFichier, '.'));
217
			if ($extensionFichier === ".csv"){
218
				$file = new SplFileObject($nomFichier);
219
				$file->setFlags(SplFileObject::SKIP_EMPTY);
220
				$i = 0;
221
				echo "Traitement du fichier : ";
222
				while (!$file->eof()){
223
					$ligne_csv = $file->fgetcsv($delimiter = ';');
224
						$this->contenu_fichier[$i] = $ligne_csv;
225
					echo str_repeat(chr(8), ( strlen( $i ) + 1 ))."\t".$i++;
226
				}
227
				echo "\n";
228
			} else {
229
				$this->traiterErreur("Le fichier : $nomFichier n'est pas au format csv.");
230
			}
231
		} else {
232
			$this->traiterErreur("Le fichier : $nomFichier n'existe pas.");
233
		}
234
	}
853 delphine 235
 
236
	public function supprimerAccents($chaine) {
237
		return str_replace($this->caracteresAccentues, $this->caracteresNormaux, $chaine);
238
	}
705 delphine 239
}
240
?>