un export_csv merge entre la fonction presente dans le plugin csv_import et celle du plugin spip-surcharges

.gitattributes

@@ -48,6 +48,7 @@ img_pack/tri_desc-16.png -text
 img_pack/tri_desc-24.png -text
 inc/core21_filtres.php -text
 inc/date_gestion.php -text
+inc/exporter_csv.php -text
 inc/importer_csv.php -text
 javascript/jquery.qtip-1.0.0-rc3.js -text
 javascript/jquery.qtip.activate.js -text

inc/exporter_csv.php

@@ -0,0 +1,96 @@
+<?php
+/**
+ * Plugin Spip-Bonux
+ * Le plugin qui lave plus SPIP que SPIP
+ * (c) 2008 Mathieu Marcillaud, Cedric Morin, Romy Tetue
+ * Licence GPL
+ *
+ * Fonctions d'export d'une requete sql ou d'un tableau
+ * au format CSV
+ * Merge du plugin csv_import et spip-surcharges
+ *
+ */
+
+include_spip('inc/charsets');
+include_spip('inc/filtres');
+include_spip('inc/texte');
+
+/**
+ * Exporter un champ pour un export CSV : pas de retour a la ligne,
+ * et echapper les guillements par des doubles guillemets
+ * @param string $champ
+ * @return string
+ */
+function exporter_csv_champ($champ) {
+	#$champ = str_replace("\r", "\n", $champ);
+	#$champ = preg_replace(",[\n]+,ms", "\n", $champ);
+	#$champ = str_replace("\n", ", ", $champ);
+	$champ = preg_replace(',[\s]+,ms', ' ', $champ);
+	$champ = str_replace('"', '""', $champ);
+	return '"'.$champ.'"';
+}
+
+/**
+ * Exporter une ligne complete au format CSV, avec delimiteur fourni
+ * @param array $ligne
+ * @param string $delim
+ * @return string
+ */
+function exporter_csv_ligne($ligne, $delim = ',', $importer_charset = null) {
+	$output = join($delim, array_map('exporter_csv_champ', $ligne))."\r\n";
+	if ($importer_charset){
+		$output = unicode2charset(html2unicode(charset2unicode($output)), $importer_charset);
+	}
+	return $output;
+}
+
+
+function inc_exporter_csv_dist($titre, $resource, $delim=',', $entetes = null,$envoyer = true){
+
+	$filename = preg_replace(',[^-_\w]+,', '_', translitteration(textebrut(typo($titre))));
+	
+	if ($delim == 'TAB') $delim = "\t";
+	if (!in_array($delim,array(',',';',"\t")))
+		$delim = ",";
+
+	$charset = $GLOBALS['meta']['charset'];
+	$importer_charset = null;
+	if ($delim == ',')
+		$extension = 'csv';
+	else {
+		$extension = 'xls';
+		# Excel n'accepte pas l'utf-8 ni les entites html... on transcode tout ce qu'on peut
+		$importer_charset = $charset = 'iso-8859-1';
+	}
+	$filename = "$filename.$extension";
+
+	if ($entetes AND is_array($entetes) AND count($entetes))
+		$output = exporter_csv_ligne($entetes,$delim,$importer_charset);
+
+	// on passe par un fichier temporaire qui permet de ne pas saturer la memoire
+	// avec les gros exports
+	$fichier = sous_repertoire(_DIR_CACHE,"export") . $filename;
+	$fp = fopen($fichier, 'w');
+	$length = fwrite($fp, $output);
+
+	while ($row=is_array($resource)?array_shift($resource):sql_fetch($resource)){
+		$output = exporter_csv_ligne($row,$delim,$importer_charset);
+		$length += fwrite($fp, $output);
+	}
+	fclose($fp);
+
+	if ($envoyer) {
+		Header("Content-Type: text/comma-separated-values; charset=$charset");
+		Header("Content-Disposition: attachment; filename=$filename");
+		//non supporte
+		//Header("Content-Type: text/plain; charset=$charset");
+		Header("Content-Length: $length");
+		ob_clean();
+    flush();
+    readfile($fichier);
+	}
+
+	return $fichier;
+}
+
+?>

plugin.xml

@@ -3,7 +3,7 @@
   <auteur>Cedric Morin, Matthieu Marcillaud, romy.tetue.net</auteur>
   <icon>img_pack/spip-bonux.png</icon>
   <licence>(c) 2008-2009 GPL</licence>
-  <version>1.9.2</version>
+  <version>1.9.3</version>
   <etat>stable</etat>
   <description>Le plugin qui lave plus SPIP que SPIP, avec des chouettes cadeaux dedans ! Interface douce, boucles POUR et CONDITION, tableaux, compteur, etc.</description>
   <lien>http://www.spip-contrib.net/SPIP-Bonux</lien>
@@ -21,7 +21,7 @@
   <auteur>Cedric Morin, Matthieu Marcillaud, romy.tetue.net</auteur>
   <icon>img_pack/spip-bonux.png</icon>
   <licence>(c) 2008-2009 GPL</licence>
-  <version>1.9.2</version>
+  <version>1.9.3</version>
   <etat>stable</etat>
   <description>Le plugin qui lave plus SPIP que SPIP, avec des chouettes cadeaux dedans ! Interface douce, boucles POUR et CONDITION, tableaux, compteur, etc.</description>
   <lien>http://www.spip-contrib.net/SPIP-Bonux</lien>