Mailman don't understand UTF8 (Closes #761)

[platal.git] / modules / forums.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2008 Polytechnique.org                              *
 *  http://opensource.polytechnique.org/                                   *
 *                                                                         *
 *  This program is free software; you can redistribute it and/or modify   *
 *  it under the terms of the GNU General Public License as published by   *
 *  the Free Software Foundation; either version 2 of the License, or      *
 *  (at your option) any later version.                                    *
 *                                                                         *
 *  This program is distributed in the hope that it will be useful,        *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
 *  GNU General Public License for more details.                           *
 *                                                                         *
 *  You should have received a copy of the GNU General Public License      *
 *  along with this program; if not, write to the Free Software            *
 *  Foundation, Inc.,                                                      *
 *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
 ***************************************************************************/

class ForumsModule extends PLModule
{
    function handlers()
    {
        return array(
            'banana'              => $this->make_hook('banana', AUTH_COOKIE),
            'banana/rss'          => $this->make_hook('rss', AUTH_PUBLIC, 'user', NO_HTTPS),
            'admin/forums'   => $this->make_hook('forums_bans', AUTH_MDP, 'admin'),
        );
    }

    function on_subscribe($forlife, $uid, $promo, $password)
    {
        $cible = array('xorg.general', 'xorg.pa.divers', 'xorg.pa.logements');
        $p_for = "xorg.promo.x$promo";

        // récupération de l'id du forum promo
        $res = XDB::query("SELECT fid FROM forums.list WHERE nom={?}", $p_for);
        if ($res->numRows()) {
            $cible[] = $p_for;
        } else { // pas de forum promo, il faut le créer
            $res = XDB::query("SELECT  SUM(perms IN ('admin','user') AND deces=0),COUNT(*)
                                 FROM  auth_user_md5 WHERE promo={?}", $promo);
            list($effau, $effid) = $res->fetchOneRow();
            if (5*$effau>$effid) { // + de 20% d'inscrits
                $mymail = new PlMailer('admin/forums-promo.mail.tpl');
                $mymail->assign('promo', $promo);
                $mymail->send();
            }
        }

        while (list ($key, $val) = each ($cible)) {
            XDB::execute("INSERT INTO  forums.abos (fid,uid)
                               SELECT  fid,{?} FROM forums.list WHERE nom={?}", $uid, $val);
        }
    }

    function handler_banana(&$page, $group = null, $action = null, $artid = null)
    {
        $page->changeTpl('banana/index.tpl');
        $page->assign('xorg_title','Polytechnique.org - Forums & PA');

        $get = Array();
        if (Post::has('updateall')) {
            $get['updateall'] = Post::v('updateall');
        }
        require_once 'banana/forum.inc.php';
        get_banana_params($get, $group, $action, $artid);
        run_banana($page, 'ForumsBanana', $get);
    }

    function handler_profile(&$page, $action = null)
    {
        global $globals;

        $page->changeTpl('banana/profile.tpl');

        if (!(Post::has('action') && Post::has('banananame') && Post::has('bananasig')
        && Post::has('bananadisplay') && Post::has('bananamail')
        && Post::has('bananaupdate') && Post::v('action')=="Enregistrer" ))
        {
            $req = XDB::query("
                SELECT  nom, mail, sig,
                        FIND_IN_SET('threads', flags),
                        FIND_IN_SET('automaj', flags),
                        FIND_IN_SET('xface', flags)
                  FROM  forums.profils
                 WHERE  uid = {?}", S::v('uid'));
            if (!(list($nom, $mail, $sig, $disp, $maj, $xface) = $req->fetchOneRow())) {
                $nom   = S::v('prenom').' '.S::v('nom');
                $mail  = S::v('forlife').'@'.$globals->mail->domain;
                $sig   = $nom.' ('.S::v('promo').')';
                $disp  = 0;
                $maj   = 0;
                $xface = 0;
            }
            $page->assign('nom' ,  $nom);
            $page->assign('mail',  $mail);
            $page->assign('sig',   $sig);
            $page->assign('disp',  $disp);
            $page->assign('maj',   $maj);
            $page->assign('xface', $xface);
        } else {
            $flags = array();
            if (Post::b('bananadisplay')) {
                $flags[] = 'threads';
            }
            if (Post::b('bananaupdate')) {
                $flags[] = 'automaj';
            }
            if (Post::b('bananaxface')) {
                $flags[] = 'xface';
            }
            XDB::execute("REPLACE INTO  forums.profils (uid, sig, mail, nom, flags)
                                VALUES  ({?}, {?}, {?}, {?}, {?})",
                         S::v('uid'), Post::v('bananasig'),
                         Post::v('bananamail'), Post::v('banananame'),
                         implode(',', $flags));
        }
    }

    function handler_rss(&$page, $group, $alias, $hash, $file = null)
    {
        if (is_null($file)) {
            if (is_null($hash)) {
                exit;
            }
            $this->handler_rss($page, null, $group, $alias, $hash);
        }
        require_once('rss.inc.php');
        $uid = init_rss(null, $alias, $hash);
        if (!$uid) {
            exit;
        }
        $res = XDB::query("SELECT id AS uid, alias AS forlife
                             FROM aliases
                            WHERE type = 'a_vie' AND id = {?}", $uid);
        $row = $res->fetchOneAssoc();
        $_SESSION = array_merge($row, $_SESSION);

        require_once 'banana/forum.inc.php';
        $banana = new ForumsBanana(S::v('forlife'), array('group' => $group, 'action' => 'rss2'));
        $banana->run();
        exit;
    }

    function handler_forums_bans(&$page, $action = 'list', $id = null)
    {
        $page->assign('xorg_title','Polytechnique.org - Administration - Bannissements des forums');
        $page->assign('title', 'Gestion des mises au ban');
        $table_editor = new PLTableEditor('admin/forums','forums.innd','id_innd');
        $table_editor->add_sort_field('priority', true, true);
        $table_editor->describe('read_perm','lecture',true);
        $table_editor->describe('write_perm','écriture',true);
        $table_editor->describe('priority','priorité',true);
        $table_editor->describe('comment','commentaire',true);
        $table_editor->apply($page, $action, $id);
        $page->changeTpl('forums/admin.tpl');
        $page->addJsLink('jquery.js');
    }

    static function run_banana(&$page, $params = null)
    {
        $page->changeTpl('banana/index.tpl');
        $page->assign('xorg_title','Polytechnique.org - Forums & PA');

        require_once 'banana/forum.inc.php';
        run_banana($page, 'ForumsBanana', $params);
    }
}

// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>