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
23
error_reporting(error_reporting() ^ E_STRICT);
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';
1374 aurelien 30
	private $champs_a_exclure = array('ce_utilisateur' => 'ce_utilisateur',
31
		'courriel_utilisateur' => 'courriel_utilisateur',
32
		'transmission' => 'transmission');
33
	private $correspondance_champs = array(
34
		'id_observation' => 'Identifiant Observation',
35
		'ordre' => 'Ordre Observation',
36
		'prenom_utilisateur' => 'Prénom',
37
		'nom_utilisateur' => 'Nom',
38
		'nom_sel' => 'Nom Sélectionné',
39
		'nom_sel_nn' => 'Numéro Nomenclatural Nom Selectionné',
40
		'nom_ret' => 'Nom Retenu',
41
		'nom_ret_nn' => 'Numéro Nomenclatural Nom Retenu',
42
		'nt' => 'Numéro Taxonomique',
43
		'famille' => 'Famille',
44
		'nom_referentiel' => 'Référentiel Taxonomique',
45
		'ce_zone_geo' => 'Code Insee',
46
		'zone_geo' => 'Commune',
47
		'lieudit' => 'Lieu-Dit',
48
		'station' => 'Station',
49
		'milieu' => 'Milieu',
50
		'latitude' => 'Latitude',
51
		'longitude' => 'Longitude',
52
		'geodatum' => 'Référentiel Géographique',
53
		'date_observation' => 'Date Observation',
54
		'mots_cles_texte' => 'Mots Clés',
55
		'commentaire' => 'Commentaires',
56
		'date_creation' => 'Date Création',
57
		'date_modification' => 'Date Modification',
58
		'date_transmission' => 'Date Transmission'
59
		);
1376 aurelien 60
	private $parametres_autorises = array(
61
		'utilisateur' => 'courriel_utilisateur',
62
		'commune' => 'zone_geo',
63
		'dept' => 'departement',
64
		'projet' => 'mots_cles',
1379 aurelien 65
		'num_taxon' => 'nt',
1378 aurelien 66
		'date_debut' => 'date_debut',
1387 aurelien 67
		'date_fin' => 'date_fin',
68
		'taxon' => 'taxon'
1376 aurelien 69
	);
1402 aurelien 70
 
71
	private $format = 'csv';
1579 aurelien 72
 
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
	 */
80
	public function getElement($params = array()) {
81
 
1611 raphael 82
		$criteres = $this->traiterParametresAutorises($_GET);
1402 aurelien 83
 
1374 aurelien 84
		// Seulement les observation publiques
85
		$criteres['transmission'] = 1;
86
		$chercheur_observations = new RechercheObservation($this->config);
87
 
1379 aurelien 88
		$numero_page = isset($criteres['debut']) ? $criteres['debut'] : 0;
89
		$limite = isset($criteres['limite']) ? $criteres['limite'] : 0;
1374 aurelien 90
 
91
		unset($criteres['limite']);
92
		unset($criteres['debut']);
93
 
94
		$observations = $chercheur_observations->rechercherObservations(null, $criteres, $numero_page, $limite);
1579 aurelien 95
 
1402 aurelien 96
		switch($this->format) {
97
			case 'csv':
98
				$csv = $this->convertirEnCsv($observations);
99
				$this->envoyerCsv($csv);
100
			break;
101
			case 'xls':
102
				$xls = $this->convertirEnXls($observations);
103
				$this->envoyerXls($xls);
104
			break;
105
			default:
106
		}
1374 aurelien 107
	}
108
 
1611 raphael 109
	protected function traiterParametresAutorises(Array $parametres) {
1376 aurelien 110
		$parametres_traites = array();
1402 aurelien 111
		$this->format = (isset($parametres['format']) && $parametres['format'] != '') ? $parametres['format'] : $this->format;
1376 aurelien 112
		foreach($parametres as $cle => $valeur) {
113
			if(trim($valeur) != '' && isset($this->parametres_autorises[$cle])) {
114
				$parametres_traites[$this->parametres_autorises[$cle]] = $valeur;
115
			}
116
		}
117
		return $parametres_traites;
118
	}
