Subversion Repositories eFlore/Applications.cel

<?php
// declare(encoding='UTF-8');
/**
 * Classe recherchant des infos sur une zone géo ou bien des coordonnées.
 *
 * @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 RechercheInfosZoneGeo extends Cel {
        
        public $maxTimeoutRequeteMondiale = 0;
        
        /**
         * Cas de la demande par lat et lon
         * array(
         *              'code_pays' => 'FR',
         *              'code_zone' => 'INSEE-D:35800',
         *              'type' => 'france',
         *              'nom' => 'Taulignan-les-oies'
         *      );
         * 
         *      array(
         *              'code_pays' => 'RU',
         *              'code_zone' => 'OSM-ID:4511574',
         *              'type' => 'monde',
         *              'nom' => 'Moscou'
         *      );
         * 
         * Cas de la demande par nom
         * array(
     *          'lat': 40.372934,
         *              'lng': -3.690601,
         *              'nom': 'Madrid',
         *              'code_zone': 'OSM-ID:558474',
     *          'code_pays': 'ES',
     *          'type': 'monde'
         *      );
         * 
         *      array(
     *          'lat': 48.860799,
         *              'lng': 2.3457986,
         *              'nom': 'Paris',
         *              'code_zone': '75056',
     *          'code_pays': 'FR',
     *          'type': 'france'
         *      );
         * 
         */

        //TODO: migrer tout ce qui concerne la zone géo dans cette classe      
        public function obtenirInfosPourCoordonnees($coordonnees) {
                $infos_coord = null;
                // Test facile qui permet d'abord de tenter une localisation bien plus rapide si les coordonnées
                // sont dans la bounding box approximative de la France
                if($this->testerCoordonneesWgsFrance($coordonnees['latitude'], $coordonnees['longitude'])) {
                        $infos_coord = $this->chercherInfosCommune('osm', $coordonnees['latitude'], $coordonnees['longitude']);
                        if ($infos_coord == null) {
                                // Sinon recherche par pays
                                $infos_coord = $this->chercherInfosPays($coordonnees['latitude'], $coordonnees['longitude']);
                        }
                } else {
                        // Recherche par pays immédiate si en dehors de la bouding box française
                        $infos_coord = $this->chercherInfosPays($coordonnees['latitude'], $coordonnees['longitude']);
                }
                return $infos_coord;
        }

        // gère aussi les id_zone_geo @TODO renommer la méthode et internationaliser
        // la gestion des codes
        public function obtenirInfosPourNom($nom, $pays, $code_departement=null, $id_zone=null) {
                $nom = trim($nom);
                $pays = trim($pays);
                $code_departement = trim($code_departement);

                $retour = false;
                // Dans le cas de la france on possède directement une table 
                // avec les centroïdes des communes
                if($pays == 'FR' || $code_departement != "") {
                        $retour = $this->chercherCentroideCommuneBdd($nom, $code_departement, $id_zone);
                } else {
                        // Sinon méthode habituelle, un test simple suivi d'un test plus complexe
                        // On cherche donc d'abord en France
                        // @TODO c'est quoi ce if() mal ordonné ?
                        if($pays == "") {
                                $retour = $this->chercherCentroideCommuneBdd($nom, $code_departement, $id_zone);
                        }
                        // Si on ne trouve rien on teste dans le monde entier
                        if($retour == false) {
                                $retour = $this->effectuerRequeteGeocodingMondiale($nom, '2,3,4,5,6,7,8', 1, $pays, $id_zone);
                        }
                }
                
                return $retour;
        }

        /**
         * Renvoie tous les codes de zones pour le groupe $groupe
         */
        protected function obtenirZonesDuGroupe($groupe) {
                $requete = 'SELECT valeur as id_zone FROM cel_groupes_zones '
                        . 'WHERE id_groupe = ' . Cel::db()->proteger($groupe)
                        . ' -- '.__FILE__.':'.__LINE__;

                $liste_zones = Cel::db()->requeter($requete);
                return $liste_zones;
        }

        /**
         * Renvoie des infos pour un groupes de zones, déclaré dans la table
         * cel_groupe_zones : toutes les infos des zones concernées, plus le carré
         * englobant (bounding box) et le centroïde de l'union des zones
         */
        public function obtenirInfosPourGroupeZonesFrance($groupe) {
                $groupe = trim($groupe);
                $retour = false;

                $zones = $this->obtenirZonesDuGroupe($groupe);
                $retour = array(
                        'groupe' => array(),
                        'zones' => array()
                );
                foreach ($zones as $zone) {
                        $idZone = $zone['id_zone'];
                        $retour['zones'][] = $this->obtenirInfosPourNom(null, null, null, $idZone);
                }

                // recherche bbox (de Bouygues Telecom) @TODO faire ça au dessus, en une passe ?
                $lngmin = 99999;
                $latmin = 99999;
                $lngmax = -99999;
                $latmax = -99999;
                foreach ($retour['zones'] as $zone) {
                        $lat = $zone['lat'];
                        $lng = $zone['lng'];
                        if ($lat < $latmin) { $latmin = $lat; }
                        if ($lat > $latmax) { $latmax = $lat; }
                        if ($lng < $lngmin) { $lngmin = $lng; }
                        if ($lng > $lngmax) { $lngmax = $lng; }
                }
                $retour['groupe']['bbox'] = array(
                        'lat_min' => $latmin,
                        'lat_max' => $latmax,
                        'lng_min' => $lngmin,
                        'lng_max' => $lngmax
                );
                // @TODO suggérer un niveau de zoom en fonction de la plus grande dimension
                // de la bounding-box (ne marchera pas dans tous les cas mais ce serait
                // déjà pas mal)
                $retour['groupe']['centroide'] = array(
                        'lat' => ($latmin + $latmax) / 2,
                        'lng' => ($lngmin + $lngmax) / 2
                );

                return $retour;
        }
        
        public function chercherInfosCommune($projet, $latitude, $longitude) {
        
                $valeurs_params = '?lat='.$latitude.'&lon='.$longitude;
                $url_service = $this->config['cel']['url_service_geo_local'].$valeurs_params;
                $url_service = str_replace(',', '.', $url_service);
        
                $ch = curl_init($url_service);
                curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
                $reponse = curl_exec($ch);
        
                $infos_coord = $this->traiterReponseServiceCommune($reponse);
                curl_close($ch);
        
                return $infos_coord;
        }
        
        public function chercherInfosPays($latitude, $longitude) {
                
                $valeurs_params = '?lat='.$latitude.'&lon='.$longitude;
                $url_service = $this->config['cel']['url_service_geo_mondial'].$valeurs_params;
                $url_service = str_replace(',', '.', $url_service);
        
                $ch = curl_init($url_service);
                curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
                $reponse = curl_exec($ch);

                $res = json_decode($reponse, true);
                $retour = null;
                
                $retour = array(
                                        'code_zone' => '',
                                        'code_pays' => '',
                                        'nom' => '',
                                        'type' => ''
                                );
        
                if(!empty($res)) {
                        // Cas où l'on a recherché des coordonnées en France
                        // On en profite pour remplir plus de données
                        // que le simple pays si elles sont présentes
                        if(isset($res[8]) && isset($res[8]['codeInsee'])) {
                                $retour = array(
                                                'code_zone' => $res[8]['codeInsee'],
                                                'code_pays' => 'FR',
                                                'nom' => $res[8]['nom'],
                                                'type' => 'france'
                                );
                        } else {
                                // Cas de la recherche en dehors de France
                                // La zone de plus haut niveau est toujours un pays
                                // (car le niveau de zone est limité à 2)
                                $infos_pays = $res[min(array_keys($res))];
                                // La zone de niveau le plus bas est la "localité"
                                // la plus précise qu'on a pu trouver
                                $infos_localite = $res[max(array_keys($res))];
        
                                // Cas où l'on a trouvé un code pays
                                if(!empty($infos_pays['codeIso31661'])) {
                                        $retour = array(
                                                        'code_pays' => $infos_pays['codeIso31661'],
                                                        'nom' => ''
                                        );
                                } elseif(!empty($infos_pays['codeIso31662'])) {
                                        // Quelquefois la zone de plus haut niveau est une région ou une province
                                        // heureusement son code est de forme XX-YY ou XX est le code iso du pays !
                                        $retour = array(
                                                        'code_pays' => substr($infos_pays['codeIso31662'], 0, 2),
                                                        'nom' => ''
                                        );
                                }
        
                                // Pas de sens de prendre un nom de localité si on a pas de pays
                                if(!empty($retour['code_pays'])) {
                                        // Type sert à savoir quelle fonction de mise à jour on appellera
                                        $retour['type'] = 'monde';
                                        $retour['nom'] = $infos_localite['intitule'];
                                        $retour['code_zone'] = $infos_localite['codeZoneGeo'];
                                }
                        }
                }
                
                return $retour;
        }
        
        public function traiterReponseServiceCommune($reponse) {
                $retour = null;
                $reponse = json_decode($reponse);
                // cas du service lion 1906 qui peut renvoyer plusieurs communes (on prend la première)
                if (is_array($reponse)) {
                        $reponse = $reponse[0];
                }
                if (isset($reponse->codeINSEE)) {
                        // Type sert à savoir quelle fonction de mise à jour on appellera
                        $retour = array(
                                                'code_zone' => $reponse->codeINSEE,
                                                'code_pays' => 'FR',
                                                'nom' => $reponse->nom,
                                                'type' => 'france'
                                        );
                }
                return $retour;
        }

        // @TODO gérer $id_zone (inactif pour l'instant)
        protected function effectuerRequeteGeocodingMondiale($nom, $niveau = '2,3,4,5,6,7,8', $limite = 1, $pays = null, $id_zone=null) {
                $url_sans_pays = $this->config['cel']['url_service_geo_mondial'].'?masque='.urlencode($nom).'&niveau='.$niveau.'&limite='.$limite;
                $url = $url_sans_pays.(!empty($pays) ? '&pays='.urlencode($pays) : '');

                $ch = curl_init($url);
                curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
                curl_setopt($ch, CURLOPT_TIMEOUT, $this->maxTimeoutRequeteMondiale);
                $reponse = curl_exec($ch);
                
                $res = @json_decode($reponse, true);

                $retour = array();
        
                if(!empty($res)) {
                        // cas de la localisation directe d'une commune
                        if($limite == 1) {
                                $retour = $this->traiterLigneResultatRequeteGeocodingMondiale($res);
                        } else {
                                // cas de l'autocompletion
                                $retour = array();
                                foreach($res as $ligne) {
                                        $ligne_decodee = $this->traiterLigneResultatRequeteGeocodingMondiale($ligne);
                                        $param = array('nom' => $ligne_decodee['nom'], 'code' => $ligne_decodee['code_pays']);
                                        $retour[] = $this->formaterLigneResultat($param);
                                }
                        }
                } else if($limite == 1) {
                        // Dans le cas où un pays a été demandé mais pas de résultat, on rentente la recherche sans
                        // préciser de pays
                        $res = @json_decode(file_get_contents($url_sans_pays), true);
                        
                        if(!empty($res)) {
                                $retour = $this->traiterLigneResultatRequeteGeocodingMondiale($res);
                        }                               
                }
        
                return $retour;
        }

        /**
         * Renvoie les infos d'une commune, incluant les coordonnées du centroïde,
         * en fonction du nom et/ou du département, et/ou de l'id_zone (plus fiable)
         */
        protected function chercherCentroideCommuneBdd($commune, $departement=null, $id_zone=null) {
                $commune_formatee = str_replace(array(' ', '-'), '_', trim($commune));
                // clauses
                $clauses = array();
                if ($commune != null) {
                        $clauses[] = 'nom LIKE '.Cel::db()->proteger($commune_formatee);
                }
                if ($departement != null) {
                        $departement = trim($departement, "*");
                        if (strlen($departement) > 2) {
                                // @TODO piège : si deux communes ont le même nom dans deux
                                // DROM-COM, la troncature à 2 chiffres sera insuffisante
                                $departement = substr($departement, 0, 2);
                        }
                        $clauses[] = 'code LIKE '.Cel::db()->proteger($departement.'%');
                }
                if ($id_zone != null) {
                        $clauses[] = 'id_zone_geo = '.Cel::db()->proteger($id_zone);
                }
                $clauses = implode(' AND ', $clauses);

                $requete = 'SELECT utm_x, utm_y, utm_secteur, code FROM cel_zones_geo '
                                . 'WHERE ' . $clauses
                                . ' -- '.__FILE__.':'.__LINE__;

                $commune_coordonnees = Cel::db()->requeter($requete);
        
                $retour = false;
                if ($commune_coordonnees && is_array($commune_coordonnees) && count($commune_coordonnees) > 0) {
                        $lat_lon = $this->convertirUtmVersLatLong($commune_coordonnees[0]['utm_x'],$commune_coordonnees[0]['utm_y'],$commune_coordonnees[0]['utm_secteur']);
        
                        $retour = array(
                                        'lat' => (float) $lat_lon['lat'],
                                        'lng' => (float) $lat_lon['lng'],
                                        'nom' => $commune,
                                        'code_zone' => $commune_coordonnees[0]['code'],
                                        'code_pays' => 'FR',
                                        'type' => 'france'
                        );
                }
                return $retour;
        }
        
        public function obtenirListeInfosPourNom($lieu) {               
                $lieux_retour = $this->obtenirListeCommunes($lieu);
                
                // S'il y a moins de 50 résultats on tente des les fusionner avec une recherche mondiale
                // avec 50 - n éléments (où n est la taille du tableau de communes)
                if(count($lieux_retour) < 50) {
                        $lieux_mondiaux = $this->effectuerRequeteGeocodingMondiale($lieu, '2,3,4,5,6,7,8', 50 - count($lieux_retour));
                        usort($lieux_mondiaux, array($this, 'trierListeLieux'));
                        $lieux_retour += $lieux_mondiaux;
                }

                // Suppression de possibles doublons @WARNING marche pas !!!
                //$lieux_retour = $this->reduireListeLieux($lieux_retour);
                
                return $lieux_retour;
        }
        
        public function obtenirListeCommunes($lieu) {
                $lieu_formate = $this->formaterChaineLieuPourRequete($lieu);
                $retour = array();
                
                if ($this->estUneChaineRequeteValide($lieu_formate)) {
                        $requete = 'SELECT DISTINCT nom, code '.
                                        'FROM cel_zones_geo '.
                                        'WHERE nom LIKE '.Cel::db()->proteger($lieu_formate.'%').' '.
                                        'ORDER BY nom '.
                                        'LIMIT 50 '.
                                        ' -- '.__FILE__.':'.__LINE__;

                        $liste_lieux = Cel::db()->requeter($requete);
                        if ($liste_lieux) {
                                foreach ($liste_lieux as $lieu_trouve) {
                                        $retour[] = $this->formaterLigneResultat($lieu_trouve);
                                }
                        }
                }
                return $retour;
        }
        
        /**
         * Fonctions utilitaires
         */

        // qui a écrit cette m*rde ?
        protected function reduireListeLieux($tableau) {
                $index = array();
                foreach($tableau as $ligne) {
                        // merci de mettre des commentaires !!!
                        // ça enlève les 2 premières lettres ou chiffres du nom de lieu => wtf ?
                        $index_loc = trim(preg_replace("/\([a-zA-Z0-9]{2}\)$/", "", $ligne[0])); 
                        if(!isset($index[$index_loc])) {
                                $index[$index_loc] = $ligne;
                        } else {
                                if(mb_strlen($ligne[0]) > mb_strlen($index[$index_loc][0])) {
                                        $index[$index_loc] = $ligne;
                                } else if(mb_strlen($ligne[0]) == mb_strlen($index[$index_loc][0])) {
                                        if(preg_match("/(.)* ([a-zA-Z0-9]{2})/", $ligne[0])) {
                                                $index[$index_loc] = $ligne;
                                        }
                                }
                        }
                }
                
                return array_values($index);
        }
        
        protected function trierListeLieux($a, $b) {
                return strcmp($a[0], $b[0]);
        }
        
        protected function testerCoordonneesWgsFrance($latitude, $longitude) {
                $coord_france = false;
                if ($latitude != '' && $longitude != '') {
                        if ($latitude < 51.071667 && $latitude > 41.316667) {
                                if ($longitude < 9.513333 && $longitude > -5.140278) {
                                        $coord_france = true;
                                }
                        }
                }
                return $coord_france;
        }
        
        protected function traiterLigneResultatRequeteGeocodingMondiale($res) {
        
                $lat = "";
                $lon = "";
                $nom = "";
                $code ="";
                $code_pays="";
                $type="";
        
                if(!empty($res)) {
                        $code_pays = $this->extraireCodePays($res);
        
                        $nom = $res['intitule'];
                        $lat = $res['centre_lat'];
                        $lon = $res['centre_lng'];
                        $type = $code_pays == 'FR' || $code_pays == 'FX' ? 'france' : 'monde';
                                
                        $retour = array(
                                        'lat' => (float)$lat,
                                        'lng' => (float)$lon,
                                        'nom' => $nom,
                                        'code_zone' => $code,
                                        'code_pays' => $code_pays,
                                        'type' => $type
                        );
                }
        
                return $retour;
        }
        
        protected function convertirUtmVersLatLong($x, $y, $sector) {
                $convertisseur = new gPoint();
                $convertisseur->setUTM($x, $y, $sector);
                $convertisseur->convertTMtoLL();
        
                $lat_long = array();
                $lat_long['lat'] = str_replace(',','.',$convertisseur->Lat());
                $lat_long['lng'] = str_replace(',','.',$convertisseur->Long());
                return $lat_long;
        }
        
        protected function extraireCodePays($infos_pays) {
                $code = "";
                if(!empty($infos_pays['codeIso31661'])) {
                        $code = $infos_pays['codeIso31661'];
                } elseif(!empty($infos_pays['codeIso31662'])) {
                        // Si pas de code pays, le sous code peut exister et content le code pays
                        // sous la forme codepays-souscode
                        $code = substr($infos_pays['codeIso31662'], 0, 2);
                }
                return $code;
        }
        
        protected function estUneChaineRequeteValide($lieu) {
                return (strlen($lieu) > 0) && ($lieu != '%');
        }
                
        protected function formaterLigneResultat($ligne) {
                if(empty($ligne['code']) || $ligne['code'] == null) {
                        $res = array($ligne['nom'], '');
                } else {
                        $res = array($ligne['nom'].' ('.substr(sprintf('%02s', $ligne['code']),0,2).')', $ligne['code']);
                }
                return $res;
        }
        
        /**
         * Remplace les * par % pour faire des recherches floues
         * Remplace les + par _ (nginx envoie des "+" dans l'URL à la place des espaces)
         * Remplace les espaces et les - par _ car les noms de communes peuvent avoir des espaces ou des tirets
         * @param string $lieu
         * @return string le lieu formaté pour la recherche
         */
        protected function formaterChaineLieuPourRequete($lieu) {
                $lieu = ltrim($lieu);
                $lieu = preg_replace('/\*+/', '%', $lieu);
                $lieu = str_replace(['+', ' ', '-'], '_', $lieu);
                return $lieu;
        }
}