You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

488 lines
13 KiB

<?php
/***************************************************************************\
* SPIP, Système de publication pour l'internet *
* *
* Copyright © avec tendresse depuis 2001 *
* Arnaud Martin, Antoine Pitrou, Philippe Rivière, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribué sous licence GNU/GPL. *
* Pour plus de détails voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
/**
* Utilisation des pipelines
*
* @package SPIP\Forum\Pipelines
**/
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
/**
* Bloc sur les encours editoriaux en page d'accueil
*
* @param string $texte
* @return string
*/
function forum_accueil_encours($texte) {
// si aucun autre objet n'est a valider, on ne dit rien sur les forum
if ($GLOBALS['visiteur_session']['statut'] == '0minirezo') {
// Les forums en attente de moderation
$cpt = sql_countsel('spip_forum', "statut='prop'");
if ($cpt) {
if ($cpt > 1) {
$lien = _T('forum:info_liens_syndiques_3') . ' ' . _T('forum:info_liens_syndiques_4');
} else {
$lien = _T('forum:info_liens_syndiques_5') . ' ' . _T('forum:info_liens_syndiques_6');
}
$lien = "<small>$cpt $lien " . _T('forum:info_liens_syndiques_7') . '</small>';
if ($GLOBALS['connect_toutes_rubriques']) {
$lien = "<a href='" . generer_url_ecrire(
'controler_forum',
'statut=prop'
) . "' style='color: black;'>" . $lien . '.</a>';
}
$texte .= "\n<br />" . $lien;
}
if (strlen($texte) and $GLOBALS['meta']['forum_prive_objets'] != 'non') {
$cpt2 = sql_countsel('spip_articles', "statut='prop'");
if ($cpt2) {
$texte = _T('forum:texte_en_cours_validation_forum') . $texte;
}
}
}
return $texte;
}
/**
* Bloc sur les informations generales concernant chaque type d'objet
*
* @param string $texte
* @return string
*/
function forum_accueil_informations($texte) {
include_spip('base/abstract_sql');
$q = sql_select(
'COUNT(*) AS cnt, statut',
'spip_forum',
sql_in('statut', ['publie', 'prop']),
'statut',
'',
'',
'COUNT(*)<>0'
);
$where = count($GLOBALS['connect_id_rubrique']) ? sql_in('id_rubrique', $GLOBALS['connect_id_rubrique']) : '';
$cpt = [];
$cpt2 = [];
$defaut = $where ? '0/' : '';
while ($row = sql_fetch($q)) {
$cpt[$row['statut']] = $row['cnt'];
$cpt2[$row['statut']] = $defaut;
}
if ($cpt) {
if ($where) {
include_spip('inc/forum');
list($f, $w) = critere_statut_controle_forum('public');
$q = sql_select('COUNT(*) AS cnt, F.statut', "$f", "$w ", 'F.statut');
while ($row = sql_fetch($q)) {
$r = $row['statut'];
$cpt2[$r] = intval($row['cnt']) . '/';
}
}
$texte .= "<div class='accueil_informations forum liste'>";
$titre = _T('forum:onglet_messages_publics');
if (autoriser('modererforum')) {
$plus = afficher_plus_info(generer_url_ecrire('controler_forum'), '', $titre);
$texte .= "<h4>$plus</h4>";
} else {
$texte .= "<h4>$titre</h4>";
}
$texte .= "<ul class='liste-items'>";
if (isset($cpt['prop'])) {
$texte .= "<li class='item'>" . _T('texte_statut_attente_validation') . ': ' . $cpt2['prop'] . $cpt['prop'] . '</li>';
}
if (isset($cpt['publie'])) {
$texte .= "<li class='item'>" . _T('texte_statut_publies') . ': ' . $cpt2['publie'] . $cpt['publie'] . '</li>';
}
$texte .= '</ul>';
$texte .= '</div>';
}
return $texte;
}
/**
* Affichage de la fiche complete des articles et rubriques
*
* @param array $flux
* @return array
*/
function forum_afficher_fiche_objet($flux) {
if (
$type = $flux['args']['type']
and $table_sql = table_objet_sql($type)
and in_array($table_sql, explode(',', $GLOBALS['meta']['forum_prive_objets']))
) {
$id = $flux['args']['id'];
$contexte = array_merge(
$flux['args']['contexte'],
[
'objet' => $type,
'id_objet' => $id,
'quoi' => 'interne',
'statut' => 'prive'
]
);
$flux['data'] .= recuperer_fond('prive/squelettes/inclure/discuter_forum', $contexte, ['ajax' => true]);
}
if (($type = $flux['args']['type']) == 'rubrique') {
$id_rubrique = $flux['args']['id'];
if (
autoriser('publierdans', 'rubrique', $id_rubrique)
and !sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique))
) {
include_spip('inc/forum');
list($from, $where) = critere_statut_controle_forum('prop', $id_rubrique);
$n_forums = sql_countsel($from, $where);
} else {
$n_forums = 0;
}
if ($n_forums) {
$flux['data'] .= icone_verticale(
_T('forum:icone_suivi_forum', ['nb_forums' => $n_forums]),
generer_url_ecrire('controler_forum', "objet=article&id_secteur=$id_rubrique&statut=prop"),
'forum-24.png',
'',
'center'
);
}
}
return $flux;
}
/**
* Boite de configuration des objets articles
*
* @param array $flux
* @return array
*/
function forum_afficher_config_objet($flux) {
if (
($type = $flux['args']['type'])
and $id = $flux['args']['id']
) {
if (autoriser('modererforum', $type, $id)) {
$id_table_objet = id_table_objet($type);
$flux['data'] .= recuperer_fond(
'prive/objets/configurer/moderation',
['id_objet' => $id, 'objet' => objet_type(table_objet($type))]
);
}
}
return $flux;
}
/**
* Message d'information relatif au statut d'un objet
*
* @param array $flux
* @return array
*/
function forum_afficher_message_statut_objet($flux) {
if ($type = $flux['args']['type'] == 'article') {
$statut = $flux['args']['statut'];
if (
$GLOBALS['meta']['forum_prive_objets'] != 'non'
and $statut == 'prop'
) {
$flux['data'] .= "<p class='article_prop'>" . _T('forum:text_article_propose_publication_forum') . '</p>';
}
}
return $flux;
}
/**
* Nombre de forums d'un secteur dans la boite d'info
*
* @param array $flux
* @return array
*/
function forum_boite_infos($flux) {
if (
$flux['args']['type'] == 'rubrique'
and $id_rubrique = $flux['args']['id']
) {
if (
autoriser('publierdans', 'rubrique', $id_rubrique)
// [doc] d'ou il vient ce row ?
and (!isset($flux['args']['row']['id_parent']) or !$flux['args']['row']['id_parent'])
) {
include_spip('inc/forum');
list($from, $where) = critere_statut_controle_forum('prop', $id_rubrique);
$n_forums = sql_countsel($from, $where);
} else {
$n_forums = 0;
}
if ($n_forums) {
$aff = "<p class='forums'>" . singulier_ou_pluriel(
$n_forums,
'forum:info_1_message_forum',
'forum:info_nb_messages_forum'
) . '</p>';
if (($pos = strpos($flux['data'], '<!--nb_elements-->')) !== false) {
$flux['data'] = substr($flux['data'], 0, $pos) . $aff . substr($flux['data'], $pos);
} else {
$flux['data'] .= $aff;
}
}
} elseif (
$flux['args']['type'] == 'auteur'
and $id_auteur = $flux['args']['id']
) {
if ($nb = sql_countsel('spip_forum', "statut!='poubelle' AND id_auteur=" . intval($id_auteur))) {
$nb = '<div><a href="' . generer_url_ecrire('controler_forum', 'id_auteur=' . $id_auteur) . '">' . singulier_ou_pluriel(
$nb,
'forum:info_1_message_forum',
'forum:info_nb_messages_forum'
) . '</a></div>';
if ($p = strpos($flux['data'], '<!--nb_elements-->')) {
$flux['data'] = substr_replace($flux['data'], $nb, $p, 0);
}
}
}
return $flux;
}
/**
* Compter et afficher les contributions d'un visiteur
* pour affichage dans la page auteurs
*
* @param array $flux
* @return array
*/
function forum_compter_contributions_auteur($flux) {
$id_auteur = intval($flux['args']['id_auteur']);
if ($cpt = sql_countsel('spip_forum AS F', 'F.id_auteur=' . intval($flux['args']['id_auteur']))) {
// manque "1 message de forum"
$contributions = singulier_ou_pluriel($cpt, 'forum:info_1_message_forum', 'forum:info_nb_messages_forum');
$flux['data'][] = $contributions;
}
return $flux;
}
/**
* Definir les meta de configuration liee aux forums
*
* @param array $metas
* @return array
*/
function forum_configurer_liste_metas($metas) {
$metas['mots_cles_forums'] = 'non';
$metas['forums_titre'] = 'oui';
$metas['forums_texte'] = 'oui';
$metas['forums_urlref'] = 'non';
$metas['forums_afficher_barre'] = 'oui';
$metas['forums_forcer_previsu'] = 'oui';
$metas['formats_documents_forum'] = '';
$metas['forums_publics'] = 'posteriori';
$metas['forum_prive'] = 'oui'; # forum global dans l'espace prive
$metas['forum_prive_objets'] = 'oui'; # forum sous chaque article de l'espace prive
$metas['forum_prive_admin'] = 'non'; # forum des administrateurs
return $metas;
}
/**
* Optimiser la base de donnée en supprimant les forums orphelins
*
* @param array $flux
* @return array
*/
function forum_optimiser_base_disparus($flux) {
$n = &$flux['data'];
$mydate = $flux['args']['date'];
# les forums lies a une id_objet inexistant
$r = sql_select('DISTINCT objet', 'spip_forum');
while ($t = sql_fetch($r)) {
if ($type = $t['objet']) {
$spip_table_objet = table_objet_sql($type);
$id_table_objet = id_table_objet($type);
# les forums lies a un objet inexistant
$res = sql_select(
'forum.id_forum AS id',
"spip_forum AS forum
LEFT JOIN $spip_table_objet AS O
ON O.$id_table_objet=forum.id_objet",
'forum.objet=' . sql_quote($type) . " AND O.$id_table_objet IS NULL AND forum.id_objet>0"
);
$n += optimiser_sansref('spip_forum', 'id_forum', $res);
}
}
//
// Forums
//
sql_delete('spip_forum', 'statut=' . sql_quote('redac') . ' AND maj < ' . sql_quote($mydate));
// nettoyer les documents des forums en spam&poubelle pour eviter de sortir des quota disques
// bizarrement on ne nettoie jamais les messages eux meme ?
include_spip('action/editer_liens');
if (objet_associable('document')) {
$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')"
);
while ($row = sql_fetch($res)) {
include_spip('inc/autoriser');
// si un seul lien (ce forum donc), on supprime le document
// si un document est attache a plus d'un forum, c'est un cas bizarre ou gere a la main
// on ne touche a rien !
if (count(objet_trouver_liens(['document' => $row['id_document']], '*')) == 1) {
autoriser_exception('supprimer', 'document', $row['id_document']);
if ($supprimer_document = charger_fonction('supprimer_document', 'action', true)) {
$supprimer_document($row['id_document']);
}
}
}
}
//
// CNIL -- Informatique et libertes
//
// masquer le numero IP des vieux forums
//
## date de reference = 4 mois
## definir a 0 pour desactiver
if (!defined('_CNIL_PERIODE')) {
define('_CNIL_PERIODE', 3600 * 24 * 31 * 4);
}
if (_CNIL_PERIODE) {
$critere_cnil = 'date_heure<"' . date('Y-m-d', time() - _CNIL_PERIODE) . '"'
. ' AND statut != "spam"'
. ' AND (ip LIKE "%.%" OR ip LIKE "%:%")'; # ipv4 ou ipv6
$c = sql_countsel('spip_forum', $critere_cnil);
if ($c > 0) {
spip_log("CNIL: masquer IP de $c forums anciens");
sql_update('spip_forum', ['ip' => 'MD5(ip)'], $critere_cnil);
}
}
return $flux;
}
/**
* Remplissage des champs a la creation d'objet
*
* @param array $flux
* @return array
*/
function forum_pre_insertion($flux) {
if ($flux['args']['table'] == 'spip_articles') {
$flux['data']['accepter_forum'] = substr($GLOBALS['meta']['forums_publics'], 0, 3);
}
return $flux;
}
/**
* Regrouper les resultats de recherche par threads
* sauf si {plat} est present
*
* @param array $flux
* @return array
*/
function forum_prepare_recherche($flux) {
# Pour les forums, unifier par id_thread et forcer statut='publie'
if (
$flux['args']['type'] == 'forum'
and $points = $flux['data']
) {
$serveur = $flux['args']['serveur'];
$modificateurs = (isset($flux['args']['modificateurs']) ? $flux['args']['modificateurs'] : []);
// pas de groupe par thread si {plat}
if (!isset($modificateurs['plat'])) {
$p2 = [];
// si critere statut dans la boucle, ne pas filtrer par statut publie ici
$cond = (isset($modificateurs['criteres']['statut']) ? '' : "statut='publie' AND ");
$res = sql_allfetsel(
['id_thread, id_forum'],
'spip_forum',
$cond . sql_in('id_forum', array_keys($points)),
'',
'',
'',
'',
$serveur
);
if ($res) {
foreach ($res as $t) {
$id_thread = intval($t['id_thread']);
if (empty($p2[$id_thread])) {
$p2[$id_thread] = ['score' => 0];
}
$p2[$id_thread]['score'] += $points[intval($t['id_forum'])]['score'];
}
}
$flux['data'] = $p2;
}
}
return $flux;
}
/**
* Bloc en sur les encours d'une rubrique (page naviguer)
*
* @param array $flux
* @return array
*/
function forum_rubrique_encours($flux) {
if (
strlen($flux['data'])
and $GLOBALS['meta']['forum_prive_objets'] != 'non'
) {
$flux['data'] = _T('forum:texte_en_cours_validation_forum') . $flux['data'];
}
return $flux;
}
/**
* Supprimer les forums lies aux objets du core lors de leur suppression
*
* @param array $objets
* @return array
*/
function forum_trig_supprimer_objets_lies($objets) {
foreach ($objets as $objet) {
if ($objet['type'] == 'message') {
sql_delete('spip_forum', 'id_message=' . intval($objet['id']));
}
if (!sql_countsel(table_objet_sql($objet['type']), id_table_objet($objet['type']) . '=' . intval($objet['id']))) {
sql_delete('spip_forum', ['id_objet=' . intval($objet['id']), 'objet=' . sql_quote($objet['type'])]);
}
}
return $objets;
}