www/plugins-dist/forum/formulaires/forum.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2014                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   9  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
  10  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
  11 \***************************************************************************/
  12
  13 if (!defined("_ECRIRE_INC_VERSION")) return;
  14
  15 include_spip('inc/forum');
  16
  17
  18 /**
  19  * Identification du formulaire poste : ne pas tenir compte de la previsu et du retour
  20  * @param $objet
  21  * @param $id_objet
  22  * @param $id_forum
  23  * @param $ajouter_mot
  24  * @param $ajouter_groupe
  25  * @param $afficher_previsu
  26  * @param $retour
  27  * @return array
  28  */
  29 function formulaires_forum_identifier_dist($objet, $id_objet, $id_forum,$ajouter_mot, $ajouter_groupe, $afficher_previsu, $retour){
  30         return array($objet, $id_objet, $id_forum,$ajouter_mot, $ajouter_groupe);
  31 }
  32
  33 /**
  34  * Charger l'env du squelette de #FORMULAIRE_FORUM
  35  * @param string $objet
  36  * @param int $id_objet
  37  * @param int $id_forum
  38  * @param int|array $ajouter_mot
  39  *   mots ajoutés cochés par defaut
  40  * @param $ajouter_groupe
  41  *   groupes ajoutables
  42  * @param $afficher_previsu
  43  *   previsu oui ou non
  44  * @param $retour
  45  *   url de retour
  46  * @return array|bool
  47  */
  48 function formulaires_forum_charger_dist($objet, $id_objet, $id_forum,
  49                                         $ajouter_mot, $ajouter_groupe, $afficher_previsu, $retour){
  50
  51         if (!function_exists($f = 'forum_recuperer_titre'))
  52                 $f = 'forum_recuperer_titre_dist';
  53         if (!$titre = $f($objet, $id_objet, $id_forum))
  54                 return false;
  55
  56         // ca s'apparenterait presque a une autorisation...
  57         // si on n'avait pas a envoyer la valeur $accepter_forum au formulaire
  58         $accepter_forum = controler_forum($objet, $id_objet);
  59         if ($accepter_forum=='non'){
  60                 return false;
  61         }
  62
  63         $primary = id_table_objet($objet);
  64
  65         // table a laquelle sont associes les mots :
  66         if ($GLOBALS['meta']["mots_cles_forums"]!="oui")
  67                 $table = '';
  68         else
  69                 $table = table_objet($objet);
  70
  71         // exiger l'authentification des posteurs pour les forums sur abo
  72         if ($accepter_forum=="abo"){
  73                 if (!isset($GLOBALS["visiteur_session"]['statut']) OR !$GLOBALS["visiteur_session"]['statut']){
  74                         return array(
  75                                 'action' => '', #ne sert pas dans ce cas, on la vide pour mutualiser le cache
  76                                 'editable' => false,
  77                                 'login_forum_abo' => ' ',
  78                                 'inscription' => generer_url_public('identifiants', 'lang=' . $GLOBALS['spip_lang']),
  79                                 'oubli' => generer_url_public('spip_pass', 'lang=' . $GLOBALS['spip_lang'], true),
  80                         );
  81                 }
  82         }
  83
  84
  85         // Tableau des valeurs servant au calcul d'une signature de securite.
  86         // Elles seront placees en Input Hidden pour que inc/forum_insert
  87         // recalcule la meme chose et verifie l'identite des resultats.
  88         // Donc ne pas changer la valeur de ce tableau entre le calcul de
  89         // la signature et la fabrication des Hidden
  90         // Faire attention aussi a 0 != ''
  91         $ids = array();
  92         $ids[$primary] = ($x = intval($id_objet)) ? $x : '';
  93         $ids['id_objet'] = ($x = intval($id_objet)) ? $x : '';
  94         $ids['objet'] = $objet;
  95         $ids['id_forum'] = ($x = intval($id_forum)) ? $x : '';
  96
  97         // ne pas mettre '', sinon le squelette n'affichera rien.
  98         $previsu = ' ';
  99
 100         if (_request('formulaire_action')){
 101                 $arg = forum_fichier_tmp(join('', $ids));
 102
 103                 $securiser_action = charger_fonction('securiser_action', 'inc');
 104                 // on sait que cette fonction est dans le fichier associe
 105                 $hash = calculer_action_auteur("ajout_forum-$arg");
 106         }
 107         else {
 108                 $arg = $hash = '';
 109         }
 110
 111         // pour les hidden
 112         $script_hidden = "";
 113         foreach ($ids as $id => $v)
 114                 $script_hidden .= "<input type='hidden' name='$id' value='$v' />";
 115
 116         $script_hidden .= "<input type='hidden' name='arg' value='$arg' />";
 117         $script_hidden .= "<input type='hidden' name='hash' value='$hash' />";
 118         $script_hidden .= "<input type='hidden' name='verif_$hash' value='ok' />";
 119
 120         if ($formats = forum_documents_acceptes()){
 121                 include_spip('inc/securiser_action');
 122                 $cle = calculer_cle_action('ajouter-document-' . $objet . '-' . $id_objet);
 123         }
 124         else {
 125                 $cle = null;
 126         }
 127
 128         // Valeurs par defaut du formulaire
 129         // si le formulaire a ete sauvegarde, restituer les valeurs de session
 130         $vals = array(
 131                 'titre' => $titre,
 132                 'texte' => '',
 133                 'nom_site' => '',
 134                 'url_site' => 'http://'
 135         );
 136
 137         return array_merge($vals, array(
 138                 'modere' => (($accepter_forum!='pri') ? '' : ' '),
 139                 'table' => $table,
 140                 'config' => array('afficher_barre' => ($GLOBALS['meta']['forums_afficher_barre']!='non' ? ' ' : '')),
 141                 '_hidden' => $script_hidden, # pour les variables hidden qui seront inserees dans le form et dans le form de previsu
 142                 'cle_ajouter_document' => $cle,
 143                 'formats_documents_forum' => forum_documents_acceptes(),
 144                 'ajouter_document' => isset($_FILES['ajouter_document']['name']) ? $_FILES['ajouter_document']['name'] : '',
 145                 'nobot' => ($cle ? _request($cle) : _request('nobot')),
 146                 'ajouter_groupe' => $ajouter_groupe,
 147                 'ajouter_mot' => (is_array($ajouter_mot) ? $ajouter_mot : array($ajouter_mot)),
 148                 'id_forum' => $id_forum, // passer id_forum au formulaire pour lui permettre d'afficher a quoi l'internaute repond
 149                 '_sign' => implode('_', $ids),
 150                 '_autosave_id' => $ids,
 151         ));
 152 }
 153
 154
 155 /**
 156  * Une securite qui nous protege contre :
 157  * - les doubles validations de forums (derapages humains ou des brouteurs)
 158  * - les abus visant a mettre des forums malgre nous sur un article (??)
 159  * On installe un fichier temporaire dans _DIR_TMP (et pas _DIR_CACHE
 160  * afin de ne pas bugguer quand on vide le cache)
 161  * Le lock est leve au moment de l'insertion en base (inc-messforum)
 162  * Ce systeme n'est pas fonctionnel pour les forums sans previsu (notamment
 163  * si $afficher_previsu = 'non')
 164  *
 165  * http://doc.spip.org/@forum_fichier_tmp
 166  *
 167  * @param $arg
 168  * @return int
 169  */
 170 function forum_fichier_tmp($arg){
 171 # astuce : mt_rand pour autoriser les hits simultanes
 172         while (($alea = time()+@mt_rand())+intval($arg)
 173                 AND @file_exists($f = _DIR_TMP . "forum_$alea.lck")){
 174         }
 175         ;
 176         spip_touch($f);
 177
 178 # et maintenant on purge les locks de forums ouverts depuis > 4 h
 179
 180         if ($dh = @opendir(_DIR_TMP)){
 181                 while (($file = @readdir($dh))!==false){
 182                         if (preg_match('/^forum_([0-9]+)\.lck$/', $file)
 183                                 AND (time()-@filemtime(_DIR_TMP . $file)>4*3600)
 184                         )
 185                                 spip_unlink(_DIR_TMP . $file);
 186                 }
 187         }
 188         return $alea;
 189 }
 190
 191 /**
 192  * Verifier la saisie de #FORMULAIRE_FORUM
 193  * @param string $objet
 194  * @param int $id_objet
 195  * @param int $id_forum
 196  * @param int|array $ajouter_mot
 197  *   mots ajout�s coch�s par defaut
 198  * @param $ajouter_groupe
 199  *   groupes ajoutables
 200  * @param $afficher_previsu
 201  *   previsu oui ou non
 202  * @param $retour
 203  *   url de retour
 204  * @return array|bool
 205  */
 206 function formulaires_forum_verifier_dist($objet, $id_objet, $id_forum,
 207                                          $ajouter_mot, $ajouter_groupe, $afficher_previsu, $retour){
 208         include_spip('inc/acces');
 209         include_spip('inc/texte');
 210         include_spip('inc/session');
 211         include_spip('base/abstract_sql');
 212
 213         $erreurs = array();
 214
 215         // desactiver id_rubrique si un id_article ou autre existe dans le contexte
 216         // if ($id_article OR $id_breve OR $id_forum OR $id_syndic)
 217         //      $id_rubrique = 0;
 218
 219         // stocker un eventuel document dans un espace temporaire
 220         // portant la cle du formulaire ; et ses metadonnees avec
 221
 222         if (!isset($GLOBALS['visiteur_session']['tmp_forum_document']))
 223                 session_set('tmp_forum_document',
 224                         sous_repertoire(_DIR_TMP, 'documents_forum') . md5(uniqid(rand())));
 225         $tmp = $GLOBALS['visiteur_session']['tmp_forum_document'];
 226         $doc = &$_FILES['ajouter_document'];
 227         if (isset($_FILES['ajouter_document'])
 228                 AND $_FILES['ajouter_document']['tmp_name']
 229         ){
 230                 // securite :
 231                 // verifier si on possede la cle (ie on est autorise a poster)
 232                 // (sinon tant pis) ; cf. charger.php pour la definition de la cle
 233                 if (_request('cle_ajouter_document')!=calculer_cle_action($a = "ajouter-document-$objet-$id_objet")){
 234                         $erreurs['document_forum'] = _T('forum:documents_interdits_forum');
 235                         unset($_FILES['ajouter_document']);
 236                 }
 237                 else {
 238                         include_spip('inc/joindre_document');
 239                         include_spip('action/ajouter_documents');
 240                         list($extension, $doc['name']) = fixer_extension_document($doc);
 241                         $acceptes = forum_documents_acceptes();
 242
 243                         if (!in_array($extension, $acceptes)){
 244                                 # normalement on n'arrive pas ici : pas d'upload si aucun format
 245                                 if (!$formats = join(', ', $acceptes)){
 246                                         $formats = '-'; //_L('aucun');
 247                                 }
 248                                 $erreurs['document_forum'] = _T('public:formats_acceptes', array('formats' => $formats));
 249                         }
 250                         else {
 251                                 include_spip('inc/getdocument');
 252                                 if (!deplacer_fichier_upload($doc['tmp_name'], $tmp . '.bin'))
 253                                         $erreurs['document_forum'] = _T('copie_document_impossible');
 254
 255                                 #               else if (...)
 256                                 #               verifier le type_document autorise
 257                                 #               retailler eventuellement les photos
 258                         }
 259
 260                         // si ok on stocke les meta donnees, sinon on efface
 261                         if (isset($erreurs['document_forum'])){
 262                                 spip_unlink($tmp . '.bin');
 263                                 unset ($_FILES['ajouter_document']);
 264                         }
 265                         else {
 266                                 $doc['tmp_name'] = $tmp . '.bin';
 267                                 ecrire_fichier($tmp . '.txt', serialize($doc));
 268                         }
 269                 }
 270         } // restaurer le document uploade au tour precedent
 271         elseif (file_exists($tmp . '.bin')){
 272                 if (_request('supprimer_document_ajoute')){
 273                         spip_unlink($tmp . '.bin');
 274                         spip_unlink($tmp . '.txt');
 275                 }
 276                 elseif (lire_fichier($tmp . '.txt', $meta)){
 277                         $doc = @unserialize($meta);
 278                 }
 279         }
 280
 281         $min_length = (defined('_FORUM_LONGUEUR_MINI') ? _FORUM_LONGUEUR_MINI : 10);
 282         if (strlen($texte = _request('texte'))<$min_length
 283                 AND !$ajouter_mot AND $GLOBALS['meta']['forums_texte']=='oui'
 284         ){
 285                 $erreurs['texte'] = _T($min_length==10 ? 'forum:forum_attention_dix_caracteres' : 'forum:forum_attention_nb_caracteres_mini', array('min' => $min_length));
 286         }
 287         elseif (defined('_FORUM_LONGUEUR_MAXI')
 288           AND _FORUM_LONGUEUR_MAXI>0
 289           AND strlen($texte)>_FORUM_LONGUEUR_MAXI){
 290                 $erreurs['texte'] = _T('forum:forum_attention_trop_caracteres',
 291                         array(
 292                                 'compte' => strlen($texte),
 293                                 'max' => _FORUM_LONGUEUR_MAXI
 294                         ));
 295         }
 296
 297         if (array_reduce($_POST, 'reduce_strlen', (20*1024))<0){
 298                 $erreurs['erreur_message'] = _T('forum:forum_message_trop_long');
 299         }
 300         else {
 301                 // Ne pas autoriser d'envoi hacke si forum sur abonnement
 302                 if (controler_forum($objet, $id_objet)=='abo'
 303                         AND !test_espace_prive()){
 304                         if (!isset($GLOBALS['visiteur_session'])
 305                                 OR !isset($GLOBALS['visiteur_session']['statut'])){
 306                                 $erreurs['erreur_message'] = _T('forum_non_inscrit');
 307                         }
 308                         elseif ($GLOBALS['visiteur_session']['statut']=='5poubelle') {
 309                                 $erreurs['erreur_message'] = _T('forum:forum_acces_refuse');
 310                         }
 311                 }
 312         }
 313
 314         if (strlen($titre = _request('titre'))<3
 315           AND $GLOBALS['meta']['forums_titre']=='oui'){
 316                 $erreurs['titre'] = _T('forum:forum_attention_trois_caracteres');
 317         }
 318
 319         if (!count($erreurs) AND !_request('confirmer_previsu_forum')){
 320                 if ($afficher_previsu!='non'){
 321                         $previsu = inclure_previsu($texte, $titre, _request('url_site'), _request('nom_site'), _request('ajouter_mot'), $doc,
 322                                 $objet, $id_objet, $id_forum);
 323                         $erreurs['previsu'] = $previsu;
 324                 }
 325         }
 326
 327         //  Si forum avec previsu sans bon hash de securite, echec
 328         if (!count($erreurs)){
 329                 if (!test_espace_prive()
 330                   AND $afficher_previsu<>'non'
 331                   AND forum_insert_noprevisu()){
 332                         $erreurs['erreur_message'] = _T('forum:forum_acces_refuse');
 333                 }
 334         }
 335
 336         return $erreurs;
 337 }
 338
 339
 340 /**
 341  * Lister les formats de documents joints acceptes dans les forum
 342  * @return array
 343  */
 344 function forum_documents_acceptes(){
 345         $formats = trim($GLOBALS['meta']['formats_documents_forum']);
 346         if (!$formats) return array();
 347         if ($formats!=='*'){
 348                 $formats = array_filter(preg_split(',[^a-zA-Z0-9/+_],', $formats));
 349         }
 350         else {
 351                 include_spip('base/typedoc');
 352                 $formats = array_keys($GLOBALS['tables_mime']);
 353         }
 354         sort($formats);
 355         return $formats;
 356 }
 357
 358
 359 /**
 360  * Preparer la previsu d'un message de forum
 361  *
 362  * http://doc.spip.org/@inclure_previsu
 363  *
 364  * @param string $texte
 365  * @param string $titre
 366  * @param string $url_site
 367  * @param string $nom_site
 368  * @param array $ajouter_mot
 369  * @param array $doc
 370  * @param string $objet
 371  * @param int $id_objet
 372  * @param int $id_forum
 373  * @return string
 374  */
 375 function inclure_previsu($texte, $titre, $url_site, $nom_site, $ajouter_mot, $doc,
 376                          $objet, $id_objet, $id_forum){
 377         global $table_des_traitements;
 378
 379         $bouton = _T('forum:forum_message_definitif');
 380         include_spip('public/assembler');
 381         include_spip('public/composer');
 382
 383         // appliquer les traitements de #TEXTE a la previsu
 384         // comme on voit c'est complique... y a peut-etre plus simple ?
 385         // recuperer les filtres eventuels de 'mes_fonctions.php' sur les balises
 386         include_spip('public/parametrer');
 387         $tmptexte = "";
 388         $evaltexte = isset($table_des_traitements['TEXTE']['forums'])
 389                 ? $table_des_traitements['TEXTE']['forums']
 390                 : $table_des_traitements['TEXTE'][0];
 391         $evaltexte = '$tmptexte = ' . str_replace('%s', '$texte', $evaltexte) . ';';
 392         // evaluer...
 393         // [fixme]
 394         // $connect et $Pile ne sont pas definis ici :/
 395         // mais font souvent partie des variables appelees par les traitements
 396         $connect = "";
 397         $Pile = array(0 => array());
 398         eval($evaltexte);
 399
 400         // supprimer les <form> de la previsualisation
 401         // (sinon on ne peut pas faire <cadre>...</cadre> dans les forums)
 402         return preg_replace("@<(/?)form\b@ism",
 403                 '<\1div',
 404                 inclure_balise_dynamique(array('formulaires/inc-forum_previsu',
 405                         0,
 406                         array(
 407                                 'titre' => safehtml(typo($titre)),
 408                                 'texte' => $tmptexte,
 409                                 'notes' => safehtml(calculer_notes()),
 410                                 'url_site' => vider_url($url_site),
 411                                 'nom_site' => safehtml(typo($nom_site)),
 412                                 'ajouter_mot' => (is_array($ajouter_mot) ? $ajouter_mot : array($ajouter_mot)),
 413                                 'ajouter_document' => $doc,
 414                                 #'erreur' => $erreur, // non definie ?
 415                                 'bouton' => $bouton,
 416                                 'objet' => $objet,
 417                                 'id_objet' => $id_objet,
 418                                 'id_forum' => $id_forum
 419                         )
 420                 ), false));
 421 }
 422
 423
 424 /**
 425  * Traiter la saisie de #FORMULAIRE_FORUM
 426  * tout est delegue a inc_forum_insert()
 427  *
 428  * @param string $objet
 429  * @param int $id_objet
 430  * @param int $id_forum
 431  * @param int|array $ajouter_mot
 432  *   mots ajoutes coches par defaut
 433  * @param $ajouter_groupe
 434  *   groupes ajoutables
 435  * @param $afficher_previsu
 436  *   previsu oui ou non
 437  * @param $retour
 438  *   url de retour
 439  * @return array|bool
 440  */
 441 function formulaires_forum_traiter_dist($objet, $id_objet, $id_forum,
 442                                         $ajouter_mot, $ajouter_groupe, $afficher_previsu, $retour){
 443
 444         $forum_insert = charger_fonction('forum_insert', 'inc');
 445
 446         // Antispam basique :
 447         // si l'input invisible a ete renseigne, ca ne peut etre qu'un bot
 448         if (strlen(_request(_request('cle_ajouter_document')))){
 449                 tracer_erreur_forum('champ interdit (nobot) rempli');
 450                 return array('message_erreur' => _T('forum:erreur_enregistrement_message'));
 451         }
 452
 453         if (defined('_FORUM_AUTORISER_POST_ID_FORUM')
 454           AND _FORUM_AUTORISER_POST_ID_FORUM
 455           AND _request('id_forum')){
 456                 $id_forum = _request('id_forum');
 457         }
 458
 459         $id_reponse = $forum_insert($objet, $id_objet, $id_forum);
 460
 461
 462         if ($id_reponse){
 463                 // En cas de retour sur (par exemple) {#SELF}, on ajoute quand
 464                 // meme #forum12 a la fin de l'url, sauf si un #ancre est explicite
 465                 if ($retour){
 466                         if (!strpos($retour, '#')){
 467                                 $retour .= '#forum' . $id_reponse;
 468                         }
 469                 }
 470                 else {
 471                         // le retour par defaut envoie sur le thread, ce qui permet
 472                         // de traiter elegamment le cas des forums moderes a priori.
 473                         // Cela assure aussi qu'on retrouve son message dans le thread
 474                         // dans le cas des forums moderes a posteriori, ce qui n'est
 475                         // pas plus mal.
 476                         if (function_exists('generer_url_forum')){
 477                                 $retour = generer_url_forum($id_reponse);
 478                         }
 479                         else {
 480                                 $thread = sql_fetsel('id_thread', 'spip_forum', 'id_forum=' . $id_reponse);
 481                                 spip_log('id_thread=' . $thread['id_thread'], 'forum');
 482                                 $retour = generer_url_entite($thread['id_thread'], 'forum');
 483                         }
 484                 }
 485
 486                 $res = array('redirect' => $retour, 'id_forum' => $id_reponse);
 487         }
 488         else {
 489                 $res = array('message_erreur' => _T('forum:erreur_enregistrement_message'));
 490         }
 491
 492         return $res;
 493 }
 494
 495
 496 ?>