date.chapril.org-framadate/fonctions.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.
//
//==========================================================================

if(ini_get('date.timezone') == '') {
  date_default_timezone_set("Europe/Paris");
}

include_once('variables.php');
include_once('i18n.php');
require_once('adodb/adodb.inc.php');

function connexion_base()
{
  $DB = NewADOConnection(BASE_TYPE);
  $DB->Connect(SERVEURBASE, USERBASE, USERPASSWD, BASE);
  //$DB->debug = true;
  return $DB;
}

function get_server_name()
{
    $scheme = (isset($_SERVER["HTTPS"]) && $_SERVER["HTTPS"] == 'on') ? 'https' : 'http';
    return $scheme . '://' .  $_SERVER['SERVER_NAME'] . dirname($_SERVER['SCRIPT_NAME']).'/';
}


function get_sondage_from_id($id)
{
  global $connect;

  // Ouverture de la base de données
  if(preg_match(";^[\w\d]{16}$;i",$id)) {
    $sql = 'SELECT sondage.*,sujet_studs.sujet FROM sondage
            LEFT OUTER JOIN sujet_studs ON sondage.id_sondage = sujet_studs.id_sondage
            WHERE sondage.id_sondage = '.$connect->Param('id_sondage');

    $sql = $connect->Prepare($sql);
    $sondage=$connect->Execute($sql, array($id));

    if ($sondage === false) {
      return false;
    }

    $psondage = $sondage->FetchObject(false);
    $psondage->date_fin = strtotime($psondage->date_fin);
    return $psondage;
  }

  return false;
}


function is_error($cerr)
{
  global $err;
  if ( $err == 0 ) {
    return false;
  }

  return (($err & $cerr) != 0 );
}


function is_user()
{
  return ( USE_REMOTE_USER && isset($_SERVER['REMOTE_USER']) ) || (isset($_SESSION['nom']));
}


function print_header($js = false, $nom_sondage = '')
{
  echo '<!DOCTYPE html>
<html lang="'.$lang.'">
  <head>
    <meta charset="utf-8">';
  if (empty($nom_sondage) === false) {
    echo '
    <title>'.stripslashes($nom_sondage).' - '.NOMAPPLICATION.'</title>';
  } else {
    echo '
    <title>'.NOMAPPLICATION.'</title>';
  }
  echo '
    <link rel="stylesheet" href="'.get_server_name().'style.css">
    <link rel="stylesheet" href="'.get_server_name().'print.css" media="print">';

  echo '</head>';
}


function check_table_sondage()
{
  global $connect;
  $tables = $connect->MetaTables('TABLES');
  if (in_array("sondage", $tables)) {
    return true;
  }
  return false;
}


/**
 * Vérifie une adresse e-mail selon les normes RFC
 * @param  string  $email  l'adresse e-mail a vérifier
 * @return  bool    vrai si l'adresse est correcte, faux sinon
 * @see http://fightingforalostcause.net/misc/2006/compare-email-regex.php
 * @see http://svn.php.net/viewvc/php/php-src/trunk/ext/filter/logical_filters.c?view=markup
 */
function validateEmail($email)
{
  $pattern = '/^(?!(?:(?:\\x22?\\x5C[\\x00-\\x7E]\\x22?)|(?:\\x22?[^\\x5C\\x22]\\x22?)){255,})(?!(?:(?:\\x22?\\x5C[\\x00-\\x7E]\\x22?)|(?:\\x22?[^\\x5C\\x22]\\x22?)){65,}@)(?:(?:[\\x21\\x23-\\x27\\x2A\\x2B\\x2D\\x2F-\\x39\\x3D\\x3F\\x5E-\\x7E]+)|(?:\\x22(?:[\\x01-\\x08\\x0B\\x0C\\x0E-\\x1F\\x21\\x23-\\x5B\\x5D-\\x7F]|(?:\\x5C[\\x00-\\x7F]))*\\x22))(?:\\.(?:(?:[\\x21\\x23-\\x27\\x2A\\x2B\\x2D\\x2F-\\x39\\x3D\\x3F\\x5E-\\x7E]+)|(?:\\x22(?:[\\x01-\\x08\\x0B\\x0C\\x0E-\\x1F\\x21\\x23-\\x5B\\x5D-\\x7F]|(?:\\x5C[\\x00-\\x7F]))*\\x22)))*@(?:(?:(?!.*[^.]{64,})(?:(?:(?:xn--)?[a-z0-9]+(?:-[a-z0-9]+)*\\.){1,126}){1,}(?:(?:[a-z][a-z0-9]*)|(?:(?:xn--)[a-z0-9]+))(?:-[a-z0-9]+)*)|(?:\\[(?:(?:IPv6:(?:(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){7})|(?:(?!(?:.*[a-f0-9][:\\]]){7,})(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){0,5})?::(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){0,5})?)))|(?:(?:IPv6:(?:(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){5}:)|(?:(?!(?:.*[a-f0-9]:){5,})(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){0,3})?::(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){0,3}:)?)))?(?:(?:25[0-5])|(?:2[0-4][0-9])|(?:1[0-9]{2})|(?:[1-9]?[0-9]))(?:\\.(?:(?:25[0-5])|(?:2[0-4][0-9])|(?:1[0-9]{2})|(?:[1-9]?[0-9]))){3}))\\]))$/iD';

  return (bool)preg_match($pattern, $email);
}

