f626d29843
When exporting a poll to CSV, no BOM character is written. Most applications can properly detect the required encoding, but some do not, and might find it helpful to be able to read a BOM character. -- Comment added 2019-04-16, nico@bou.io: The issue is specifically with Excel that assumes Latin-1 by default, but switches to utf-8 if a BOM is present. On the other hand, LibreOffice and other apps seem to behave correctly with a BOM.
135 lines
3.9 KiB
PHP
135 lines
3.9 KiB
PHP
<?php
|
|
/**
|
|
* This software is governed by the CeCILL-B license. If a copy of this license
|
|
* is not distributed with this file, you can obtain one at
|
|
* http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.txt
|
|
*
|
|
* Authors of STUdS (initial project): Guilhem BORGHESI (borghesi@unistra.fr) and Raphaël DROZ
|
|
* Authors of Framadate/OpenSondage: Framasoft (https://github.com/framasoft)
|
|
*
|
|
* =============================
|
|
*
|
|
* Ce logiciel est régi par la licence CeCILL-B. Si une copie de cette licence
|
|
* ne se trouve pas avec ce fichier vous pouvez l'obtenir sur
|
|
* http://www.cecill.info/licences/Licence_CeCILL-B_V1-fr.txt
|
|
*
|
|
* Auteurs de STUdS (projet initial) : Guilhem BORGHESI (borghesi@unistra.fr) et Raphaël DROZ
|
|
* Auteurs de Framadate/OpenSondage : Framasoft (https://github.com/framasoft)
|
|
*/
|
|
use Framadate\Services\LogService;
|
|
use Framadate\Services\PollService;
|
|
use Framadate\Services\SecurityService;
|
|
use Framadate\Utils;
|
|
|
|
include_once __DIR__ . '/app/inc/init.php';
|
|
|
|
ob_start();
|
|
|
|
/* Variables */
|
|
/* --------- */
|
|
|
|
$poll_id = null;
|
|
$poll = null;
|
|
|
|
/* Services */
|
|
/*----------*/
|
|
|
|
$logService = new LogService();
|
|
$pollService = new PollService($connect, $logService);
|
|
$securityService = new SecurityService();
|
|
|
|
/* PAGE */
|
|
/* ---- */
|
|
|
|
if (!empty($_GET['poll'])) {
|
|
$poll_id = filter_input(INPUT_GET, 'poll', FILTER_VALIDATE_REGEXP, ['options' => ['regexp' => POLL_REGEX]]);
|
|
$poll = $pollService->findById($poll_id);
|
|
} else if (!empty($_GET['admin'])) {
|
|
$admin_id = filter_input(INPUT_GET, 'admin', FILTER_VALIDATE_REGEXP, ['options' => ['regexp' => ADMIN_POLL_REGEX]]);
|
|
$poll = $pollService->findByAdminId($admin_id);
|
|
if ($poll) {
|
|
$poll_id = $poll->id;
|
|
}
|
|
}
|
|
|
|
if (!$poll) {
|
|
$smarty->assign('error', __('Error', "This poll doesn't exist!"));
|
|
$smarty->display('error.tpl');
|
|
exit;
|
|
}
|
|
|
|
if (empty($admin_id)) {
|
|
$forbiddenBecauseOfPassword = !$poll->results_publicly_visible && !$securityService->canAccessPoll($poll);
|
|
$resultsAreHidden = $poll->hidden;
|
|
|
|
if ($resultsAreHidden || $forbiddenBecauseOfPassword) {
|
|
$smarty->assign('error', __('Error', 'Forbidden!'));
|
|
$smarty->display('error.tpl');
|
|
exit;
|
|
}
|
|
}
|
|
|
|
$slots = $pollService->allSlotsByPoll($poll);
|
|
$votes = $pollService->allVotesByPollId($poll_id);
|
|
|
|
// CSV header
|
|
echo "\xEF\xBB\xBF"; // BOM character for UTF-8
|
|
if ($poll->format === 'D') {
|
|
$titles_line = ',';
|
|
$moments_line = ',';
|
|
foreach ($slots as $slot) {
|
|
$title = Utils::csvEscape(strftime($date_format['txt_date'], $slot->title));
|
|
$moments = explode(',', $slot->moments);
|
|
|
|
$titles_line .= str_repeat($title . ',', count($moments));
|
|
$moments_line .= implode(',', array_map('\Framadate\Utils::csvEscape', $moments)) . ',';
|
|
}
|
|
echo $titles_line . "\r\n";
|
|
echo $moments_line . "\r\n";
|
|
} else {
|
|
echo ',';
|
|
foreach ($slots as $slot) {
|
|
echo Utils::markdown($slot->title, true) . ',';
|
|
}
|
|
echo "\r\n";
|
|
}
|
|
// END - CSV header
|
|
|
|
// Vote lines
|
|
foreach ($votes as $vote) {
|
|
echo Utils::csvEscape($vote->name) . ',';
|
|
$choices = str_split($vote->choices);
|
|
foreach ($choices as $choice) {
|
|
switch ($choice) {
|
|
case 0:
|
|
$text = __('Generic', 'No');
|
|
break;
|
|
case 1:
|
|
$text = __('Generic', 'Under reserve');
|
|
break;
|
|
case 2:
|
|
$text = __('Generic', 'Yes');
|
|
break;
|
|
default:
|
|
$text = 'unkown';
|
|
}
|
|
echo Utils::csvEscape($text);
|
|
echo ',';
|
|
}
|
|
echo "\r\n";
|
|
}
|
|
// END - Vote lines
|
|
|
|
// HTTP headers
|
|
$content = ob_get_clean();
|
|
$filesize = strlen($content);
|
|
$filename = Utils::cleanFilename($poll->title) . '.csv';
|
|
|
|
header('Content-Type: text/csv; charset=utf-8');
|
|
header('Content-Length: ' . $filesize);
|
|
header('Content-Disposition: attachment; filename="' . $filename . '"');
|
|
header('Cache-Control: max-age=10');
|
|
// END - HTTP headers
|
|
|
|
echo $content;
|