[SPIP] +installation version 3.0.10
[lhc/web/www.git] / www / plugins-dist / forum / forum_pipelines.php
1 <?php
2
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
5 * *
6 * Copyright (c) 2001-2013 *
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 /**
16 * Bloc sur les encours editoriaux en page d'accueil
17 *
18 * @param string $texte
19 * @return string
20 */
21 function forum_accueil_encours($texte){
22 // si aucun autre objet n'est a valider, on ne dit rien sur les forum
23 if ($GLOBALS['visiteur_session']['statut'] == '0minirezo') {
24 // Les forums en attente de moderation
25 $cpt = sql_countsel("spip_forum", "statut='prop'");
26 if ($cpt) {
27 if ($cpt>1)
28 $lien = _T('forum:info_liens_syndiques_3')." "._T('forum:info_liens_syndiques_4');
29 else
30 $lien = _T('forum:info_liens_syndiques_5')." "._T('forum:info_liens_syndiques_6');
31 $lien = "<small>$cpt $lien " ._T('forum:info_liens_syndiques_7'). "</small>";
32 if ($GLOBALS['connect_toutes_rubriques'])
33 $lien = "<a href='" . generer_url_ecrire("controler_forum","statut=prop") . "' style='color: black;'>". $lien . ".</a>";
34 $texte .= "\n<br />" . $lien;
35 }
36 if (strlen($texte) AND $GLOBALS['meta']['forum_prive_objets'] != 'non')
37 $cpt2 = sql_countsel("spip_articles", "statut='prop'");
38 if ($cpt2)
39 $texte = _T('forum:texte_en_cours_validation_forum') . $texte;
40 }
41
42 return $texte;
43 }
44
45
46 /**
47 * Bloc sur les informations generales concernant chaque type d'objet
48 *
49 * @param string $texte
50 * @return string
51 */
52 function forum_accueil_informations($texte){
53 include_spip('base/abstract_sql');
54 $q = sql_select('COUNT(*) AS cnt, statut', 'spip_forum', sql_in('statut', array('publie', 'prop')), 'statut', '','', "COUNT(*)<>0");
55
56 $where = count($GLOBALS['connect_id_rubrique']) ? sql_in('id_rubrique', $GLOBALS['connect_id_rubrique']) : '';
57 $cpt = array();
58 $cpt2 = array();
59 $defaut = $where ? '0/' : '';
60 while($row = sql_fetch($q)) {
61 $cpt[$row['statut']] = $row['cnt'];
62 $cpt2[$row['statut']] = $defaut;
63 }
64
65 if ($cpt) {
66 if ($where) {
67 include_spip('inc/forum');
68 list($f, $w) = critere_statut_controle_forum('public');
69 $q = sql_select("COUNT(*) AS cnt, F.statut", "$f", "$w ", "F.statut");
70 while($row = sql_fetch($q)) {
71 $r = $row['statut'];
72 $cpt2[$r] = intval($row['cnt']) . '/';
73 }
74 }
75
76 $texte .= "<div class='accueil_informations forum liste'>";
77 $titre = _T('forum:onglet_messages_publics');
78 if (autoriser('modererforum')) {
79 $plus = afficher_plus_info(generer_url_ecrire("controler_forum"), "", $titre);
80 $texte .= "<h4>$plus</h4>";
81 } else {
82 $texte .= "<h4>$titre</h4>";
83 }
84 $texte .= "<ul class='liste-items'>";
85 if (isset($cpt['prop'])) $texte .= "<li class='item'>"._T("texte_statut_attente_validation").": ".$cpt2['prop'] .$cpt['prop'] . '</li>';
86 if (isset($cpt['publie'])) $texte .= "<li class='item'>"._T("texte_statut_publies").": ".$cpt2['publie'] .$cpt['publie'] .'</li>';
87 $texte .= "</ul>";
88 $texte .= "</div>";
89 }
90 return $texte;
91 }
92
93 /**
94 * Affichage de la fiche complete des articles et rubriques
95 *
96 * @param array $flux
97 * @return array
98 */
99 function forum_afficher_fiche_objet($flux){
100
101 if (in_array($type = $flux['args']['type'],array('article','breve','site'))
102 AND $GLOBALS['meta']['forum_prive_objets'] != 'non'){
103 $id = $flux['args']['id'];
104 $table = table_objet($type);
105 $id_table_objet = id_table_objet($type);
106 $contexte = array_merge($flux['args']['contexte'],
107 array(
108 'objet'=>$type,
109 'id_objet'=>$id,
110 'quoi'=>'interne',
111 'statut'=>'prive'
112 )
113 );
114 $flux['data'] .= recuperer_fond('prive/squelettes/inclure/discuter_forum',$contexte,array('ajax'=>true));
115 }
116 if (($type = $flux['args']['type'])=='rubrique'){
117 $id_rubrique = $flux['args']['id'];
118 if (autoriser('publierdans','rubrique',$id_rubrique)
119 AND !sql_getfetsel('id_parent','spip_rubriques','id_rubrique='.intval($id_rubrique))) {
120 include_spip('inc/forum');
121 list($from, $where) = critere_statut_controle_forum('prop', $id_rubrique);
122 $n_forums = sql_countsel($from, $where);
123 }
124 else
125 $n_forums = 0;
126 if ($n_forums)
127 $flux['data'] .= icone_verticale(_T('forum:icone_suivi_forum', array('nb_forums' => $n_forums)), generer_url_ecrire("controler_forum","objet=rubrique&id_objet=$id_rubrique"), "forum-24.png", "", 'center');
128 }
129 return $flux;
130 }
131
132 /**
133 * Boite de configuration des objets articles
134 *
135 * @param array $flux
136 * @return array
137 */
138 function forum_afficher_config_objet($flux){
139 if (($type = $flux['args']['type'])
140 AND $id = $flux['args']['id']){
141 if (autoriser('modererforum', $type, $id)) {
142 $id_table_objet = id_table_objet($type);
143 $flux['data'] .= recuperer_fond("prive/objets/configurer/moderation",array('id_objet'=>$id,'objet'=> objet_type(table_objet($type))));
144 }
145 }
146 return $flux;
147 }
148
149 /**
150 * Message d'information relatif au statut d'un objet
151 *
152 * @param array $flux
153 * @return array
154 */
155 function forum_afficher_message_statut_objet($flux){
156 if ($type = $flux['args']['type']=='article'){
157 $statut = $flux['args']['statut'];
158 if ($GLOBALS['meta']['forum_prive_objets'] != 'non'
159 AND $statut == 'prop')
160 $flux['data'] .= "<p class='article_prop'>"._T('forum:text_article_propose_publication_forum').'</p>';
161 }
162 return $flux;
163 }
164
165 /**
166 * Nombre de forums d'un secteur dans la boite d'info
167 *
168 * @param array $flux
169 * @return array
170 */
171 function forum_boite_infos($flux){
172 if ($flux['args']['type']=='rubrique'
173 AND $id_rubrique = $flux['args']['id']){
174 if (autoriser('publierdans','rubrique',$id_rubrique)
175 // [doc] d'ou il vient ce row ?
176 AND (!isset($flux['args']['row']['id_parent']) OR !$flux['args']['row']['id_parent'])) {
177 include_spip('inc/forum');
178 list($from, $where) = critere_statut_controle_forum('prop', $id_rubrique);
179 $n_forums = sql_countsel($from, $where);
180 }
181 else
182 $n_forums = 0;
183 if ($n_forums){
184 $aff = "<p class='forums'>".singulier_ou_pluriel($n_forums, "forum:info_1_message_forum", "forum:info_nb_messages_forum").'</p>';
185 if (($pos = strpos($flux['data'],'<!--nb_elements-->'))!==FALSE)
186 $flux['data'] = substr($flux['data'],0,$pos) . $aff . substr($flux['data'],$pos);
187 else
188 $flux['data'] .= $aff;
189 }
190 }
191 elseif ($flux['args']['type']=='auteur'
192 AND $id_auteur = $flux['args']['id']){
193 if ($nb = sql_countsel('spip_forum',"statut!='poubelle' AND id_auteur=".intval($id_auteur))){
194 $nb = "<div>". singulier_ou_pluriel($nb, "forum:info_1_message_forum", "forum:info_nb_messages_forum") . "</div>";
195 if ($p = strpos($flux['data'],"<!--nb_elements-->"))
196 $flux['data'] = substr_replace($flux['data'],$nb,$p,0);
197 }
198 }
199 return $flux;
200 }
201
202 /**
203 * Compter et afficher les contributions d'un visiteur
204 * pour affichage dans la page auteurs
205 *
206 * @param array $flux
207 * @return array
208 */
209 function forum_compter_contributions_auteur($flux){
210 $id_auteur = intval($flux['args']['id_auteur']);
211 if ($cpt = sql_countsel("spip_forum AS F", "F.id_auteur=".intval($flux['args']['id_auteur']))){
212 // manque "1 message de forum"
213 $contributions = singulier_ou_pluriel($cpt,'forum:info_1_message_forum','forum:info_nb_messages_forum');
214 $flux['data'][] = $contributions;
215 }
216 return $flux;
217 }
218
219 /**
220 * Definir les meta de configuration liee aux forums
221 *
222 * @param array $metas
223 * @return array
224 */
225 function forum_configurer_liste_metas($metas){
226 $metas['mots_cles_forums'] = 'non';
227 $metas['forums_titre'] = 'oui';
228 $metas['forums_texte'] = 'oui';
229 $metas['forums_urlref'] = 'non';
230 $metas['forums_afficher_barre'] = 'oui';
231 $metas['formats_documents_forum'] = '';
232 $metas['forums_publics'] = 'posteriori';
233 $metas['forum_prive'] = 'oui'; # forum global dans l'espace prive
234 $metas['forum_prive_objets'] = 'oui'; # forum sous chaque article de l'espace prive
235 $metas['forum_prive_admin'] = 'non'; # forum des administrateurs
236
237 return $metas;
238 }
239
240
241
242 /**
243 * Optimiser la base de donnee en supprimant les forums orphelins
244 *
245 * @param int $n
246 * @return int
247 */
248 function forum_optimiser_base_disparus($flux){
249 $n = &$flux['data'];
250 $mydate = $flux['args']['date'];
251 # les forums lies a une id_objet inexistant
252 $r = sql_select("DISTINCT objet",'spip_forum');
253 while ($t = sql_fetch($r)){
254 if ($type = $t['objet']) {
255 $spip_table_objet = table_objet_sql($type);
256 $id_table_objet = id_table_objet($type);
257 # les forums lies a un objet inexistant
258 $res = sql_select("forum.id_forum AS id",
259 "spip_forum AS forum
260 LEFT JOIN $spip_table_objet AS O
261 ON O.$id_table_objet=forum.id_objet",
262 "forum.objet=".sql_quote($type)." AND O.$id_table_objet IS NULL AND forum.id_objet>0");
263
264 $n+= optimiser_sansref('spip_forum', 'id_forum', $res);
265 }
266 }
267
268 //
269 // Forums
270 //
271 sql_delete("spip_forum", "statut='redac' AND maj < $mydate");
272
273 // nettoyer les documents des forums en spam&poubelle pour eviter de sortir des quota disques
274 // bizarrement on ne nettoie jamais les messages eux meme ?
275 include_spip('action/editer_liens');
276 if (objet_associable('document')){
277 $res = sql_select('L.id_document,F.id_forum',"spip_documents_liens AS L JOIN spip_forum AS F ON (F.id_forum=L.id_objet AND L.objet='forum')","F.statut IN ('off','spam')");
278 while ($row = sql_fetch($res)){
279 include_spip('inc/autoriser');
280 // si un seul lien (ce forum donc), on supprime le document
281 // si un document est attache a plus d'un forum, c'est un cas bizarre ou gere a la main
282 // on ne touche a rien !
283 if (count(objet_trouver_liens(array('document'=>$row['id_document']),'*'))==1){
284 autoriser_exception('supprimer','document',$row['id_document']);
285 if ($supprimer_document = charger_fonction('supprimer_document','action',true))
286 $supprimer_document($row['id_document']);
287 }
288 }
289 }
290
291
292 //
293 // CNIL -- Informatique et libertes
294 //
295 // masquer le numero IP des vieux forums
296 //
297 ## date de reference = 4 mois
298 ## definir a 0 pour desactiver
299 if (!defined('_CNIL_PERIODE')) {
300 define('_CNIL_PERIODE', 3600*24*31*4);
301 }
302 if (_CNIL_PERIODE) {
303 $critere_cnil = 'date_heure<"'.date('Y-m-d', time()-_CNIL_PERIODE).'"'
304 . ' AND statut != "spam"'
305 . ' AND (ip LIKE "%.%" OR ip LIKE "%:%")'; # ipv4 ou ipv6
306
307 $c = sql_countsel('spip_forum', $critere_cnil);
308
309 if ($c>0) {
310 spip_log("CNIL: masquer IP de $c forums anciens");
311 sql_update('spip_forum', array('ip' => 'MD5(ip)'), $critere_cnil);
312 }
313 }
314
315 return $flux;
316
317 }
318
319
320 /**
321 * Remplissage des champs a la creation d'objet
322 *
323 * @param array $flux
324 * @return array
325 */
326 function forum_pre_insertion($flux){
327 if ($flux['args']['table']=='spip_articles'){
328 $flux['data']['accepter_forum'] = substr($GLOBALS['meta']['forums_publics'],0,3);
329 }
330 return $flux;
331 }
332
333 /**
334 * Regrouper les resultats de recherche par threads
335 * sauf si {plat} est present
336 *
337 * @param array $flux
338 * @return array
339 */
340 function forum_prepare_recherche($flux){
341 # Pour les forums, unifier par id_thread et forcer statut='publie'
342 if ($flux['args']['type']=='forum'
343 AND $points = $flux['data']){
344 $serveur = $flux['args']['serveur'];
345 $modificateurs = (isset($flux['args']['modificateurs'])?$flux['args']['modificateurs']:array());
346
347 // pas de groupe par thread si {plat}
348 if (!isset($modificateurs['plat'])){
349 $p2 = array();
350 // si critere statut dans la boucle, ne pas filtrer par statut publie ici
351 $cond = (isset($modificateurs['criteres']['statut'])?"":"statut='publie' AND ");
352 $s = sql_select("id_thread, id_forum", "spip_forum", $cond.sql_in('id_forum', array_keys($points)), '','','','',$serveur);
353 while ($t = sql_fetch($s, $serveur))
354 $p2[intval($t['id_thread'])]['score']
355 += $points[intval($t['id_forum'])]['score'];
356 $flux['data'] = $p2;
357 }
358 }
359 return $flux;
360 }
361
362
363 /**
364 * Bloc en sur les encours d'une rubrique (page naviguer)
365 *
366 * @param array $flux
367 * @return array
368 */
369 function forum_rubrique_encours($flux){
370 if (strlen($flux['data'])
371 AND $GLOBALS['meta']['forum_prive_objets'] != 'non')
372 $flux['data'] = _T('forum:texte_en_cours_validation_forum') . $flux['data'];
373 return $flux;
374 }
375
376 /**
377 * Supprimer les forums lies aux objets du core lors de leur suppression
378 *
379 * @param array $objets
380 * @return array
381 */
382 function forum_trig_supprimer_objets_lies($objets){
383 foreach($objets as $objet){
384 if ($objet['type']=='message')
385 sql_delete("spip_forum", "id_message=".intval($objet['id']));
386 }
387 return $objets;
388 }
389
390 ?>