# Envoi un courrier avec un codage correct de To et Subject
# Les en-têtes complémentaires ne sont pas gérés

function sendEmail( $to, $subject, $body, $headers, $param)
{

  mb_internal_encoding("UTF-8");

  $subject = mb_encode_mimeheader( html_entity_decode( $subject, ENT_QUOTES, 'UTF-8' ), "UTF-8", "B", "\n", 9 ) ;

  $encoded_app = mb_encode_mimeheader( NOMAPPLICATION, "UTF-8", "B", "\n", 6 ) ;
  $size_encoded_app = ( 6 + strlen( $encoded_app ) ) % 75 ;
  $size_admin_email = strlen( ADRESSEMAILADMIN ) ;

  if ( ( $size_encoded_app + $size_admin_email + 9 ) > 74 ) {
    $folding = "\n" ;
  } else {
    $folding = "" ;
  } ;
  // si $headers ne contient qu'une adresse email, on la considère comme adresse de reply-to, sinon on met l'adresse de no-reply definie dans variables.php
  if (validateEmail($headers)) {
    $replyTo = $headers;
    $headers = ""; // on reinitialise $headers
  } else {
    $replyTo = ADRESSEEMAILREPONSEAUTO;
  }
  
  
  $from = sprintf( "From: %s%s <%s>\n", $encoded_app, $folding, ADRESSEMAILADMIN ) ;

  if ( $headers ) $headers .= "\n" ;
  $headers .= $from ;
  $headers .= "Reply-To: $replyTo\n";
  $headers .= "MIME-Version: 1.0\n" ;
  $headers .= "Content-Type: text/plain; charset=UTF-8\n" ;
  $headers .= "Content-Transfer-Encoding: 8bit" ;

  $body = html_entity_decode( $body, ENT_QUOTES, 'UTF-8' ) ;

  mail( $to, $subject, $body, $headers, $param ) ;

}


/**
 * Fonction vérifiant l'existance et la valeur non vide d'une clé d'un tableau
 * @param   string  $name       La clé à tester
 * @param   array   $tableau    Le tableau où rechercher la clé ($_POST par défaut)
 * @return  bool                Vrai si la clé existe et renvoie une valeur non vide
 */
function issetAndNoEmpty($name, $tableau = null)
{
  if ($tableau === null) {
    $tableau = $_POST;
  }

  return (isset($tableau[$name]) === true && empty($tableau[$name]) === false);
}


/**
 * Fonction permettant de générer les URL pour les sondage
 * @param   string    $id     L'identifiant du sondage
 * @param   bool      $admin  True pour générer une URL pour l'administration d'un sondage, False pour un URL publique
 * @return  string            L'url pour le sondage
 */
function getUrlSondage($id, $admin = false)
{
  if (URL_PROPRE === true) {
    if ($admin === true) {
      $url = str_replace('/admin','',get_server_name()).$id.'/admin';
    } else {
      $url = str_replace('/admin','',get_server_name()).$id;
    }
  } else {
    if ($admin === true) {
      $url = str_replace('/admin','',get_server_name()).'adminstuds.php?sondage='.$id;
    } else {
      $url = str_replace('/admin','',get_server_name()).'studs.php?sondage='.$id;
    }
  }

  return $url;
}

