Server : Apache System : Linux webd348.cluster026.gra.hosting.ovh.net 5.15.148-ovh-vps-grsec-zfs-classid #1 SMP Thu Feb 8 09:41:04 UTC 2024 x86_64 User : hednacluml ( 122243) PHP Version : 8.3.9 Disable Function : _dyuweyrj4,_dyuweyrj4r,dl Directory : /home/hednacluml/jobs/ecrire/inc/ |
<?php
/***************************************************************************\
* SPIP, Système de publication pour l'internet *
* *
* Copyright © avec tendresse depuis 2001 *
* Arnaud Martin, Antoine Pitrou, Philippe Rivière, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribué sous licence GNU/GPL. *
\***************************************************************************/
/**
* Gestion d'export de données au format CSV
*
* @package SPIP\Core\CSV\Export
**/
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
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
*
* @uses exporter_csv_champ()
*
* @param int $nb
* @param array $ligne
* @param string $delim
* @param string|null $importer_charset
* Si défini exporte dans le charset indiqué
* @param callable $callback
* @return string
*/
function exporter_csv_ligne_numerotee($nb, $ligne, $delim = ',', $importer_charset = null, ?callable $callback = null) {
if ($callback) {
$ligne = $callback($nb, $ligne, $delim, $importer_charset);
}
$output = join($delim, array_map('exporter_csv_champ', $ligne)) . "\r\n";
if ($importer_charset) {
$output = str_replace('’', '\'', $output);
$output = unicode2charset(html2unicode(charset2unicode($output)), $importer_charset);
}
return $output;
}
/**
* @deprecated 4.0
*
* @param $ligne
* @param string $delim
* @param null $importer_charset
* @return string
*/
function exporter_csv_ligne($ligne, $delim = ',', $importer_charset = null) {
trigger_deprecation('spip', '3.2', 'Using "%s" is deprecated, use "%s" instead', __FUNCTION__, 'exporter_csv_ligne_numerotee');
return exporter_csv_ligne_numerotee(null, $ligne, $delim, $importer_charset);
}
/**
* Exporte une ressource sous forme de fichier CSV
*
* La ressource peut etre un tableau ou une resource SQL issue d'une requete
* Le nom du fichier est défini en fonction du titre s'il n'est pas indiqué dans les options.
* L'extension est choisie en fonction du délimiteur si elle n'est pas indiquée dans les options :
* - si on utilise ',' c'est un vrai csv avec extension csv
* - si on utilise ';' ou tabulation c'est pour E*cel, et on exporte en iso-truc, avec une extension .xls
*
* @uses exporter_csv_ligne()
*
* @param string $titre
* Titre utilisé pour nommer le fichier si celui-ci n'est pas indiqué dans les options
* Il peut s'agir d'un texte contenant de la syntaxe SPIP
* @param array|resource $resource
* @param array $options
* - (string) fichier : nom du fichier, par défaut défini en fonction du $titre
* - (string) extension : `csv` | `xls`, par défaut choisie en fonction du délimiteur
* - (string) delim : `,` | `;` | `\t` | `TAB`
* - (array) entetes : tableau d'en-tetes pour nommer les colonnes (genere la premiere ligne)
* - (bool) envoyer : pour envoyer le fichier exporte (permet le telechargement)
* - (string) charset : charset de l'export si different de celui du site
* - (callable) callback : fonction callback a appeler sur chaque ligne pour mettre en forme/completer les donnees
* @return string
*/
function inc_exporter_csv_dist($titre, $resource, $options = []) {
// support ancienne syntaxe
// inc_exporter_csv_dist($titre, $resource, $delim = ', ', $entetes = null, $envoyer = true)
if (is_string($options)) {
$args = func_get_args();
$options = [];
foreach ([2 => 'delim', 3 => 'entetes', 4 => 'envoyer'] as $k => $option) {
if (!empty($args[$k])) {
$options[$option] = $args[$k];
}
}
}
$default_options = [
'fichier' => null, // par défaut = $titre
'extension' => null, // par défaut = choix auto
'delim' => ',',
'entetes' => null,
'envoyer' => true,
'charset' => null,
'callback' => null,
];
$options = array_merge($default_options, $options);
// Délimiteur
if ($options['delim'] == 'TAB') {
$options['delim'] = "\t";
}
if (!in_array($options['delim'], [',', ';', "\t"])) {
$options['delim'] = ',';
}
// Nom du fichier : celui indiqué dans les options, sinon le titre
// Normalisation : uniquement les caractères non spéciaux, tirets, underscore et point + remplacer espaces par underscores
$filename = $options['fichier'] ?? translitteration(textebrut(typo($titre)));
$filename = preg_replace([',[^\w\-_\.\s]+,', ',\s+,'], ['', '_'], trim($filename));
$filename = rtrim($filename, '.');
// Extension : celle indiquée en option, sinon choisie selon le délimiteur
// Normalisation : uniquement les charactères non spéciaux
if (!empty($options['extension'])) {
$options['extension'] = preg_replace(',[^\w]+,', '', trim($options['extension']));
}
$extension = $options['extension'] ?? ($options['delim'] === ',' ? 'csv' : 'xls');
// Fichier
$basename = "$filename.$extension";
// Charset : celui indiqué en option, sinon celui compatible excel si nécessaire, sinon celui du site
// Excel n'accepte pas l'utf-8 ni les entites html... on transcode tout ce qu'on peut
$charset_site = $GLOBALS['meta']['charset'];
$charset_excel = ($extension === 'xls' ? 'iso-8859-1' : null);
$charset = $options['charset'] ?? $charset_excel ?? $charset_site;
$importer_charset = (($charset === $charset_site) ? null : $charset);
$output = '';
$nb = 0;
if (!empty($options['entetes']) and is_array($options['entetes'])) {
$output = exporter_csv_ligne_numerotee($nb, $options['entetes'], $options['delim'], $importer_charset, $options['callback']);
}
// les donnees commencent toujours a la ligne 1, qu'il y ait ou non des entetes
$nb++;
if ($options['envoyer']) {
$disposition = ($options['envoyer'] === 'attachment' ? 'attachment' : 'inline');
header("Content-Type: text/comma-separated-values; charset=$charset");
header("Content-Disposition: $disposition; filename=$basename");
// Vider tous les tampons
$level = @ob_get_level();
while ($level--) {
@ob_end_flush();
}
}
// si envoyer=='attachment' on passe par un fichier temporaire
// sinon on ecrit directement sur stdout
if ($options['envoyer'] and $options['envoyer'] !== 'attachment') {
$fichier = 'php://output';
}
else {
$fichier = sous_repertoire(_DIR_CACHE, 'export') . $basename;
}
$fp = fopen($fichier, 'w');
$length = fwrite($fp, $output);
while ($row = is_array($resource) ? array_shift($resource) : sql_fetch($resource)) {
$output = exporter_csv_ligne_numerotee($nb, $row, $options['delim'], $importer_charset, $options['callback']);
$length += fwrite($fp, $output);
$nb++;
}
fclose($fp);
if ($options['envoyer']) {
if ($options['envoyer'] === 'attachment') {
header("Content-Length: $length");
readfile($fichier);
}
// si on a envoye inline, c'est deja tout bon
exit;
}
return $fichier;
}