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
1617 aurelien 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';
1376 aurelien 30
	private $parametres_autorises = array(
1654 aurelien 31
		'id_utilisateur' => 'ce_utilisateur',
1376 aurelien 32
		'utilisateur' => 'courriel_utilisateur',
33
		'commune' => 'zone_geo',
34
		'dept' => 'departement',
1654 aurelien 35
		'departement' => 'departement',
36
		'lieudit' => 'lieudit',
37
		'station' => 'station',
1376 aurelien 38
		'projet' => 'mots_cles',
1379 aurelien 39
		'num_taxon' => 'nt',
1378 aurelien 40
		'date_debut' => 'date_debut',
1387 aurelien 41
		'date_fin' => 'date_fin',
1625 aurelien 42
		'taxon' => 'taxon',
1654 aurelien 43
		'annee' => 'annee',
44
		'mois' => 'mois',
45
		'jour' => 'jour',
46
		'recherche' => 'recherche',
47
		'id_mots_cles' => 'id_mots_cles',
1625 aurelien 48
		'debut' => 'debut',
49
		'limite' => 'limite',
1654 aurelien 50
		'format' => 'format',
51
		'colonnes' => 'colonnes',
52
		'transmission' => 'transmission'
1376 aurelien 53
	);
1402 aurelien 54
 
1625 aurelien 55
	private $limite_decoupage_defaut = 9000;
56
 
1402 aurelien 57
	private $format = 'csv';
1579 aurelien 58
 
59
	public function getRessource() {
60
		return $this->getElement(array());
61
	}
1374 aurelien 62
 
63
	/**
64
	 * Méthode appelée avec une requête de type GET.
65
	 */
1625 aurelien 66
	public function getElement($params = array()) {
67
		if(count($params) > 0) {
68
			switch(strtolower($params[0])) {
69
				case 'calcul':
70
					$this->getCalcul();
71
				break;
72
 
73
				case 'export':
74
					$this->getExport();
75
				break;
76
 
77
				default:
78
					$this->getExport();
79
			}
80
		} else {
81
			$this->getExport();
82
		}
83
	}
84
 
85
	private function getCalcul() {
1611 raphael 86
		$criteres = $this->traiterParametresAutorises($_GET);
1654 aurelien 87
 
1374 aurelien 88
		$criteres['transmission'] = 1;
1654 aurelien 89
		if($this->doitEtPeutExporterObsPrivees($criteres)) {
90
			unset($criteres['transmission']);
91
		}
1374 aurelien 92
		$chercheur_observations = new RechercheObservation($this->config);
93
 
1379 aurelien 94
		$numero_page = isset($criteres['debut']) ? $criteres['debut'] : 0;
95
		$limite = isset($criteres['limite']) ? $criteres['limite'] : 0;
1654 aurelien 96
		$colonnes = isset($criteres['colonnes']) ? $criteres['colonnes'] : 'standard,avance';
1374 aurelien 97
 
98
		unset($criteres['limite']);
99
		unset($criteres['debut']);
1625 aurelien 100
		unset($criteres['format']);
1654 aurelien 101
		unset($criteres['colonnes']);
1625 aurelien 102
 
103
		$nb_observations = $chercheur_observations->compterObservations(null, $criteres);
104
		$limite_decoupage = $this->calculerNbLignesMaxParFichier();
105
 
106
		$url_telechargements = array();
107
		$intervalle = 0;
108
 
109
		$params_url = $criteres;
110
		unset($params_url['transmission']);
111
		do {
112
			$base_url = $this->config['settings']['baseURLAbsolu'].'CelWidgetExport/export';
113
			$params_url['debut'] = $intervalle;
114
			$params_url['limite'] = $limite_decoupage;
115
			$url_telechargement_fichier = $base_url;
1654 aurelien 116
			$url_telechargements[] = $base_url.'?'.http_build_query($params_url).'&format='.$this->format.'&colonnes='.$colonnes;
1625 aurelien 117
			$intervalle += $limite_decoupage;
118
			$nb_observations -= $limite_decoupage;
119
		} while($nb_observations >= $limite_decoupage);
120
 
121
		$this->envoyerJson($url_telechargements);
122
	}
