Subversion Repositories eFlore/Applications.cel

Rev

Rev 2910 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2538 aurelien 1
<?php
2926 mathias 2
// declare(encoding='UTF-8');
3
/**
4
 * Classe recherchant des infos sur une zone géo ou bien des coordonnées.
5
 *
6
 * @internal   Mininum PHP version : 5.2
7
 * @category   CEL
8
 * @package    Services
9
 * @subpackage Bibliothèques
10
 * @version    0.1
11
 * @author     Mathias CHOUET <mathias@tela-botanica.org>
12
 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>
13
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
14
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
15
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
16
 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>
17
 */
2538 aurelien 18
class RechercheInfosZoneGeo extends Cel {
2557 aurelien 19
 
2565 aurelien 20
	public $maxTimeoutRequeteMondiale = 0;
21
 
2557 aurelien 22
	/**
23
	 * Cas de la demande par lat et lon
24
	 * array(
25
	 * 		'code_pays' => 'FR',
26
	 * 		'code_zone' => 'INSEE-D:35800',
27
	 * 		'type' => 'france',
28
	 * 		'nom' => 'Taulignan-les-oies'
29
	 * 	);
30
	 *
31
	 * 	array(
32
	 * 		'code_pays' => 'RU',
33
	 * 		'code_zone' => 'OSM-ID:4511574',
34
	 * 		'type' => 'monde',
35
	 * 		'nom' => 'Moscou'
36
	 * 	);
37
	 *
38
	 * Cas de la demande par nom
39
	 * array(
40
     * 		'lat': 40.372934,
41
 	 *		'lng': -3.690601,
42
 	 *		'nom': 'Madrid',
43
 	 *		'code_zone': 'OSM-ID:558474',
44
     *		'code_pays': 'ES',
45
     *		'type': 'monde'
46
	 * 	);
47
	 *
48
	 * 	array(
49
     * 		'lat': 48.860799,
50
 	 *		'lng': 2.3457986,
51
 	 *		'nom': 'Paris',
52
 	 *		'code_zone': '75056',
53
     *		'code_pays': 'FR',
54
     *		'type': 'france'
55
	 * 	);
56
	 *
57
	 */
2538 aurelien 58
 
59
	//TODO: migrer tout ce qui concerne la zone géo dans cette classe
2926 mathias 60
	public function obtenirInfosPourCoordonnees($coordonnees) {
61
		$infos_coord = null;
62
		// Test facile qui permet d'abord de tenter une localisation bien plus rapide si les coordonnées
63
		// sont dans la bounding box approximative de la France
64
		if($this->testerCoordonneesWgsFrance($coordonnees['latitude'], $coordonnees['longitude'])) {
65
			$infos_coord = $this->chercherInfosCommune('osm', $coordonnees['latitude'], $coordonnees['longitude']);
66
			if ($infos_coord == null) {
67
				// Sinon recherche par pays
68
				$infos_coord = $this->chercherInfosPays($coordonnees['latitude'], $coordonnees['longitude']);
69
			}
70
		} else {
71
			// Recherche par pays immédiate si en dehors de la bouding box française
72
			$infos_coord = $this->chercherInfosPays($coordonnees['latitude'], $coordonnees['longitude']);
73
		}
74
		return $infos_coord;
2557 aurelien 75
	}
76
 
77
	public function obtenirInfosPourNoms($nom, $pays, $code) {
2564 aurelien 78
 
79
		$nom = trim($nom);
80
		$pays = trim($pays);
81
		$code = trim($code);
82
 
2557 aurelien 83
		$retour = false;
84
		// Dans le cas de la france on possède directement une table
85
		// avec les centroïdes des communes
2564 aurelien 86
		if($pays == 'FR' || $code != "") {
2557 aurelien 87
			$retour = $this->chercherCentroideCommuneBdd($nom, $code);
88
		} else {
89
			// Sinon méthode habituelle, un test simple suivi d'un test plus complexe
2564 aurelien 90
			// On cherche donc d'abord en France
91
			if($pays == "") {
92
				$retour = $this->chercherCentroideCommuneBdd($nom, $code);
2557 aurelien 93
			}
2564 aurelien 94
 
95
			// Si on ne trouve rien on teste dans le monde entier
2926 mathias 96
			if($retour == false) {
2564 aurelien 97
				$retour = $this->effectuerRequeteGeocodingMondiale($nom, '2,3,4,5,6,7,8', 1, $pays);
98
			}
2557 aurelien 99
		}
100
 
101
		return $retour;
2926 mathias 102
	}
103
 
104
	public function chercherInfosCommune($projet, $latitude, $longitude) {
105
 
106
		$valeurs_params = '?lat='.$latitude.'&lon='.$longitude;
107
		$url_service = $this->config['cel']['url_service_geo_local'].$valeurs_params;
108
		$url_service = str_replace(',', '.', $url_service);
109
 
110
		$ch = curl_init($url_service);
111
		curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
112
		$reponse = curl_exec($ch);
113
 
114
		$infos_coord = $this->traiterReponseServiceCommune($reponse);
115
		curl_close($ch);
116
 
117
		return $infos_coord;
118
	}
119
 
2538 aurelien 120
	public function chercherInfosPays($latitude, $longitude) {
2926 mathias 121
 
2538 aurelien 122
		$valeurs_params = '?lat='.$latitude.'&lon='.$longitude;
123
		$url_service = $this->config['cel']['url_service_geo_mondial'].$valeurs_params;
2926 mathias 124
		$url_service = str_replace(',', '.', $url_service);
125
 
126
		$ch = curl_init($url_service);
127
		curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
128
		$reponse = curl_exec($ch);
129
 
130
		$res = json_decode($reponse, true);
2557 aurelien 131
		$retour = null;
132
 
2926 mathias 133
		$retour = array(
134
					'code_zone' => '',
135
					'code_pays' => '',
136
					'nom' => '',
2557 aurelien 137
					'type' => ''
138
				);
2926 mathias 139
 
140
		if(!empty($res)) {
141
			// Cas où l'on a recherché des coordonnées en France
142
			// On en profite pour remplir plus de données
143
			// que le simple pays si elles sont présentes
144
			if(isset($res[8]) && isset($res[8]['codeInsee'])) {
145
				$retour = array(
2557 aurelien 146
						'code_zone' => $res[8]['codeInsee'],
2926 mathias 147
						'code_pays' => 'FR',
148
						'nom' => $res[8]['nom'],
149
						'type' => 'france'
150
				);
151
			} else {
152
				// Cas de la recherche en dehors de France
153
				// La zone de plus haut niveau est toujours un pays
154
				// (car le niveau de zone est limité à 2)
155
				$infos_pays = $res[min(array_keys($res))];
156
				// La zone de niveau le plus bas est la "localité"
157
				// la plus précise qu'on a pu trouver
158
				$infos_localite = $res[max(array_keys($res))];
159
 
160
				// Cas où l'on a trouvé un code pays
161
				if(!empty($infos_pays['codeIso31661'])) {
162
					$retour = array(
163
							'code_pays' => $infos_pays['codeIso31661'],
164
							'nom' => ''
165
					);
166
				} elseif(!empty($infos_pays['codeIso31662'])) {
167
					// Quelquefois la zone de plus haut niveau est une région ou une province
168
					// heureusement son code est de forme XX-YY ou XX est le code iso du pays !
169
					$retour = array(
170
							'code_pays' => substr($infos_pays['codeIso31662'], 0, 2),
171
							'nom' => ''
172
					);
173
				}
174
 
175
				// Pas de sens de prendre un nom de localité si on a pas de pays
176
				if(!empty($retour['code_pays'])) {
177
					// Type sert à savoir quelle fonction de mise à jour on appellera
178
					$retour['type'] = 'monde';
2557 aurelien 179
					$retour['nom'] = $infos_localite['intitule'];
2926 mathias 180
					$retour['code_zone'] = $infos_localite['codeZoneGeo'];
181
				}
182
			}
2557 aurelien 183
		}
2926 mathias 184
 
185
		return $retour;
186
	}
187
 
188
	public function traiterReponseServiceCommune($reponse) {
189
		$retour = null;
190
		$reponse = json_decode($reponse);
191
		// cas du service lion 1906 qui peut renvoyer plusieurs communes (on prend la première)
192
		if (is_array($reponse)) {
193
			$reponse = $reponse[0];
194
		}
195
		if (isset($reponse->codeINSEE)) {
196
			// Type sert à savoir quelle fonction de mise à jour on appellera
2557 aurelien 197
			$retour = array(
198
						'code_zone' => $reponse->codeINSEE,
2926 mathias 199
						'code_pays' => 'FR',
200
						'nom' => $reponse->nom,
2557 aurelien 201
						'type' => 'france'
2926 mathias 202
					);
203
		}
204
		return $retour;
2538 aurelien 205
	}
206
 
2926 mathias 207
	private function effectuerRequeteGeocodingMondiale($nom, $niveau = '2,3,4,5,6,7,8', $limite = 1, $pays = null) {
208
		$url_sans_pays = $this->config['cel']['url_service_geo_mondial'].'?masque='.urlencode($nom).'&niveau='.$niveau.'&limite='.$limite;
2564 aurelien 209
		$url = $url_sans_pays.(!empty($pays) ? '&pays='.urlencode($pays) : '');
210
 
2926 mathias 211
		$ch = curl_init($url);
2565 aurelien 212
		curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
2926 mathias 213
		curl_setopt($ch, CURLOPT_TIMEOUT, $this->maxTimeoutRequeteMondiale);
2565 aurelien 214
		$reponse = curl_exec($ch);
215
 
216
		$res = @json_decode($reponse, true);
2557 aurelien 217
 
2926 mathias 218
		$retour = array();
2557 aurelien 219
 
220
		if(!empty($res)) {
2926 mathias 221
			// cas de la localisation directe d'une commune
2557 aurelien 222
			if($limite == 1) {
223
				$retour = $this->traiterLigneResultatRequeteGeocodingMondiale($res);
224
			} else {
225
				// cas de l'autocompletion
226
				$retour = array();
227
				foreach($res as $ligne) {
228
					$ligne_decodee = $this->traiterLigneResultatRequeteGeocodingMondiale($ligne);
229
					$param = array('nom' => $ligne_decodee['nom'], 'code' => $ligne_decodee['code_pays']);
230
					$retour[] = $this->formaterLigneResultat($param);
231
				}
232
			}
2564 aurelien 233
		} else if($limite == 1) {
234
			// Dans le cas où un pays a été demandé mais pas de résultat, on rentente la recherche sans
235
			// préciser de pays
236
			$res = @json_decode(file_get_contents($url_sans_pays), true);
237
 
2926 mathias 238
			if(!empty($res)) {
2564 aurelien 239
				$retour = $this->traiterLigneResultatRequeteGeocodingMondiale($res);
240
			}
2926 mathias 241
		}
242
 
243
		return $retour;
2557 aurelien 244
	}
245
 
2926 mathias 246
	private function chercherCentroideCommuneBdd($commune, $departement) {
2557 aurelien 247
		$commune_formatee = str_replace(array(' ', '-'), '_', trim($commune));
248
 
2926 mathias 249
		$departement = trim($departement, "*");
250
		if (strlen($departement) > 2) {
251
			$departement = substr($departement, 0, 2);
252
		}
253
		$requete = 'SELECT utm_x, utm_y, utm_secteur, code FROM cel_zones_geo '.
254
				'WHERE nom LIKE '.Cel::db()->proteger($commune_formatee).' '.
255
				'AND code LIKE '.Cel::db()->proteger($departement.'%').' '.
2557 aurelien 256
				' -- '.__FILE__.':'.__LINE__;
2926 mathias 257
 
258
		$commune_coordonnees = Cel::db()->requeter($requete);
259
 
260
		$retour = false;
261
		if ($commune_coordonnees && is_array($commune_coordonnees) && count($commune_coordonnees) > 0) {
262
			$lat_lon = $this->convertirUtmVersLatLong($commune_coordonnees[0]['utm_x'],$commune_coordonnees[0]['utm_y'],$commune_coordonnees[0]['utm_secteur']);
263
 
264
			$retour = array(
265
					'lat' => (float) $lat_lon['lat'],
266
					'lng' => (float) $lat_lon['lng'],
267
					'nom' => $commune,
268
					'code_zone' => $commune_coordonnees[0]['code'],
2557 aurelien 269
					'code_pays' => 'FR',
2926 mathias 270
					'type' => 'france'
271
			);
272
		}
273
		return $retour;
2557 aurelien 274
	}
275
 
276
	public function obtenirListeInfosPourNom($lieu) {
277
		$lieux_retour = $this->obtenirListeCommunes($lieu);
278
 
279
		// S'il y a moins de 50 résultats on tente des les fusionner avec une recherche mondiale
280
		// avec 50 - n éléments (où n est la taille du tableau de communes)
281
		if(count($lieux_retour) < 50) {
282
			$lieux_mondiaux = $this->effectuerRequeteGeocodingMondiale($lieu, '2,3,4,5,6,7,8', 50 - count($lieux_retour));
283
			usort($lieux_mondiaux, array($this, 'trierListeLieux'));
284
			$lieux_retour += $lieux_mondiaux;
285
		}
286
 
2926 mathias 287
		// Suppression de possibles doublons @WARNING marche pas !!!
288
		//$lieux_retour = $this->reduireListeLieux($lieux_retour);
2557 aurelien 289
 
290
		return $lieux_retour;
291
	}
292
 
293
	public function obtenirListeCommunes($lieu) {
2926 mathias 294
		$lieu_formate = $this->formaterChaineLieuPourRequete($lieu);
295
		$retour = array();
296
 
297
		if ($this->estUneChaineRequeteValide($lieu_formate)) {
298
			$requete = 'SELECT DISTINCT nom, code '.
299
					'FROM cel_zones_geo '.
300
					'WHERE nom LIKE '.Cel::db()->proteger($lieu_formate.'%').' '.
301
					'ORDER BY nom '.
302
					'LIMIT 50 '.
303
					' -- '.__FILE__.':'.__LINE__;
304
 
305
			$liste_lieux = Cel::db()->requeter($requete);
306
			if ($liste_lieux) {
307
				foreach ($liste_lieux as $lieu_trouve) {
308
					$retour[] = $this->formaterLigneResultat($lieu_trouve);
309
				}
310
			}
311
		}
2557 aurelien 312
		return $retour;
313
	}
314
 
315
	/**
316
	 * Fonctions utilitaires
2926 mathias 317
	 */
318
 
319
	// qui a écrit cette m*rde ?
2557 aurelien 320
	private function reduireListeLieux($tableau) {
321
		$index = array();
322
		foreach($tableau as $ligne) {
2926 mathias 323
			// merci de mettre des commentaires !!!
324
			// ça enlève les 2 premières lettres ou chiffres du nom de lieu => wtf ?
2557 aurelien 325
			$index_loc = trim(preg_replace("/\([a-zA-Z0-9]{2}\)$/", "", $ligne[0]));
326
			if(!isset($index[$index_loc])) {
327
				$index[$index_loc] = $ligne;
328
			} else {
329
				if(mb_strlen($ligne[0]) > mb_strlen($index[$index_loc][0])) {
330
					$index[$index_loc] = $ligne;
331
				} else if(mb_strlen($ligne[0]) == mb_strlen($index[$index_loc][0])) {
332
					if(preg_match("/(.)* ([a-zA-Z0-9]{2})/", $ligne[0])) {
333
						$index[$index_loc] = $ligne;
334
					}
335
				}
336
			}
337
		}
338
 
339
		return array_values($index);
340
	}
341
 
342
	private function trierListeLieux($a, $b) {
343
		return strcmp($a[0], $b[0]);
344
	}
2926 mathias 345
 
346
	private function testerCoordonneesWgsFrance($latitude, $longitude) {
347
		$coord_france = false;
348
		if ($latitude != '' && $longitude != '') {
349
			if ($latitude < 51.071667 && $latitude > 41.316667) {
350
				if ($longitude < 9.513333 && $longitude > -5.140278) {
351
					$coord_france = true;
352
				}
353
			}
354
		}
355
		return $coord_france;
2538 aurelien 356
	}
2557 aurelien 357
 
2926 mathias 358
	private function traiterLigneResultatRequeteGeocodingMondiale($res) {
359
 
360
		$lat = "";
361
		$lon = "";
362
		$nom = "";
363
		$code ="";
364
		$code_pays="";
365
		$type="";
366
 
367
		if(!empty($res)) {
368
			$code_pays = $this->extraireCodePays($res);
369
 
370
			$nom = $res['intitule'];
371
			$lat = $res['centre_lat'];
372
			$lon = $res['centre_lng'];
373
			$type = $code_pays == 'FR' || $code_pays == 'FX' ? 'france' : 'monde';
374
 
375
			$retour = array(
376
					'lat' => (float)$lat,
377
					'lng' => (float)$lon,
378
					'nom' => $nom,
379
					'code_zone' => $code,
380
					'code_pays' => $code_pays,
381
					'type' => $type
382
			);
383
		}
384
 
385
		return $retour;
2557 aurelien 386
	}
387
 
2926 mathias 388
	private function convertirUtmVersLatLong($x, $y, $sector) {
389
		$convertisseur = new gPoint();
390
		$convertisseur->setUTM($x, $y, $sector);
391
		$convertisseur->convertTMtoLL();
392
 
393
		$lat_long = array();
394
		$lat_long['lat'] = str_replace(',','.',$convertisseur->Lat());
395
		$lat_long['lng'] = str_replace(',','.',$convertisseur->Long());
396
		return $lat_long;
2557 aurelien 397
	}
398
 
2926 mathias 399
	private function extraireCodePays($infos_pays) {
400
		$code = "";
401
		if(!empty($infos_pays['codeIso31661'])) {
402
			$code = $infos_pays['codeIso31661'];
403
		} elseif(!empty($infos_pays['codeIso31662'])) {
404
			// Si pas de code pays, le sous code peut exister et content le code pays
405
			// sous la forme codepays-souscode
406
			$code = substr($infos_pays['codeIso31662'], 0, 2);
407
		}
408
		return $code;
2557 aurelien 409
	}
2926 mathias 410
 
411
	private function estUneChaineRequeteValide($lieu) {
412
		return (strlen($lieu) > 0) && ($lieu != '%');
2557 aurelien 413
	}
2926 mathias 414
 
2557 aurelien 415
	private function formaterLigneResultat($ligne) {
416
		if(empty($ligne['code']) || $ligne['code'] == null) {
417
			$res = array($ligne['nom'], '');
418
		} else {
419
			$res = array($ligne['nom'].' ('.substr(sprintf('%02s', $ligne['code']),0,2).')', $ligne['code']);
2926 mathias 420
		}
421
		return $res;
2557 aurelien 422
	}
423
 
2926 mathias 424
	/**
425
	 * Remplace les * par % pour faire des recherches floues
426
	 * Remplace les + par _ (nginx envoie des "+" dans l'URL à la place des espaces)
427
	 * Remplace les espaces et les - par _ car les noms de communes peuvent avoir des espaces ou des tirets
428
	 * @param string $lieu
429
	 * @return string le lieu formaté pour la recherche
430
	 */
431
	private function formaterChaineLieuPourRequete($lieu) {
432
		$lieu = ltrim($lieu);
433
		$lieu = preg_replace('/\*+/', '%', $lieu);
434
		$lieu = str_replace(['+', ' ', '-'], '_', $lieu);
435
		return $lieu;
2557 aurelien 436
	}
2538 aurelien 437
}