Subversion Repositories eFlore/Applications.cel

Rev

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