1374 aurelien 123
 
1625 aurelien 124
	private function calculerNbLignesMaxParFichier() {
125
		$limite = $this->limite_decoupage_defaut;
1402 aurelien 126
		switch($this->format) {
127
			case 'csv':
1625 aurelien 128
				$limite = 20000;
129
				break;
130
			case 'xls':
131
				$limite = 8000;
132
				break;
133
		}
134
		return $limite;
135
	}
136
 
137
	private function getExport() {
138
		$criteres = $this->traiterParametresAutorises($_GET);
139
		$criteres['transmission'] = 1;
1654 aurelien 140
		if($this->doitEtPeutExporterObsPrivees($criteres)) {
141
			unset($criteres['transmission']);
142
		}
1625 aurelien 143
		$chercheur_observations = new RechercheObservation($this->config);
144
 
145
		$debut = isset($criteres['debut']) ? $criteres['debut'] : 0;
146
		$limite = isset($criteres['limite']) ? $criteres['limite'] : 0;
1654 aurelien 147
		$colonnes = isset($criteres['colonnes']) ? $criteres['colonnes'] : 'standard,avance';
1625 aurelien 148
 
149
		unset($criteres['limite']);
150
		unset($criteres['debut']);
151
		unset($criteres['format']);
1654 aurelien 152
		unset($criteres['colonnes']);
1625 aurelien 153
 
1631 raphael 154
		$observations = $chercheur_observations->rechercherObservations(null, $criteres, $debut, $limite)->get();
1625 aurelien 155
		switch($this->format) {
156
			case 'csv':
1654 aurelien 157
				$csv = $this->convertirEnCsv($observations, $colonnes);
1402 aurelien 158
				$this->envoyerCsv($csv);
1625 aurelien 159
				break;
1402 aurelien 160
			case 'xls':
1654 aurelien 161
				$xls = $this->convertirEnXls($observations, $colonnes);
1402 aurelien 162
				$this->envoyerXls($xls);
1625 aurelien 163
				break;
1402 aurelien 164
			default:
165
		}
1374 aurelien 166
	}
167
 
1611 raphael 168
	protected function traiterParametresAutorises(Array $parametres) {
1376 aurelien 169
		$parametres_traites = array();
1402 aurelien 170
		$this->format = (isset($parametres['format']) && $parametres['format'] != '') ? $parametres['format'] : $this->format;
1376 aurelien 171
		foreach($parametres as $cle => $valeur) {
172
			if(trim($valeur) != '' && isset($this->parametres_autorises[$cle])) {
173
				$parametres_traites[$this->parametres_autorises[$cle]] = $valeur;
174
			}
175
		}
176
		return $parametres_traites;
177
	}
178
 
1374 aurelien 179
	private function envoyerCsv($csv) {
180
		header('Content-Type: text/csv; charset=UTF-8');
1408 aurelien 181
		header('Content-Disposition: attachment;filename='.$this->nom_fichier_export.'.csv');
1374 aurelien 182
		echo $csv;
1376 aurelien 183
		exit;
1374 aurelien 184
	}
185
 
1402 aurelien 186
	private function envoyerXls($workbook) {
187
		$workbook->close();
188
		exit;
189
	}
190
 
1654 aurelien 191
	private function convertirEnCsv($data, $colonnes)
