Subversion Repositories Sites.tela-botanica.org

<?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l'internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2005                                                *
 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
 *                                                                         *
 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
\***************************************************************************/


//
// Ce fichier ne sera execute qu'une fois
if (defined("_ECRIRE_INC_FORUM")) return;
define("_ECRIRE_INC_FORUM", "1");


//
// Suppression de forums
//
function changer_statut_forum($id_forum, $statut) {
        $result = spip_query("SELECT * FROM spip_forum WHERE id_forum=$id_forum");

        if (!($row = spip_fetch_array($result)))
                return;

        $id_parent = $row['id_parent'];

        // invalider les pages comportant ce forum
        include_ecrire('inc_invalideur.php3');
        $index_forum = calcul_index_forum($row['id_article'], $row['id_breve'], $row['id_rubrique'], $row['id_syndic']);
        suivre_invalideur("id='id_forum/$index_forum'");

        // Signaler au moteur de recherche qu'il faut reindexer le thread
        if ($id_parent) {
                include_ecrire('inc_index.php3');
                marquer_indexer ('forum', $id_parent);
        }

        // changer le statut de toute l'arborescence dependant de ce message
        $id_messages = array($id_forum);
        while ($id_messages) {
                $id_messages = join(',', $id_messages);
                $query_forum = "UPDATE spip_forum SET statut='$statut'
                WHERE id_forum IN ($id_messages)";
                $result_forum = spip_query($query_forum);
                $query_forum = "SELECT id_forum FROM spip_forum
                WHERE id_parent IN ($id_messages)";
                $result_forum = spip_query($query_forum);
                unset($id_messages);
                while ($row = spip_fetch_array($result_forum))
                        $id_messages[] = $row['id_forum'];
        }
}

function controler_statut_forum ($controle_forum, $id_controle_forum) {
        // Verifier qu'on a le droit d'agir sur ce forum
        global $connect_toutes_rubriques, $connect_statut;
        $ok = ($connect_statut == "0minirezo" AND $connect_toutes_rubriques);
        if (!$ok) return;

        // Que faut-il faire ?
        switch($controle_forum) {
                case 'supp_forum':
                        $statut = 'off';
                        break;
                case 'supp_forum_priv':
                        $statut = 'privoff';
                        break;
                case 'valid_forum':
                        $statut = 'publie';
                        break;
                // nb : les forums prives (privrac ou prive), une fois effaces
                // (privoff), ne sont pas revalidables ; le forum d'admin (privadm)
                // n'est pas effacable
        }
        changer_statut_forum($id_controle_forum, $statut);
        return $statut;
}

// Installer un bouton de moderation dans l'espace prive
function controle_cache_forum($action, $id, $texte, $fond, $fonction, $but='') {
        $link = new Link();

        $link->addvar('controle_forum', $action);
        $link->addvar('id_controle_forum', $id);
        $link = $link->geturl() . "#id$id";

        if ($but)
                $link = $but . "&retour=ecrire/" . urlencode($link);

        return icone($texte,
                $link,
                $fond,
                $fonction,
                "right",
                'non');
}

