Subversion Repositories eFlore/Applications.cel

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1374 aurelien 1
<?php
2
/**
3
* Service fournissant des informations concernant le CEL au format RSS1, RSS2 ou ATOM.
4
* Encodage en entrée : utf8
5
* Encodage en sortie : utf8
6
* Format du service :
7
* /CelWidgetExport/format
8
* /CelWidgetExport/csv
9
*
10
* Les paramêtres :
11
*  - "start" indique le numéro du premier item à afficher
12
*  - "limit" nombre d'items à afficher
13
*
14
* @author Aurélien Peronnet <aurelien@tela-botanica.org>
15
* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>
16
* @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
17
* @version $Id$
18
* @copyright 2012
19
*/
1610 raphael 20
 
21
set_include_path(get_include_path() . PATH_SEPARATOR . dirname(dirname(realpath(__FILE__))) . '/lib');
22
// la sortie est binaire (xls), mais OLE n'est pas compatible E_ALL en PHP-5.4
1700 raphael 23
error_reporting(error_reporting() & ~E_STRICT);
1610 raphael 24
require_once("lib/OLE.php");
25
require_once("lib/Spreadsheet/Excel/Writer.php");
26
 
1374 aurelien 27
class CelWidgetExport extends Cel {
28
 
1408 aurelien 29
	private $nom_fichier_export = 'cel_export';
1671 aurelien 30
	// certains paramètres apparaissent plusieurs fois car ils ont des alias
31
	// dans certains widgets
1376 aurelien 32
	private $parametres_autorises = array(
1654 aurelien 33
		'id_utilisateur' => 'ce_utilisateur',
1376 aurelien 34
		'utilisateur' => 'courriel_utilisateur',
35
		'commune' => 'zone_geo',
1671 aurelien 36
		'zone_geo' => 'zone_geo',
1376 aurelien 37
		'dept' => 'departement',
1654 aurelien 38
		'departement' => 'departement',
39
		'lieudit' => 'lieudit',
40
		'station' => 'station',
1376 aurelien 41
		'projet' => 'mots_cles',
1379 aurelien 42
		'num_taxon' => 'nt',
1378 aurelien 43
		'date_debut' => 'date_debut',
1387 aurelien 44
		'date_fin' => 'date_fin',
1625 aurelien 45
		'taxon' => 'taxon',
1654 aurelien 46
		'annee' => 'annee',
47
		'mois' => 'mois',
48
		'jour' => 'jour',
49
		'recherche' => 'recherche',
50
		'id_mots_cles' => 'id_mots_cles',
1662 aurelien 51
		'mots_cles' => 'mots_cles',
1625 aurelien 52
		'debut' => 'debut',
53
		'limite' => 'limite',
1654 aurelien 54
		'format' => 'format',
55
		'colonnes' => 'colonnes',
1679 raphael 56
		'transmission' => 'transmission',
57
		'obsids' => 'obsids',
1376 aurelien 58
	);
1402 aurelien 59
 
1625 aurelien 60
	private $limite_decoupage_defaut = 9000;
61
 
1402 aurelien 62
	private $format = 'csv';
1579 aurelien 63
 
1659 aurelien 64
	public $id_utilisateur = null;
1715 raphael 65
 
66
	// un cache, initialisé par certaines fonctions de préchargement, à la manière
67
	// de ce qui est fait par FormateurGroupeColonne
68
	static $cache = Array();
1659 aurelien 69
 
1579 aurelien 70
	public function getRessource() {
71
		return $this->getElement(array());
72
	}
1374 aurelien 73
 
74
	/**
75
	 * Méthode appelée avec une requête de type GET.
76
	 */
1709 raphael 77
	public function getElement($params = array()) {
1711 raphael 78
		switch(@strtolower($params[0])) {
1709 raphael 79
		case 'calcul':
80
			$this->getCalcul();
81
			break;
1625 aurelien 82
 
1709 raphael 83
		case 'export':
84
			$this->getExport();
85
			break;
86
		default:
1625 aurelien 87
			$this->getExport();
88
		}
89
	}
90
 
91
	private function getCalcul() {
1611 raphael 92
		$criteres = $this->traiterParametresAutorises($_GET);
1654 aurelien 93
 
1374 aurelien 94
		$criteres['transmission'] = 1;
1654 aurelien 95
		if($this->doitEtPeutExporterObsPrivees($criteres)) {
96
			unset($criteres['transmission']);
1659 aurelien 97
			$this->id_utilisateur = $criteres['id_utilisateur'];
1654 aurelien 98
		}
1374 aurelien 99
		$chercheur_observations = new RechercheObservation($this->config);
100
 
1379 aurelien 101
		$numero_page = isset($criteres['debut']) ? $criteres['debut'] : 0;
102
		$limite = isset($criteres['limite']) ? $criteres['limite'] : 0;
1714 raphael 103
		$colonnes = @FormateurGroupeColonne::colGroupsValidation($criteres['colonnes']);
1374 aurelien 104
 
105
		unset($criteres['limite']);
106
		unset($criteres['debut']);
1625 aurelien 107
		unset($criteres['format']);
1654 aurelien 108
		unset($criteres['colonnes']);
1625 aurelien 109
 
110
		$nb_observations = $chercheur_observations->compterObservations(null, $criteres);
111
		$limite_decoupage = $this->calculerNbLignesMaxParFichier();
112
 
113
		$url_telechargements = array();
114
		$intervalle = 0;
115
 
116
		$params_url = $criteres;
117
		unset($params_url['transmission']);
118
		do {
119
			$base_url = $this->config['settings']['baseURLAbsolu'].'CelWidgetExport/export';
120
			$params_url['debut'] = $intervalle;
121
			$params_url['limite'] = $limite_decoupage;
122
			$url_telechargement_fichier = $base_url;
1654 aurelien 123
			$url_telechargements[] = $base_url.'?'.http_build_query($params_url).'&format='.$this->format.'&colonnes='.$colonnes;
1625 aurelien 124
			$intervalle += $limite_decoupage;
125
			$nb_observations -= $limite_decoupage;
126
		} while($nb_observations >= $limite_decoupage);
127
 
128
		$this->envoyerJson($url_telechargements);
129
	}
1374 aurelien 130
 
1625 aurelien 131
	private function calculerNbLignesMaxParFichier() {
132
		$limite = $this->limite_decoupage_defaut;
1402 aurelien 133
		switch($this->format) {
134
			case 'csv':
1625 aurelien 135
				$limite = 20000;
136
				break;
137
			case 'xls':
138
				$limite = 8000;
139
				break;
1660 raphael 140
			case 'pdf':
141
				$limite = 300;
142
				break;
1625 aurelien 143
		}
144
		return $limite;
145
	}
146
 
147
	private function getExport() {
148
		$criteres = $this->traiterParametresAutorises($_GET);
1711 raphael 149
		// ne pas faire de super-requête en cas d'absence de paramètres
150
		// par exemple "format", au minimum, devrait être défini
1715 raphael 151
		if(!$criteres) die('erreur: pas de paramètre reçu');
152
		if(!in_array($this->format, array('pdf','csv','xls'))) die('erreur: format invalide');
1711 raphael 153
 
1625 aurelien 154
		$criteres['transmission'] = 1;
1654 aurelien 155
		if($this->doitEtPeutExporterObsPrivees($criteres)) {
156
			unset($criteres['transmission']);
1762 raphael 157
			$this->id_utilisateur = $criteres['ce_utilisateur'];
1654 aurelien 158
		}
1625 aurelien 159
		$chercheur_observations = new RechercheObservation($this->config);
160
 
1679 raphael 161
		$debut = isset($criteres['debut']) ? intval($criteres['debut']) : 0;
162
		$limite = isset($criteres['limite']) ? intval($criteres['limite']) : 0;
1714 raphael 163
		$groupes = @FormateurGroupeColonne::colGroupsValidation($criteres['colonnes']);
164
		if(!$groupes) die('erreur: Ne peut identifier les groupes de champs demandés.');
1679 raphael 165
 
1714 raphael 166
 
1679 raphael 167
		if($criteres['obsids']) $criteres['sql_brut'] = sprintf('id_observation IN (%s)',
168
																implode(',', $criteres['obsids']));
1625 aurelien 169
 
170
		unset($criteres['limite']);
171
		unset($criteres['debut']);
172
		unset($criteres['format']);
1654 aurelien 173
		unset($criteres['colonnes']);
1679 raphael 174
		unset($criteres['obsids']);
175
 
176
		$observations = $chercheur_observations->rechercherObservations(null, $criteres, $debut, $limite, TRUE)->get();
1659 aurelien 177
		$ids = array();
178
		foreach($observations as &$obs) {
179
			$ids[] = $obs['id_observation'];
180
		}
181
 
1703 raphael 182
		if($this->format == 'pdf') {
183
			$pdf = $this->convertirEnPdf($observations);
184
			$pdf->pdf->Output('etiquettes.pdf', 'I');
185
			exit;
1662 aurelien 186
		}
187
 
1703 raphael 188
		// cas XLS et CSV: on peut avoir besoin des champs étendus, des noms communs et des champs baseflor:
1715 raphael 189
 
190
		// Obtention des colonnes correspondantes aux groupes de champs
1714 raphael 191
		$colonnes = FormateurGroupeColonne::nomEnsembleVersListeColonnes($groupes);
1703 raphael 192
 
1715 raphael 193
		/*
194
		  Champs étendus et noms communs, si demandés.
195
		  * Pour "nom commun", "preload" retourne NULL, car c'est le cache statique de FormateurGroupeColonne
196
		  qu'il initialise et utilise en interne sans qu'un passage par paramètre dans le contexte de CelWidgetExport
197
		  ne soit nécessaire.
198
		  * Pour les champs étendus, c'est CelWidgetExport::$cache qui est utilisé, aussi bien pour les en-têtes que
199
		  pour les données préchargées, cf self::traiterLigneEtendue()
200
		*/
201
		self::$cache = FormateurGroupeColonne::preload($colonnes, $this, $ids);
1703 raphael 202
 
1659 aurelien 203
    	// TODO: tous les champs étendus et les paramètres supplémentaires devraient être passés en un seul
204
    	// tableau (et chaque formateur csv, xls etc... pourrait également être dans une classe à part)
1625 aurelien 205
		switch($this->format) {
1660 raphael 206
		case 'csv':
1715 raphael 207
			$csv = $this->convertirEnCsv($observations, $colonnes);
1660 raphael 208
			$this->envoyerCsv($csv);
209
			break;
210
		case 'xls':
1715 raphael 211
			$xls = $this->convertirEnXls($observations, $colonnes);
1660 raphael 212
			$this->envoyerXls($xls);
213
			break;
214
		default:
1402 aurelien 215
		}
1374 aurelien 216
	}
217
 
1611 raphael 218
	protected function traiterParametresAutorises(Array $parametres) {
1376 aurelien 219
		$parametres_traites = array();
1402 aurelien 220
		$this->format = (isset($parametres['format']) && $parametres['format'] != '') ? $parametres['format'] : $this->format;
1376 aurelien 221
		foreach($parametres as $cle => $valeur) {
1711 raphael 222
			if(is_string($valeur) && !trim($valeur)) continue;
223
			if(isset($this->parametres_autorises[$cle])) {
1376 aurelien 224
				$parametres_traites[$this->parametres_autorises[$cle]] = $valeur;
225
			}
226
		}
1679 raphael 227
		$parametres_traites['obsids'] = @self::traiterObsIds($parametres['obsids']);
1376 aurelien 228
		return $parametres_traites;
229
	}
230
 
1374 aurelien 231
	private function envoyerCsv($csv) {
232
		header('Content-Type: text/csv; charset=UTF-8');
1408 aurelien 233
		header('Content-Disposition: attachment;filename='.$this->nom_fichier_export.'.csv');
1374 aurelien 234
		echo $csv;
1376 aurelien 235
		exit;
1374 aurelien 236
	}
237
 
1402 aurelien 238
	private function envoyerXls($workbook) {
239
		$workbook->close();
240
		exit;
241
	}
242
 
1715 raphael 243
	private function convertirEnCsv(&$data, $colonnes) {
1374 aurelien 244
		$chemin_temp = "php://temp";
245
		$outstream = fopen($chemin_temp, 'r+');
1690 raphael 246
 
1711 raphael 247
		$intitule_champs = array_merge(FormateurGroupeColonne::getIntitulesColonnes($colonnes));
1703 raphael 248
		// en premier car utilisé génériquement dans getLigneObservation()
1711 raphael 249
		if(isset($colonnes['baseflor'])) {
1703 raphael 250
			$intitule_champs = array_merge($intitule_champs, FormateurGroupeColonne::$baseflor_col);
251
		}
252
		// en second car manuellement appellé plus bas, TODO: utiliser l'API du FormateurGroupeColonne
1715 raphael 253
		if(isset($colonnes['etendu'])) {
254
			$intitule_champs = array_merge($intitule_champs, array_values(self::$cache['etendu']['header']));
255
		}
1690 raphael 256
 
257
		// header
258
		fputcsv($outstream, $intitule_champs, ',', '"');
259
		// lignes
1617 aurelien 260
		foreach($data as &$ligne) {
1692 raphael 261
			$ligne = self::filtrerDonneesSensibles($ligne);
1711 raphael 262
			$ligne = FormateurGroupeColonne::getLigneObservation($ligne, $colonnes, $this);
1374 aurelien 263
			fputcsv($outstream, $ligne, ',', '"');
264
		}
265
		rewind($outstream);
266
		$csv = stream_get_contents($outstream);
267
		fclose($outstream);
268
		return $csv;
269
	}
270
 
1715 raphael 271
	private function convertirEnXls(&$data, $colonnes) {
1402 aurelien 272
		$this->extendSpreadsheetProductor = new SpreadsheetProductor();
273
		$this->extendSpreadsheetProductor->initSpreadsheet();
274
 
275
		$workbook = new Spreadsheet_Excel_Writer();
1625 aurelien 276
		$worksheet = $workbook->addWorksheet('Liste');
277
		$workbook->setTempDir($this->config['cel']['chemin_stockage_temp']);
1612 raphael 278
		$workbook->setVersion(8);
1402 aurelien 279
 
1612 raphael 280
		$worksheet->setInputEncoding('utf-8');
1408 aurelien 281
		$workbook->send($this->nom_fichier_export.'.xls');
1402 aurelien 282
 
283
		$nb_lignes = 1;
1690 raphael 284
 
1711 raphael 285
		$intitule_champs = array_merge(FormateurGroupeColonne::getIntitulesColonnes($colonnes));
1703 raphael 286
		// en premier car utilisé génériquement dans getLigneObservation()
1711 raphael 287
		if(isset($colonnes['baseflor'])) {
1703 raphael 288
			$intitule_champs = array_merge($intitule_champs, FormateurGroupeColonne::$baseflor_col);
289
		}
290
		// en second car manuellement appellé plus bas, TODO: utiliser l'API du FormateurGroupeColonne
1715 raphael 291
		if(isset($colonnes['etendu'])) {
292
			$intitule_champs = array_merge($intitule_champs, array_values(self::$cache['etendu']['header']));
293
		}
1703 raphael 294
 
1690 raphael 295
		// header
296
		$indice = 0;
297
		foreach ($intitule_champs as &$intitule) {
1692 raphael 298
			$worksheet->write(0,$indice++,$intitule);
1690 raphael 299
		}
300
 
1617 aurelien 301
		foreach($data as &$ligne) {
1692 raphael 302
			$ligne = self::filtrerDonneesSensibles($ligne);
1711 raphael 303
			$ligne = FormateurGroupeColonne::getLigneObservation($ligne, $colonnes, $this);
1402 aurelien 304
			$indice = 0;
1617 aurelien 305
			foreach($ligne as &$champ) {
1692 raphael 306
				$worksheet->write($nb_lignes,$indice++,$champ);
1402 aurelien 307
			}
308
			$nb_lignes++;
309
		}
310
		return $workbook;
311
	}
312
 
1662 aurelien 313
	private function convertirEnPdf(&$observations) {
1715 raphael 314
		if(count($observations) > 300) die('erreur: trop de données');
1662 aurelien 315
		//require_once('GenerateurPDF.php');
316
		$pdf = new GenerateurPDF();
317
		$pdf->export($observations);
318
		return $pdf;
319
	}
320
 
1692 raphael 321
	static function filtrerDonneesSensibles($ligne) {
1429 aurelien 322
		if(stripos($ligne['mots_cles_texte'], 'sensible') !== false) {
323
			$ligne['latitude'] = '';
324
			$ligne['longitude'] = '';
325
		}
326
		return $ligne;
327
	}
328
 
1654 aurelien 329
	private function doitEtPeutExporterObsPrivees($criteres) {
330
		return isset($criteres['ce_utilisateur']) &&
331
					$this->peutExporterObsPrivees($criteres['ce_utilisateur']);
332
	}
333
 
334
	private function peutExporterObsPrivees($id_utilisateur) {
335
		$gestion_utilisateur = new User($this->config);
336
		$utilisateur = $gestion_utilisateur->obtenirIdentiteConnectee();
1703 raphael 337
		return ! empty($utilisateur['id_utilisateur']) && $id_utilisateur == $utilisateur['id_utilisateur'];
1654 aurelien 338
	}
1679 raphael 339
 
340
	static function traiterObsIds($range_param) {
341
		if (!isset($range_param)) return NULL;
342
		// trim() car: `POST http://url<<<"range=*"`
343
		if (trim($range_param) == '*') return NULL;
344
		return self::rangeToList(trim($range_param));
345
	}
346
 
347
	/*
348
	 * @param $fieldSets: un range, eg: 1-5,8,32,58-101
349
	 * @return un tableau trié, eg: 1,2,3,4,5,8,32,58,...,101
350
	 * http://stackoverflow.com/questions/7698664/converting-a-range-or-partial-array-in-the-form-3-6-or-3-6-12-into-an-arra
351
	 */
352
	static function rangeToList($in = '') {
353
		$inSets = explode(',', trim($in, ','));
354
		$outSets = array();
355
 
356
		foreach($inSets as $inSet) {
357
			list($start,$end) = explode('-', $inSet . '-' . $inSet);
358
			// ignore les ranges trop importants
359
			if($start > 10000000 || $end > 10000000 || abs($start-$end) > 10000) continue;
360
			$outSets = array_merge($outSets,range($start,$end));
361
		}
362
		$outSets = array_unique($outSets);
363
		$outSets = array_filter($outSets, 'is_numeric');
364
		sort($outSets);
365
		return $outSets;
366
	}
1374 aurelien 367
}
368
?>