1374 aurelien 192
	{
193
		$chemin_temp = "php://temp";
194
		$outstream = fopen($chemin_temp, 'r+');
195
		$intitule_champs = array();
1654 aurelien 196
		$groupe_colonnes = FormateurGroupeColonne::nomEnsembleVersListeColonnes($colonnes);
1617 aurelien 197
		foreach($data as &$ligne) {
1429 aurelien 198
			$ligne = $this->filtrerDonneesSensibles($ligne);
1654 aurelien 199
			$ligne = FormateurGroupeColonne::getLigneObservation($ligne, $groupe_colonnes);
1374 aurelien 200
			if(empty($intitule_champs)) {
1654 aurelien 201
				$intitule_champs = FormateurGroupeColonne::getIntitulesColonnes($groupe_colonnes);
1374 aurelien 202
				fputcsv($outstream, $intitule_champs, ',', '"');
203
			}
204
			fputcsv($outstream, $ligne, ',', '"');
205
		}
206
		rewind($outstream);
207
		$csv = stream_get_contents($outstream);
208
		fclose($outstream);
209
		return $csv;
210
	}
211
 
1654 aurelien 212
	private function convertirEnXls($data, $colonnes) {
1402 aurelien 213
		$this->extendSpreadsheetProductor = new SpreadsheetProductor();
214
		$this->extendSpreadsheetProductor->initSpreadsheet();
215
 
216
		$workbook = new Spreadsheet_Excel_Writer();
1625 aurelien 217
		$worksheet = $workbook->addWorksheet('Liste');
218
		$workbook->setTempDir($this->config['cel']['chemin_stockage_temp']);
1612 raphael 219
		$workbook->setVersion(8);
1402 aurelien 220
 
1612 raphael 221
		$worksheet->setInputEncoding('utf-8');
1408 aurelien 222
		$workbook->send($this->nom_fichier_export.'.xls');
1402 aurelien 223
 
224
		$nb_lignes = 1;
1654 aurelien 225
		$groupe_colonnes = FormateurGroupeColonne::nomEnsembleVersListeColonnes($colonnes);
1617 aurelien 226
		foreach($data as &$ligne) {
1429 aurelien 227
			$ligne = $this->filtrerDonneesSensibles($ligne);
1654 aurelien 228
			$ligne = FormateurGroupeColonne::getLigneObservation($ligne, $groupe_colonnes);
1402 aurelien 229
			if(empty($intitule_champs)) {
230
				$indice = 0;
1654 aurelien 231
				$intitule_champs = FormateurGroupeColonne::getIntitulesColonnes($groupe_colonnes);
1617 aurelien 232
				foreach ($intitule_champs as &$intitule) {
1465 aurelien 233
					$colonne = $intitule_champs[$indice];
234
					$worksheet->write(0,$indice,$colonne);
1402 aurelien 235
					$indice++;
236
				}
237
			}
238
			$indice = 0;
1617 aurelien 239
			foreach($ligne as &$champ) {
1402 aurelien 240
				$worksheet->write($nb_lignes,$indice,$champ);
241
				$indice++;
242
			}
243
			$nb_lignes++;
244
		}
245
		return $workbook;
246
	}
247
 
1429 aurelien 248
	private function filtrerDonneesSensibles($ligne) {
249
		if(stripos($ligne['mots_cles_texte'], 'sensible') !== false) {
250
			$ligne['latitude'] = '';
251
			$ligne['longitude'] = '';
252
		}
253
		return $ligne;
254
	}
255
 
1401 aurelien 256
	private function nettoyerChaine($chaine) {
257
		$chaine = str_replace("\n",' ',$chaine);
258
		$chaine = str_replace("\t",'',$chaine);
259
		return $chaine;
260
	}
1654 aurelien 261
 
262
	private function doitEtPeutExporterObsPrivees($criteres) {
263
		return isset($criteres['ce_utilisateur']) &&
264
					$this->peutExporterObsPrivees($criteres['ce_utilisateur']);
265
	}
266
 
267
	private function peutExporterObsPrivees($id_utilisateur) {
268
		$gestion_utilisateur = new User($this->config);
269
		$utilisateur = $gestion_utilisateur->obtenirIdentiteConnectee();
270
		return $utilisateur['connecte'] &&
271
				$utilisateur['id_utilisateur'] != '' &&
272
				$id_utilisateur == $utilisateur['id_utilisateur'];
273
	}
1374 aurelien 274
}
275
?>