// tous les boutons de controle d'un forum
function boutons_controle_forum($id_forum, $forum_stat, $forum_id_auteur=0, $ref, $forum_ip) {
        $controle = '';

        // selection du logo et des boutons correspondant a l'etat du forum
        switch ($forum_stat) {
                # forum sous un article dans l'espace prive
                case "prive":
                        $logo = "forum-interne-24.gif";
                        $valider = false;
                        $valider_repondre = false;
                        $supprimer = 'supp_forum_priv';
                        break;
                # forum des administrateurs
                case "privadmin":
                        $logo = "forum-admin-24.gif";
                        $valider = false;
                        $valider_repondre = false;
                        $supprimer = false;
                        break;
                # forum de l'espace prive, supprime (non revalidable,
                # d'ailleurs on ne sait plus a quel type de forum il appartenait)
                case "privoff":
                        $logo = "forum-interne-24.gif";
                        $valider = false;
                        $valider_repondre = false;
                        $supprimer = false;
                        break;
                # forum general de l'espace prive
                case "privrac":
                        $logo = "forum-interne-24.gif";
                        $valider = false;
                        $valider_repondre = false;
                        $supprimer = 'supp_forum_priv';
                        break;

                # forum publie sur le site public
                case "publie":
                        $logo = "forum-public-24.gif";
                        $valider = false;
                        $valider_repondre = false;
                        $supprimer = 'supp_forum';
                        break;
                # forum supprime sur le site public
                case "off":
                        $logo = "forum-public-24.gif";
                        $valider = 'valid_forum';
                        $valider_repondre = false;
                        $supprimer = false;
                        $message = "<BR><FONT COLOR='red'><B>"._T('info_message_supprime')." $forum_ip</B></FONT>";
                        if($forum_id_auteur)
                                $message .= " - <A HREF='auteurs_edit.php3?id_auteur="
                                .$forum_id_auteur."'>" ._T('lien_voir_auteur'). "</A>";
                        break;
                # forum propose (a moderer) sur le site public
                case "prop":
                        $logo = "forum-public-24.gif";
                        $valider = 'valid_forum';
                        $valider_repondre = true;
                        $supprimer = 'supp_forum';
                        break;
                default:
                        return;
        }

        if ($message)
                $controle .= $message;

        if ($supprimer)
                $controle .= controle_cache_forum($supprimer,
                        $id_forum,
                        _T('icone_supprimer_message'), 
                        $logo,
                        "supprimer.gif");

        if ($valider)
                $controle .= controle_cache_forum($valider,
                        $id_forum,
                        _T('icone_valider_message'), 
                        $logo,
                        "creer.gif");

        if ($valider_repondre) {

                $controle .= controle_cache_forum($valider,
                        $id_forum,
                        _T('icone_valider_message') . " &amp; " .
                        _T('lien_repondre_message'),
                        $logo,
                        "creer.gif",
                        "../forum.php3?$ref&id_forum=$id_forum"
                );
        }

        return $controle;
}

// Selon ce qu'on veut suivre depuis ecrire/controle_forum, retourner le SQL
function critere_statut_controle_forum($page) {
        switch ($page) {
        case 'public':
                $query_forum = "statut IN ('publie', 'off', 'prop') AND texte!=''";
                break;
        case 'prop':
                $query_forum = "statut='prop'";
                break;
        case 'interne':
                $query_forum = "statut IN ('prive', 'privrac', 'privoff', 'privadm') AND texte!=''";
                break;
        case 'vide':
                $query_forum = "statut IN ('publie', 'off', 'prive', 'privrac', 'privoff', 'privadm') AND texte=''";
                break;
        default:
                $query_forum = "0=1";
                break;
        }

        return $query_forum;
}

// Index d'invalidation des forums
function calcul_index_forum($id_article, $id_breve, $id_rubrique, $id_syndic) {
        if ($id_article) return 'a'.$id_article; 
        if ($id_breve) return 'b'.$id_breve;
        if ($id_rubrique) return 'r'.$id_rubrique;
        if ($id_syndic) return 's'.$id_syndic;
}

