Rev 1633 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*** @category PHP* @package jrest* @author Raphaël Droz <raphael@tela-botania.org>* @copyright 2013 Tela-Botanica* @license http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>*//*** Service d'export de données d'observation du CEL au format XLS** Format du service :* POST /ExportXLS* POST /ExportXLS/<Utilisateur>* TODO: GET /ExportXLS/<Utilisateur> [ sans "range" ? ]** Les données POST acceptées sont:* range (obligatoire): un range d'id_observation sous la forme d'entier ou d'intervalles d'entiers* séparés par des virgules ou bien '*' (pour toutes)* TODO: limit* TODO: départ* TODO: sets (ou colonnes, ou extended)* TODO: + les critères supportés par fabriquerSousRequeteRecherche()** Si <Utilisateur> est fourni, celui-ci doit être authentifié* TODO: export des données public et non-sensible d'un utilisateur** Si <Utilisateur> est fourni, le observations seront le résultat de l'intersection des 2 contraintes**/set_include_path(get_include_path() . PATH_SEPARATOR . dirname(dirname(realpath(__FILE__))) . '/lib');require_once('lib/PHPExcel/Classes/PHPExcel.php');class ExportXLS extends Cel {function ExportXLS($config) {parent::__construct($config);}/** Process $_POST et $_GET* TODO: changer JRest pour pouvoir disposer d'un nom de méthode plus représentatif que "updateXXX"* en POST*/function updateElement($uid, $pairs) {$params = Array('uid' => $uid);// TODO: pas de range mais un utilisateur: possibleif(!isset($_POST['range'])) {header('HTTP/1.0 204 No Content');exit;}elseif($_POST['range'] == '*') {$records = Array('*');}else {$records = self::rangeToList($_POST['range']);}$this->export($records, NULL, $params);exit;}/** $param: Tableau associatif, indexes supportés:* - widget: le nom du widget d'origine (utilisé pour les méta-données du tableur)**/function export(Array $records, String $fieldSets = NULL, Array $params = Array()) {$colonnes = self::fieldSetsToColumns($fieldSets);$columnSlugs = array_keys($colonnes);$chercheur_observations = new RechercheObservation($this->config);$objPHPExcel = new PHPExcel();// TODO: $params['part'] pour le multi-part$params['widget'] = isset($params['widget']) ? $params['widget'] : 'CEL';// TODO: controleUtilisateur()if( /* REMOVE*/ true || ! $params['uid'] || ! $this->controleUtilisateur($params['uid'])) {$params['uid'] = NULL;}$criteres = Array();if(count($records) == 1 && $records[0] == '*') {unset($criteres['raw']);}else {$criteres = Array('raw' =>sprintf('id_observation IN (%s)', implode(',', $records)));}$criteres['debut'] = isset($_GET['debut']) ? intval($_GET['debut']) : 0;$criteres['limite'] = isset($_GET['limite']) ? intval($_GET['limite']) : 0;$observations = $chercheur_observations->rechercherObservations($params['uid'],$criteres,$criteres['debut'],$criteres['limite']);// XXX: malheureusement l'instance de JRest n'est pas accessible iciif(!$observations) {header('HTTP/1.0 204 No Content');exit;}$objPHPExcel->getProperties()->setCreator($params['widget']) // ou $uid ?->setLastModifiedBy("XX") // TODO: $uid->setTitle("YY") // TODO->setSubject("ZZ") // TODO->setDescription("Export blah");//->setKeywords("office PHPExcel php")//->setCategory("Test result file")$objPHPExcel->getActiveSheet()->setTitle("Observations");$sheet = $objPHPExcel->setActiveSheetIndex(0);$colid = 0;foreach($colonnes as $colonne) {$sheet->setCellValueByColumnAndRow($colid, 1, $colonne['nom']);if($colonne['extra']) {$sheet->getStyleByColumnAndRow($colid, 1)->getBorders()->applyFromArray(array('allborders' => array('style' => PHPExcel_Style_Border::BORDER_DASHDOT,'color' => array('rgb' => PHPExcel_Style_Color::COLOR_BLUE))));}$colid++;}$objPHPExcel->getActiveSheet()->getDefaultColumnDimension()->setWidth(12);$row = 2;foreach ($observations as $obs) {$colid = 0;foreach($colonnes as $slug => $colonne) {$valeur = $obs[$slug];// pré-processeur des champsif(function_exists($colonne['function']))$valeur = $colonne['function']($valeur);elseif(method_exists(__CLASS__, $colonne['function']))$valeur = call_user_func(array(__CLASS__, $colonne['function']), $valeur);elseif($colonne['function']) {die("méthode {$colonne['function']} introuvable");}// // cette section devrait être vide:// // cas particuliers ingérable avec l'architecture actuelle:if(false && $slug == 'date_observation' && $valeur == "0000-00-00") { /* blah */ }// // fin de section "cas particuliers"$sheet->setCellValueByColumnAndRow($colid, $row, $valeur);$colid++;}$row++;}header("Content-Type: application/vnd.ms-excel");header("Content-Disposition: attachment; filename=\"liste.xls\"; charset=utf-8");header("Cache-Control: max-age=0");// Le format Excel2007 utilise un fichier temporaire$objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, 'Excel2007');// $objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, 'Excel5');$objWriter->save('php://output');exit;}/** @param $fieldSets: un range, eg: 1-5,8,32,58-101* @return un tableau trié, eg: 1,2,3,4,5,8,32,58,...,101*/static function rangeToList($in = '') {$inSets = explode(',', $in);$outSets = array();foreach($inSets as $inSet) {list($start,$end) = explode('-', $inSet . '-' . $inSet);$outSets = array_merge($outSets,range($start,$end));}$outSets = array_unique($outSets);$outSets = array_filter($outSets, 'is_numeric');sort($outSets);return $outSets;}/** @param $fieldSets: un liste de noms de colonnes ou de sets de colonnes* séparés par des virgules* eg: "espece" ou "champs-etendus", ...** @return: un tableau associatif déjà ordonné* clé: slug [machine-name] de la colonne (eg: "espece" ou "mot-clef")* valeur: des données relative à cette colonne, cf GenColInfo** @TODO: fonction commune à la génération en CSV*/static function fieldSetsToColumns($fieldSets = 'standard') {if(! $fieldSets) $fieldSets = 'standard';$fieldSets = array_flip(explode(',', $fieldSets));$colonnes = Array();if(isset($fieldSets['standard'])) {$colonnes += Array('nom_sel' => self::GenColInfo('nom_sel', 'Espèce'),'nom_sel_nn' => self::GenColInfo('nom_sel_nn', 'Numero nomenclatural'),'nom_ret' => self::GenColInfo('nom_ret', 'Nom retenu'),'nom_ret_nn' => self::GenColInfo('nom_ret_nn', 'Numero nomenclatural nom retenu'),'nt' => self::GenColInfo('nt', 'Numero taxonomique'),'famille' => self::GenColInfo('famille', 'Famille'),'nom_referentiel' => self::GenColInfo('nom_referentiel', 'Referentiel taxonomique'),'zone_geo' => self::GenColInfo('zone_geo', 'Commune'),'ce_zone_geo' => self::GenColInfo('ce_zone_geo', 'Identifiant Commune', 0, 'convertirCodeZoneGeoVersDepartement'),'date_observation' => self::GenColInfo('date_observation', 'Date', 0, 'formaterDate'),'lieudit' => self::GenColInfo('lieudit', 'Lieu-dit'),'station' => self::GenColInfo('station', 'Station'),'milieu' => self::GenColInfo('milieu', 'Milieu'),'commentaire' => self::GenColInfo('commentaire', 'Notes'),'latitude' => self::GenColInfo('latitude', 'Latitude', 1),'longitude' => self::GenColInfo('longitude', 'Longitude', 1),'geodatum' => self::GenColInfo('geodatum', 'Referentiel Geographique', 1),'ordre' => self::GenColInfo('ordre', 'Ordre', 1),'id_observation' => self::GenColInfo('id_observation', 'Identifiant', 1),'mots_cles_texte' => self::GenColInfo('mots_cles_texte', 'Mots Clés', 1),'commentaire' => self::GenColInfo('commentaire', 'Commentaires', 1),'date_creation' => self::GenColInfo('date_creation', 'Date Création', 1),'date_modification' => self::GenColInfo('date_modification', 'Date Modification', 1),'date_transmission' => self::GenColInfo('date_transmission', 'Date Transmission', 1),'abondance' => self::GenColInfo('abondance', 'Abondance', 1),'certitude' => self::GenColInfo('certitude', 'Certitude', 1),'phenologie' => self::GenColInfo('phenologie', 'Phénologie', 1),);}return $colonnes;}/** Wrapper générant un tableau associatif:* @param $is_extra: défini si la colonne est extra (auquelle une bordure bleue entoure son nom dans la première ligne* @param $function: un nom optionnel d'un fonction de préprocessing* $function doit prendre comme argument la valeur et retourner la valeur transformée*/static function GenColInfo($slug, $nom, $is_extra = 0, $function = NULL) {return Array('slug' => $slug,'nom' => $nom,'extra' => $is_extra ? 1 : 0,'function' => $function);}protected function formaterDate($date_heure_mysql, $format = NULL) {if (!$date_heure_mysql || $date_heure_mysql == "0000-00-00 00:00:00") return "00/00/0000";$timestamp = DateTime::createFromFormat("Y-m-d H:i:s", $date_heure_mysql);if(!$timestamp) return "00/00/0000";// TODO: les widget ne font malheureusement pas usage de l'heure dans le CEL$date_formatee = strftime('%A %d %B %Y', $timestamp->getTimestamp());if(!$date_formatee) return "00/00/0000";return $date_formatee;}}