function remove_sondage( $connect, $numsondage ){

  $connect->StartTrans();

  $req = 'DELETE FROM sondage     WHERE id_sondage = ' . $connect->Param('numsondage') ;
  $sql = $connect->Prepare($req);
  $connect->Execute($sql, array($numsondage));

  $req = 'DELETE FROM sujet_studs WHERE id_sondage = ' . $connect->Param('numsondage') ;
  $sql = $connect->Prepare($req);
  $connect->Execute($sql, array($numsondage));

  $req = 'DELETE FROM user_studs  WHERE id_sondage = ' . $connect->Param('numsondage') ;
  $sql = $connect->Prepare($req);
  $connect->Execute($sql, array($numsondage));

  $req = 'DELETE FROM comments    WHERE id_sondage = ' . $connect->Param('numsondage') ;
  $sql = $connect->Prepare($req);
  $connect->Execute($sql, array( $numsondage ));

  $suppression_OK = ! $connect->HasFailedTrans() ;
  $connect->CompleteTrans();

  return $suppression_OK ;

}


$connect=connexion_base();

define('COMMENT_EMPTY',         0x0000000001);
define('COMMENT_USER_EMPTY',    0x0000000010);
define('COMMENT_INSERT_FAILED', 0x0000000100);
define('NAME_EMPTY',            0x0000001000);
define('NAME_TAKEN',            0x0000010000);
define('NO_POLL',               0x0000100000);
define('NO_POLL_ID',            0x0001000000);
define('INVALID_EMAIL',         0x0010000000);
define('TITLE_EMPTY',           0x0100000000);
define('INVALID_DATE',          0x1000000000);
$err = 0;
STUdS fork 2011-05-15 01:32:47 +02:00			`<?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`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00			`//de la licence CeCILL-B telle que diffusée par le CEA, le CNRS et l'INRIA`
STUdS fork 2011-05-15 01:32:47 +02:00			`//sur le site "http://www.cecill.info".`
			`//`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00			`//Le fait que vous puissiez accéder à cet en-tête signifie que vous avez`
STUdS fork 2011-05-15 01:32:47 +02:00			`//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`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00			`//abiding by the rules of distribution of free software. You can use,`
STUdS fork 2011-05-15 01:32:47 +02:00			`//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`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00			`//"http://www.cecill.info".`
STUdS fork 2011-05-15 01:32:47 +02:00			`//`
			`//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.`
			`//`
			`//==========================================================================`

clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`if(ini_get('date.timezone') == '') {`
STUdS fork 2011-05-15 01:32:47 +02:00			`date_default_timezone_set("Europe/Paris");`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`}`
STUdS fork 2011-05-15 01:32:47 +02:00
			`include_once('variables.php');`
			`include_once('i18n.php');`
			`require_once('adodb/adodb.inc.php');`

clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`function connexion_base()`
			`{`
			`$DB = NewADOConnection(BASE_TYPE);`
			`$DB->Connect(SERVEURBASE, USERBASE, USERPASSWD, BASE);`
			`//$DB->debug = true;`
			`return $DB;`
STUdS fork 2011-05-15 01:32:47 +02:00			`}`

clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`function get_server_name()`
			`{`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00			`$scheme = (isset($_SERVER["HTTPS"]) && $_SERVER["HTTPS"] == 'on') ? 'https' : 'http';`
Accessibilité : title contextualisé selon l'étape ou les erreurs du formulaire - attribut lang sur <html> et liens du pied de page - aria-describeby pour les msg d'erreur - fix points de validation W3C - fix issue #45 2014-06-11 19:19:17 +02:00			`return $scheme . '://' . $_SERVER['SERVER_NAME'] . dirname($_SERVER['SCRIPT_NAME']).'/';`
STUdS fork 2011-05-15 01:32:47 +02:00			`}`