//
// Recalculer tous les threads
//
function calculer_threads() {
        // fixer les id_thread des debuts de discussion
        spip_query("UPDATE spip_forum SET id_thread=id_forum
        WHERE id_parent=0");

        // reparer les messages qui n'ont pas l'id_secteur de leur parent
        do {
                $discussion = "0";
                $precedent = 0;
                $r = spip_query("SELECT fille.id_forum AS id,
                maman.id_thread AS thread
                FROM spip_forum AS fille, spip_forum AS maman
                WHERE fille.id_parent = maman.id_forum
                AND fille.id_thread <> maman.id_thread
                ORDER BY thread");
                while (list($id, $thread) = spip_fetch_array($r)) {
                        if ($thread == $precedent)
                                $discussion .= ",$id";
                        else {
                                if ($precedent)
                                        spip_query("UPDATE spip_forum SET id_thread=$precedent
                                        WHERE id_forum IN ($discussion)");
                                $precedent = $thread;
                                $discussion = "$id";
                        }
                }
                spip_query("UPDATE spip_forum SET id_thread=$precedent
                WHERE id_forum IN ($discussion)");
        } while ($discussion != "0");
}

// Calculs des URLs des forums (pour l'espace public)
function racine_forum($id_forum){
        if (!$id_forum = intval($id_forum)) return;
        $query = "SELECT id_parent, id_rubrique, id_article, id_breve FROM spip_forum WHERE id_forum=".$id_forum;
        $result = spip_query($query);
        if($row = spip_fetch_array($result)){
                if($row['id_parent']) {
                        return racine_forum($row['id_parent']);
                }
                else {
                        if($row['id_rubrique']) return array('rubrique',$row['id_rubrique'], $id_forum);
                        if($row['id_article']) return array('article',$row['id_article'], $id_forum);
                        if($row['id_breve']) return array('breve',$row['id_breve'], $id_forum);
                }
        }
} 

function generer_url_forum_dist($id_forum, $show_thread=false) {
        list($type, $id, $id_thread) = racine_forum($id_forum);
        if ($id_thread>0 AND $show_thread)
                $id_forum = $id_thread;
        switch($type) {
                case 'article':
                        return generer_url_article($id)."#forum$id_forum";
                        break;
                case 'breve':
                        return generer_url_breve($id)."#forum$id_forum";
                        break;
                case 'rubrique':
                        return generer_url_rubrique($id)."#forum$id_forum";
                        break;
                case 'site':
                        return generer_url_site($id)."#forum$id_forum";
                        break;
                default:
                        return "forum.php3?id_forum=".$id_forum;
        }
}


// Recuperer le reglage des forums publics de l'article x
function get_forums_publics($id_article=0) {
        $forums_publics = lire_meta("forums_publics");
        if ($id_article) {
                $query = "SELECT accepter_forum FROM spip_articles WHERE id_article=$id_article";
                $res = spip_query($query);
                if ($obj = spip_fetch_array($res))
                        $forums_publics = $obj['accepter_forum'];
        } else { // dans ce contexte, inutile
                $forums_publics = substr(lire_meta("forums_publics"),0,3);
        }
        return $forums_publics;
}

// Modifier le reglage des forums publics de l'article x
function modifier_forums_publics($id_article, $forums_publics) {
                spip_query ("UPDATE spip_articles
                        SET accepter_forum='$forums_publics'
                        WHERE id_article=".intval($id_article));
                if ($forums_publics == 'abo') {
                        ecrire_meta('accepter_visiteurs', 'oui');
                        ecrire_metas();
                }
                include_ecrire('inc_invalideur.php3');
                suivre_invalideur("id='id_forum/a$id_article'");

}

// Cree le formulaire de modification du reglage des forums de l'article
function formulaire_modification_forums_publics($id_article, $forums_publics) {
        global $spip_lang_right;

        $r = "\n<form action='". $GLOBALS['clean_link']->getUrl()
                ."' method='POST'>";

        $r .= "\n<input type='hidden' name='id_article' value='$id_article'>";
        $r .= "<br>"._T('info_fonctionnement_forum')."\n";
        $r .= "<select name='change_accepter_forum'
                class='fondl' style='font-size:10px;'
                onChange=\"setvisibility('valider_forum', 'visible');\"
                >\n";

        foreach (array(
                'pos'=>_T('bouton_radio_modere_posteriori'),
                'pri'=>_T('bouton_radio_modere_priori'),
                'abo'=>_T('bouton_radio_modere_abonnement'),
                'non'=>_T('info_pas_de_forum'))
                as $val => $desc) {
                $r .= "<option";
                if ($forums_publics == $val)
                        $r .= " selected";
                $r .= " value='$val'>".$desc."</option>\n";
        }
        $r .= "</select>\n";

        $r .= "<div align='$spip_lang_right'
        class='visible_au_chargement' id='valider_forum'>
        <input type='submit' name='Changer' class='fondo'
        value='"._T('bouton_changer')."' STYLE='font-size:10px'>
        </div>\n";

        $r .= "</form>";

        return $r;
}

?>