3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
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 \***************************************************************************/
13 if (!defined("_ECRIRE_INC_VERSION")) return;
15 include_spip('inc/forum');
19 * Identification du formulaire poste : ne pas tenir compte de la previsu et du retour
24 * @param $ajouter_groupe
25 * @param $afficher_previsu
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);
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
42 * @param $afficher_previsu
48 function formulaires_forum_charger_dist($objet, $id_objet, $id_forum,
49 $ajouter_mot, $ajouter_groupe, $afficher_previsu, $retour){
51 if (!function_exists($f = 'forum_recuperer_titre'))
52 $f = 'forum_recuperer_titre_dist';
53 if (!$titre = $f($objet, $id_objet, $id_forum))
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'){
63 $primary = id_table_objet($objet);
65 // table a laquelle sont associes les mots :
66 if ($GLOBALS['meta']["mots_cles_forums"]!="oui")
69 $table = table_objet($objet);
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']){
75 'action' => '', #ne sert pas dans ce cas, on la vide pour mutualiser le cache
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),
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 != ''
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 : '';
97 // ne pas mettre '', sinon le squelette n'affichera rien.
100 if (_request('formulaire_action')){
101 $arg = forum_fichier_tmp(join('', $ids));
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");
113 foreach ($ids as $id => $v)
114 $script_hidden .= "<input type='hidden' name='$id' value='$v' />";
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' />";
120 if ($formats = forum_documents_acceptes()){
121 include_spip('inc/securiser_action');
122 $cle = calculer_cle_action('ajouter-document-' . $objet . '-' . $id_objet);
128 // Valeurs par defaut du formulaire
129 // si le formulaire a ete sauvegarde, restituer les valeurs de session
134 'url_site' => 'http://'
137 return array_merge($vals, array(
138 'modere' => (($accepter_forum!='pri') ?
'' : ' '),
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,
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')
165 * http://doc.spip.org/@forum_fichier_tmp
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")){
178 # et maintenant on purge les locks de forums ouverts depuis > 4 h
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)
185 spip_unlink(_DIR_TMP
. $file);
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
200 * @param $afficher_previsu
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');
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)
219 // stocker un eventuel document dans un espace temporaire
220 // portant la cle du formulaire ; et ses metadonnees avec
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']
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']);
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();
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');
248 $erreurs['document_forum'] = _T('public:formats_acceptes', array('formats' => $formats));
251 include_spip('inc/getdocument');
252 if (!deplacer_fichier_upload($doc['tmp_name'], $tmp . '.bin'))
253 $erreurs['document_forum'] = _T('copie_document_impossible');
256 # verifier le type_document autorise
257 # retailler eventuellement les photos
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']);
266 $doc['tmp_name'] = $tmp . '.bin';
267 ecrire_fichier($tmp . '.txt', serialize($doc));
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');
276 elseif (lire_fichier($tmp . '.txt', $meta)){
277 $doc = @unserialize
($meta);
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'
285 $erreurs['texte'] = _T($min_length==10 ?
'forum:forum_attention_dix_caracteres' : 'forum:forum_attention_nb_caracteres_mini', array('min' => $min_length));
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',
292 'compte' => strlen($texte),
293 'max' => _FORUM_LONGUEUR_MAXI
297 if (array_reduce($_POST, 'reduce_strlen', (20*1024))<0){
298 $erreurs['erreur_message'] = _T('forum:forum_message_trop_long');
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');
308 elseif ($GLOBALS['visiteur_session']['statut']=='5poubelle') {
309 $erreurs['erreur_message'] = _T('forum:forum_acces_refuse');
314 if (strlen($titre = _request('titre'))<3
315 AND $GLOBALS['meta']['forums_titre']=='oui'){
316 $erreurs['titre'] = _T('forum:forum_attention_trois_caracteres');
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;
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');
341 * Lister les formats de documents joints acceptes dans les forum
344 function forum_documents_acceptes(){
345 $formats = trim($GLOBALS['meta']['formats_documents_forum']);
346 if (!$formats) return array();
348 $formats = array_filter(preg_split(',[^a-zA-Z0-9/+_],', $formats));
351 include_spip('base/typedoc');
352 $formats = array_keys($GLOBALS['tables_mime']);
360 * Preparer la previsu d'un message de forum
362 * http://doc.spip.org/@inclure_previsu
364 * @param string $texte
365 * @param string $titre
366 * @param string $url_site
367 * @param string $nom_site
368 * @param array $ajouter_mot
370 * @param string $objet
371 * @param int $id_objet
372 * @param int $id_forum
375 function inclure_previsu($texte, $titre, $url_site, $nom_site, $ajouter_mot, $doc,
376 $objet, $id_objet, $id_forum){
377 global $table_des_traitements;
379 $bouton = _T('forum:forum_message_definitif');
380 include_spip('public/assembler');
381 include_spip('public/composer');
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');
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) . ';';
394 // $connect et $Pile ne sont pas definis ici :/
395 // mais font souvent partie des variables appelees par les traitements
397 $Pile = array(0 => array());
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",
404 inclure_balise_dynamique(array('formulaires/inc-forum_previsu',
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 ?
417 'id_objet' => $id_objet,
418 'id_forum' => $id_forum
425 * Traiter la saisie de #FORMULAIRE_FORUM
426 * tout est delegue a inc_forum_insert()
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
435 * @param $afficher_previsu
441 function formulaires_forum_traiter_dist($objet, $id_objet, $id_forum,
442 $ajouter_mot, $ajouter_groupe, $afficher_previsu, $retour){
444 $forum_insert = charger_fonction('forum_insert', 'inc');
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'));
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');
459 $id_reponse = $forum_insert($objet, $id_objet, $id_forum);
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
466 if (!strpos($retour, '#')){
467 $retour .= '#forum' . $id_reponse;
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
476 if (function_exists('generer_url_forum')){
477 $retour = generer_url_forum($id_reponse);
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');
486 $res = array('redirect' => $retour, 'id_forum' => $id_reponse);
489 $res = array('message_erreur' => _T('forum:erreur_enregistrement_message'));