clean code (identation, if with {) 2011-05-15 03:56:54 +02:00
			`function get_sondage_from_id($id)`
			`{`
STUdS fork 2011-05-15 01:32:47 +02:00			`global $connect;`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
STUdS fork 2011-05-15 01:32:47 +02:00			`// Ouverture de la base de données`
			`if(preg_match(";^[\w\d]{16}$;i",$id)) {`
Clean and protect get_sondage_from_id function 2011-05-15 01:43:25 +02:00			`$sql = 'SELECT sondage.*,sujet_studs.sujet FROM sondage`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`LEFT OUTER JOIN sujet_studs ON sondage.id_sondage = sujet_studs.id_sondage`
			`WHERE sondage.id_sondage = '.$connect->Param('id_sondage');`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
Clean and protect get_sondage_from_id function 2011-05-15 01:43:25 +02:00			`$sql = $connect->Prepare($sql);`
			`$sondage=$connect->Execute($sql, array($id));`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
Clean and protect get_sondage_from_id function 2011-05-15 01:43:25 +02:00			`if ($sondage === false) {`
			`return false;`
			`}`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
STUdS fork 2011-05-15 01:32:47 +02:00			`$psondage = $sondage->FetchObject(false);`
			`$psondage->date_fin = strtotime($psondage->date_fin);`
			`return $psondage;`
			`}`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
STUdS fork 2011-05-15 01:32:47 +02:00			`return false;`
			`}`


clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`function is_error($cerr)`
			`{`
STUdS fork 2011-05-15 01:32:47 +02:00			`global $err;`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`if ( $err == 0 ) {`
STUdS fork 2011-05-15 01:32:47 +02:00			`return false;`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`}`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
STUdS fork 2011-05-15 01:32:47 +02:00			`return (($err & $cerr) != 0 );`
			`}`


clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`function is_user()`
			`{`
Add an option to disable the use of REMOTE_USER 2011-12-29 20:32:33 +01:00			`return ( USE_REMOTE_USER && isset($_SERVER['REMOTE_USER']) ) \|\| (isset($_SESSION['nom']));`
STUdS fork 2011-05-15 01:32:47 +02:00			`}`

clean code (identation, if with {) 2011-05-15 03:56:54 +02:00
Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`function print_header($js = false, $nom_sondage = '')`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`{`
Accessibilité : title contextualisé selon l'étape ou les erreurs du formulaire - attribut lang sur <html> et liens du pied de page - aria-describeby pour les msg d'erreur - fix points de validation W3C - fix issue #45 2014-06-11 19:19:17 +02:00			`echo '<!DOCTYPE html>`
			`<html lang="'.$lang.'">`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`<head>`
Accessibilité : title contextualisé selon l'étape ou les erreurs du formulaire - attribut lang sur <html> et liens du pied de page - aria-describeby pour les msg d'erreur - fix points de validation W3C - fix issue #45 2014-06-11 19:19:17 +02:00			`<meta charset="utf-8">';`
Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`if (empty($nom_sondage) === false) {`
			`echo '`
Nombreuses modifs de forme (CSS, graphisme) et qq modifs de fond 2011-06-23 01:21:56 +02:00			`<title>'.stripslashes($nom_sondage).' - '.NOMAPPLICATION.'</title>';`
Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`} else {`
			`echo '`
			`<title>'.NOMAPPLICATION.'</title>';`
			`}`
			`echo '`
Accessibilité : title contextualisé selon l'étape ou les erreurs du formulaire - attribut lang sur <html> et liens du pied de page - aria-describeby pour les msg d'erreur - fix points de validation W3C - fix issue #45 2014-06-11 19:19:17 +02:00			`<link rel="stylesheet" href="'.get_server_name().'style.css">`
			`<link rel="stylesheet" href="'.get_server_name().'print.css" media="print">';`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`echo '</head>';`
STUdS fork 2011-05-15 01:32:47 +02:00			`}`

clean code (identation, if with {) 2011-05-15 03:56:54 +02:00
			`function check_table_sondage()`
			`{`
STUdS fork 2011-05-15 01:32:47 +02:00			`global $connect;`
			`$tables = $connect->MetaTables('TABLES');`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`if (in_array("sondage", $tables)) {`
STUdS fork 2011-05-15 01:32:47 +02:00			`return true;`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`}`
STUdS fork 2011-05-15 01:32:47 +02:00			`return false;`
			`}`

mail injection bug 2011-05-15 01:47:36 +02:00
			`/**`
			`* Vérifie une adresse e-mail selon les normes RFC`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`* @param string $email l'adresse e-mail a vérifier`
			`* @return bool vrai si l'adresse est correcte, faux sinon`
mail injection bug 2011-05-15 01:47:36 +02:00			`* @see http://fightingforalostcause.net/misc/2006/compare-email-regex.php`
			`* @see http://svn.php.net/viewvc/php/php-src/trunk/ext/filter/logical_filters.c?view=markup`
			`*/`
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`function validateEmail($email)`
			`{`
mail injection bug 2011-05-15 01:47:36 +02:00			$pattern = '/^(?!(?:(?:\\x22?\\x5C[\\x00-\\x7E]\\x22?)\|(?:\\x22?[^\\x5C\\x22]\\x22?)){255,})(?!(?:(?:\\x22?\\x5C[\\x00-\\x7E]\\x22?)\|(?:\\x22?[^\\x5C\\x22]\\x22?)){65,}@)(?:(?:[\\x21\\x23-\\x27\\x2A\\x2B\\x2D\\x2F-\\x39\\x3D\\x3F\\x5E-\\x7E]+)\|(?:\\x22(?:[\\x01-\\x08\\x0B\\x0C\\x0E-\\x1F\\x21\\x23-\\x5B\\x5D-\\x7F]\|(?:\\x5C[\\x00-\\x7F]))\\x22))(?:\\.(?:(?:[\\x21\\x23-\\x27\\x2A\\x2B\\x2D\\x2F-\\x39\\x3D\\x3F\\x5E-\\x7E]+)\|(?:\\x22(?:[\\x01-\\x08\\x0B\\x0C\\x0E-\\x1F\\x21\\x23-\\x5B\\x5D-\\x7F]\|(?:\\x5C[\\x00-\\x7F]))\\x22)))@(?:(?:(?!.[^.]{64,})(?:(?:(?:xn--)?[a-z0-9]+(?:-[a-z0-9]+)\\.){1,126}){1,}(?:(?:[a-z][a-z0-9])\|(?:(?:xn--)[a-z0-9]+))(?:-[a-z0-9]+))\|(?:\\[(?:(?:IPv6:(?:(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){7})\|(?:(?!(?:.[a-f0-9][:\\]]){7,})(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){0,5})?::(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){0,5})?)))\|(?:(?:IPv6:(?:(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){5}:)\|(?:(?!(?:.*[a-f0-9]:){5,})(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){0,3})?::(?:[a-f0-9]{1,4}(?::[a-f0-9]{1,4}){0,3}:)?)))?(?:(?:25[0-5])\|(?:2[0-4][0-9])\|(?:1[0-9]{2})\|(?:[1-9]?[0-9]))(?:\\.(?:(?:25[0-5])\|(?:2[0-4][0-9])\|(?:1[0-9]{2})\|(?:[1-9]?[0-9]))){3}))\\]))$/iD';
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
mail injection bug 2011-05-15 01:47:36 +02:00			`return (bool)preg_match($pattern, $email);`
			`}`

Fix encoding for To and Subject headers 2012-01-09 01:26:44 +01:00			`# Envoi un courrier avec un codage correct de To et Subject`
			`# Les en-têtes complémentaires ne sont pas gérés`

			`function sendEmail( $to, $subject, $body, $headers, $param)`
			`{`

Force multibyte functions internal encoding 2012-01-18 00:41:23 +01:00			`mb_internal_encoding("UTF-8");`

Replace CRLF in headers by LF 2012-01-18 00:45:31 +01:00			`$subject = mb_encode_mimeheader( html_entity_decode( $subject, ENT_QUOTES, 'UTF-8' ), "UTF-8", "B", "\n", 9 ) ;`
Header encoding done with std functions 2012-01-18 00:24:16 +01:00
Replace CRLF in headers by LF 2012-01-18 00:45:31 +01:00			`$encoded_app = mb_encode_mimeheader( NOMAPPLICATION, "UTF-8", "B", "\n", 6 ) ;`
Fix last header line size calculation The "From: " prefix size was not taken into accounts when calculating how many characters were on the last header line produced by mb_encode_mimeheader. This is used to check if the e-mail address should be placed on a separate line. 2012-01-18 00:51:23 +01:00			`$size_encoded_app = ( 6 + strlen( $encoded_app ) ) % 75 ;`
Header encoding done with std functions 2012-01-18 00:24:16 +01:00			`$size_admin_email = strlen( ADRESSEMAILADMIN ) ;`
Fix encoding for To and Subject headers 2012-01-09 01:26:44 +01:00
Fix last header line size calculation The "From: " prefix size was not taken into accounts when calculating how many characters were on the last header line produced by mb_encode_mimeheader. This is used to check if the e-mail address should be placed on a separate line. 2012-01-18 00:51:23 +01:00			`if ( ( $size_encoded_app + $size_admin_email + 9 ) > 74 ) {`
Replace CRLF in headers by LF 2012-01-18 00:45:31 +01:00			`$folding = "\n" ;`
Another syntax fix 2012-01-18 00:33:42 +01:00			`} else {`
			`$folding = "" ;`
			`} ;`
les mails de création de sondages sont maintenant envoyés avec un reply-to configuré sur l'adresse du créateur du sondage et un from qui n'est pas obligatoirement l'adresse de l'admin de l'application 2013-03-25 16:58:49 +01:00			`// si $headers ne contient qu'une adresse email, on la considère comme adresse de reply-to, sinon on met l'adresse de no-reply definie dans variables.php`
			`if (validateEmail($headers)) {`
			`$replyTo = $headers;`
			`$headers = ""; // on reinitialise $headers`
			`} else {`
			`$replyTo = ADRESSEEMAILREPONSEAUTO;`
			`}`


Header encoding done with std functions 2012-01-18 00:24:16 +01:00			`$from = sprintf( "From: %s%s <%s>\n", $encoded_app, $folding, ADRESSEMAILADMIN ) ;`
Fix encoding of the From header 2012-01-09 02:18:25 +01:00
Replace CRLF in headers by LF 2012-01-18 00:45:31 +01:00			`if ( $headers ) $headers .= "\n" ;`
Header encoding done with std functions 2012-01-18 00:24:16 +01:00			`$headers .= $from ;`
les mails de création de sondages sont maintenant envoyés avec un reply-to configuré sur l'adresse du créateur du sondage et un from qui n'est pas obligatoirement l'adresse de l'admin de l'application 2013-03-25 16:58:49 +01:00			`$headers .= "Reply-To: $replyTo\n";`
Replace CRLF in headers by LF 2012-01-18 00:45:31 +01:00			`$headers .= "MIME-Version: 1.0\n" ;`
			`$headers .= "Content-Type: text/plain; charset=UTF-8\n" ;`
Add some missing semicolon 2012-01-11 20:45:13 +01:00			`$headers .= "Content-Transfer-Encoding: 8bit" ;`
Fix encoding of the From header 2012-01-09 02:18:25 +01:00
Headers separation fix Fix the header separating character (needs to be \r\n). Merge header creation with sendEmail. 2012-01-11 20:34:37 +01:00			`$body = html_entity_decode( $body, ENT_QUOTES, 'UTF-8' ) ;`
Fix encoding of the From header 2012-01-09 02:18:25 +01:00
Headers separation fix Fix the header separating character (needs to be \r\n). Merge header creation with sendEmail. 2012-01-11 20:34:37 +01:00			`mail( $to, $subject, $body, $headers, $param ) ;`
Fix encoding of the From header 2012-01-09 02:18:25 +01:00
			`}`

clean code (identation, if with {) 2011-05-15 03:56:54 +02:00
Add a function to test user params 2011-05-15 04:49:16 +02:00			`/**`
			`* Fonction vérifiant l'existance et la valeur non vide d'une clé d'un tableau`
			`* @param string $name La clé à tester`
			`* @param array $tableau Le tableau où rechercher la clé ($_POST par défaut)`
			`* @return bool Vrai si la clé existe et renvoie une valeur non vide`
			`*/`
			`function issetAndNoEmpty($name, $tableau = null)`
			`{`
			`if ($tableau === null) {`
			`$tableau = $_POST;`
			`}`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
Add a function to test user params 2011-05-15 04:49:16 +02:00			`return (isset($tableau[$name]) === true && empty($tableau[$name]) === false);`
			`}`


Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`/**`
			`* Fonction permettant de générer les URL pour les sondage`
			`* @param string $id L'identifiant du sondage`
			`* @param bool $admin True pour générer une URL pour l'administration d'un sondage, False pour un URL publique`
			`* @return string L'url pour le sondage`
			`*/`
			`function getUrlSondage($id, $admin = false)`
			`{`
			`if (URL_PROPRE === true) {`
			`if ($admin === true) {`
Accessibilité : title contextualisé selon l'étape ou les erreurs du formulaire - attribut lang sur <html> et liens du pied de page - aria-describeby pour les msg d'erreur - fix points de validation W3C - fix issue #45 2014-06-11 19:19:17 +02:00			`$url = str_replace('/admin','',get_server_name()).$id.'/admin';`
Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`} else {`
Accessibilité : title contextualisé selon l'étape ou les erreurs du formulaire - attribut lang sur <html> et liens du pied de page - aria-describeby pour les msg d'erreur - fix points de validation W3C - fix issue #45 2014-06-11 19:19:17 +02:00			`$url = str_replace('/admin','',get_server_name()).$id;`
Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`}`
			`} else {`
			`if ($admin === true) {`
Accessibilité : title contextualisé selon l'étape ou les erreurs du formulaire - attribut lang sur <html> et liens du pied de page - aria-describeby pour les msg d'erreur - fix points de validation W3C - fix issue #45 2014-06-11 19:19:17 +02:00			`$url = str_replace('/admin','',get_server_name()).'adminstuds.php?sondage='.$id;`
Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`} else {`
Accessibilité : title contextualisé selon l'étape ou les erreurs du formulaire - attribut lang sur <html> et liens du pied de page - aria-describeby pour les msg d'erreur - fix points de validation W3C - fix issue #45 2014-06-11 19:19:17 +02:00			`$url = str_replace('/admin','',get_server_name()).'studs.php?sondage='.$id;`
Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`}`
			`}`
enlève les appels à get_server_name() partout sauf dans un appel à sendMail(), réécriture de la fonction pour cet usage 2013-03-04 19:46:06 +01:00
Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00			`return $url;`
			`}`

The removal function needs access to the database 2012-01-11 00:02:02 +01:00			`function remove_sondage( $connect, $numsondage ){`
Put sondage deletion in a function 2012-01-10 23:28:21 +01:00
			`$connect->StartTrans();`

			`$req = 'DELETE FROM sondage WHERE id_sondage = ' . $connect->Param('numsondage') ;`
			`$sql = $connect->Prepare($req);`
			`$connect->Execute($sql, array($numsondage));`

			`$req = 'DELETE FROM sujet_studs WHERE id_sondage = ' . $connect->Param('numsondage') ;`
			`$sql = $connect->Prepare($req);`
			`$connect->Execute($sql, array($numsondage));`

			`$req = 'DELETE FROM user_studs WHERE id_sondage = ' . $connect->Param('numsondage') ;`
			`$sql = $connect->Prepare($req);`
			`$connect->Execute($sql, array($numsondage));`

			`$req = 'DELETE FROM comments WHERE id_sondage = ' . $connect->Param('numsondage') ;`
			`$sql = $connect->Prepare($req);`
			`$connect->Execute($sql, array( $numsondage ));`

			`$suppression_OK = ! $connect->HasFailedTrans() ;`
			`$connect->CompleteTrans();`

			`return $suppression_OK ;`

			`}`

Clean URL and add title of poll in head 2011-05-20 02:52:22 +02:00
clean code (identation, if with {) 2011-05-15 03:56:54 +02:00			`$connect=connexion_base();`

			`define('COMMENT_EMPTY', 0x0000000001);`
			`define('COMMENT_USER_EMPTY', 0x0000000010);`
			`define('COMMENT_INSERT_FAILED', 0x0000000100);`
			`define('NAME_EMPTY', 0x0000001000);`
			`define('NAME_TAKEN', 0x0000010000);`
			`define('NO_POLL', 0x0000100000);`
			`define('NO_POLL_ID', 0x0001000000);`
			`define('INVALID_EMAIL', 0x0010000000);`
			`define('TITLE_EMPTY', 0x0100000000);`
			`define('INVALID_DATE', 0x1000000000);`
Put sondage deletion in a function 2012-01-10 23:28:21 +01:00			`$err = 0;`