date.chapril.org-framadate/exportcsv.php

<?php
//==========================================================================
//
//Université de Strasbourg - Direction Informatique
//Auteur : Guilhem BORGHESI
//Création : Février 2008
//
//borghesi@unistra.fr
//
//Ce logiciel est régi par la licence CeCILL-B soumise au droit français et
//respectant les principes de diffusion des logiciels libres. Vous pouvez
//utiliser, modifier et/ou redistribuer ce programme sous les conditions
//de la licence CeCILL-B telle que diffusée par le CEA, le CNRS et l'INRIA 
//sur le site "http://www.cecill.info".
//
//Le fait que vous puissiez accéder à cet en-tête signifie que vous avez 
//pris connaissance de la licence CeCILL-B, et que vous en avez accepté les
//termes. Vous pouvez trouver une copie de la licence dans le fichier LICENCE.
//
//==========================================================================
//
//Université de Strasbourg - Direction Informatique
//Author : Guilhem BORGHESI
//Creation : Feb 2008
//
//borghesi@unistra.fr
//
//This software is governed by the CeCILL-B license under French law and
//abiding by the rules of distribution of free software. You can  use, 
//modify and/ or redistribute the software under the terms of the CeCILL-B
//license as circulated by CEA, CNRS and INRIA at the following URL
//"http://www.cecill.info". 
//
//The fact that you are presently reading this means that you have had
//knowledge of the CeCILL-B license and that you accept its terms. You can
//find a copy of this license in the file LICENSE.
//
//==========================================================================

include_once('fonctions.php');

if(!isset($_GET['numsondage']) || ! preg_match(";^[\w\d]{16}$;i", $_GET['numsondage'])) {
  header('Location: studs.php');
}

$user_studs=$connect->Execute("SELECT * FROM user_studs WHERE id_sondage=" . $_GET['numsondage'] . " ORDER BY id_users");

$dsondage = get_sondage_from_id($_GET['numsondage']);
$nbcolonnes=substr_count($dsondage->sujet,',')+1;

$toutsujet=explode(",",$dsondage->sujet);
#$toutsujet=str_replace("°","'",$toutsujet);

//affichage des sujets du sondage
$input.=";";
for ($i=0;$toutsujet[$i];$i++) {
  if ($dsondage->format=="D"||$dsondage->format=="D+") {
    $input.=''.date("j/n/Y",$toutsujet[$i]).';';
  } else {
    $input.=''.$toutsujet[$i].';';
  }
}

$input.="\r\n";

if (strpos($dsondage->sujet,'@') !== false) {
  $input.=";";
  for ($i=0;$toutsujet[$i];$i++) {
    $heures=explode("@",$toutsujet[$i]);
    $input.=''.$heures[1].';';
  }
  
  $input.="\r\n";
}

while (	$data=$user_studs->FetchNextObject(false)) {
  // Le nom de l'utilisateur
  $nombase=str_replace("°","'",$data->nom);
  $input.=$nombase.';';
  //affichage des resultats
  $ensemblereponses=$data->reponses;
  for ($k=0;$k<$nbcolonnes;$k++) {
    $car=substr($ensemblereponses,$k,1);
    if ($car=="1") {
      $input.='OK;';
      $somme[$k]++;
    } else {
      $input.=';';
    }
  }
  
  $input.="\r\n";
}

$filesize = strlen( $input );
$filename=$_GET["numsondage"].".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' );
echo $input;
die();