119
 
1374 aurelien 120
	private function envoyerCsv($csv) {
121
		header('Content-Type: text/csv; charset=UTF-8');
1408 aurelien 122
		header('Content-Disposition: attachment;filename='.$this->nom_fichier_export.'.csv');
1374 aurelien 123
		echo $csv;
1376 aurelien 124
		exit;
1374 aurelien 125
	}
126
 
1402 aurelien 127
	private function envoyerXls($workbook) {
128
		$workbook->close();
129
		exit;
130
	}
131
 
1374 aurelien 132
	private function convertirEnCsv($data)
133
	{
134
		$chemin_temp = "php://temp";
135
		$outstream = fopen($chemin_temp, 'r+');
136
		$intitule_champs = array();
137
		foreach($data as $ligne) {
1429 aurelien 138
			$ligne = $this->filtrerDonneesSensibles($ligne);
1374 aurelien 139
			$ligne = array_diff_key($ligne, $this->champs_a_exclure);
140
			if(empty($intitule_champs)) {
141
				$intitule_champs = $this->creerEntetesChamps($ligne);
142
				fputcsv($outstream, $intitule_champs, ',', '"');
143
			}
144
			fputcsv($outstream, $ligne, ',', '"');
145
		}
146
		rewind($outstream);
147
		$csv = stream_get_contents($outstream);
148
		fclose($outstream);
149
		return $csv;
150
	}
151
 
1402 aurelien 152
	private function convertirEnXls($data) {
153
		$this->extendSpreadsheetProductor = new SpreadsheetProductor();
154
		$this->extendSpreadsheetProductor->initSpreadsheet();
155
 
156
		$workbook = new Spreadsheet_Excel_Writer();
1612 raphael 157
		$workbook->setVersion(8);
1402 aurelien 158
 
159
		$worksheet = $workbook->addWorksheet('Liste');
1612 raphael 160
		$worksheet->setInputEncoding('utf-8');
1408 aurelien 161
		$workbook->send($this->nom_fichier_export.'.xls');
1402 aurelien 162
 
163
		$nb_lignes = 1;
164
 
165
		foreach($data as $ligne) {
1429 aurelien 166
			$ligne = $this->filtrerDonneesSensibles($ligne);
1402 aurelien 167
			$ligne = array_diff_key($ligne, $this->champs_a_exclure);
168
			if(empty($intitule_champs)) {
169
				$intitule_champs = $this->creerEntetesChamps($ligne);
170
				$indice = 0;
171
				foreach ($intitule_champs as $intitule) {
1465 aurelien 172
					$colonne = $intitule_champs[$indice];
173
					$worksheet->write(0,$indice,$colonne);
1402 aurelien 174
					$indice++;
175
				}
176
			}
177
			$indice = 0;
178
			foreach($ligne as $champ) {
179
				$worksheet->write($nb_lignes,$indice,$champ);
180
				$indice++;
181
			}
182
			$nb_lignes++;
183
		}
184
		return $workbook;
185
	}
186
 
1374 aurelien 187
	private function creerEntetesChamps($noms_colonnes) {
188
		$champs_presents = array_intersect_key($this->correspondance_champs, $noms_colonnes);
189
		return array_values($champs_presents);
190
	}
1401 aurelien 191
 
1429 aurelien 192
	private function filtrerDonneesSensibles($ligne) {
193
		if(stripos($ligne['mots_cles_texte'], 'sensible') !== false) {
194
			$ligne['latitude'] = '';
195
			$ligne['longitude'] = '';
196
		}
197
		return $ligne;
198
	}
199
 
1401 aurelien 200
	private function nettoyerChaine($chaine) {
201
		$chaine = str_replace("\n",' ',$chaine);
202
		$chaine = str_replace("\t",'',$chaine);
203
		return $chaine;
204
	}
1374 aurelien 205
}
206
?>