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/chretien/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; }