modules/forums.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2008 Polytechnique.org                              *
   4  *  http://opensource.polytechnique.org/                                   *
   5  *                                                                         *
   6  *  This program is free software; you can redistribute it and/or modify   *
   7  *  it under the terms of the GNU General Public License as published by   *
   8  *  the Free Software Foundation; either version 2 of the License, or      *
   9  *  (at your option) any later version.                                    *
  10  *                                                                         *
  11  *  This program is distributed in the hope that it will be useful,        *
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
  14  *  GNU General Public License for more details.                           *
  15  *                                                                         *
  16  *  You should have received a copy of the GNU General Public License      *
  17  *  along with this program; if not, write to the Free Software            *
  18  *  Foundation, Inc.,                                                      *
  19  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  20  ***************************************************************************/
  21
  22 class ForumsModule extends PLModule
  23 {
  24     function handlers()
  25     {
  26         return array(
  27             'banana'              => $this->make_hook('banana', AUTH_COOKIE),
  28             'banana/rss'          => $this->make_hook('rss', AUTH_PUBLIC, 'user', NO_HTTPS),
  29             'admin/forums'   => $this->make_hook('forums_bans', AUTH_MDP, 'admin'),
  30         );
  31     }
  32
  33     function on_subscribe($forlife, $uid, $promo, $password)
  34     {
  35         $cible = array('xorg.general', 'xorg.pa.divers', 'xorg.pa.logements');
  36         $p_for = "xorg.promo.x$promo";
  37
  38         // récupération de l'id du forum promo
  39         $res = XDB::query("SELECT fid FROM forums.list WHERE nom={?}", $p_for);
  40         if ($res->numRows()) {
  41             $cible[] = $p_for;
  42         } else { // pas de forum promo, il faut le créer
  43             $res = XDB::query("SELECT  SUM(perms IN ('admin','user') AND deces=0),COUNT(*)
  44                                  FROM  auth_user_md5 WHERE promo={?}", $promo);
  45             list($effau, $effid) = $res->fetchOneRow();
  46             if (5*$effau>$effid) { // + de 20% d'inscrits
  47                 $mymail = new PlMailer('admin/forums-promo.mail.tpl');
  48                 $mymail->assign('promo', $promo);
  49                 $mymail->send();
  50             }
  51         }
  52
  53         while (list ($key, $val) = each ($cible)) {
  54             XDB::execute("INSERT INTO  forums.abos (fid,uid)
  55                                SELECT  fid,{?} FROM forums.list WHERE nom={?}", $uid, $val);
  56         }
  57     }
  58
  59     function handler_banana(&$page, $group = null, $action = null, $artid = null)
  60     {
  61         $page->changeTpl('banana/index.tpl');
  62         $page->assign('xorg_title','Polytechnique.org - Forums & PA');
  63
  64         $get = Array();
  65         if (Post::has('updateall')) {
  66             $get['updateall'] = Post::v('updateall');
  67         }
  68         require_once 'banana/forum.inc.php';
  69         get_banana_params($get, $group, $action, $artid);
  70         run_banana($page, 'ForumsBanana', $get);
  71     }
  72
  73     function handler_profile(&$page, $action = null)
  74     {
  75         global $globals;
  76
  77         $page->changeTpl('banana/profile.tpl');
  78
  79         if (!(Post::has('action') && Post::has('banananame') && Post::has('bananasig')
  80         && Post::has('bananadisplay') && Post::has('bananamail')
  81         && Post::has('bananaupdate') && Post::v('action')=="Enregistrer" ))
  82         {
  83             $req = XDB::query("
  84                 SELECT  nom, mail, sig,
  85                         FIND_IN_SET('threads', flags),
  86                         FIND_IN_SET('automaj', flags),
  87                         FIND_IN_SET('xface', flags)
  88                   FROM  forums.profils
  89                  WHERE  uid = {?}", S::v('uid'));
  90             if (!(list($nom, $mail, $sig, $disp, $maj, $xface) = $req->fetchOneRow())) {
  91                 $nom   = S::v('prenom').' '.S::v('nom');
  92                 $mail  = S::v('forlife').'@'.$globals->mail->domain;
  93                 $sig   = $nom.' ('.S::v('promo').')';
  94                 $disp  = 0;
  95                 $maj   = 0;
  96                 $xface = 0;
  97             }
  98             $page->assign('nom' ,  $nom);
  99             $page->assign('mail',  $mail);
 100             $page->assign('sig',   $sig);
 101             $page->assign('disp',  $disp);
 102             $page->assign('maj',   $maj);
 103             $page->assign('xface', $xface);
 104         } else {
 105             $flags = array();
 106             if (Post::b('bananadisplay')) {
 107                 $flags[] = 'threads';
 108             }
 109             if (Post::b('bananaupdate')) {
 110                 $flags[] = 'automaj';
 111             }
 112             if (Post::b('bananaxface')) {
 113                 $flags[] = 'xface';
 114             }
 115             XDB::execute("REPLACE INTO  forums.profils (uid, sig, mail, nom, flags)
 116                                 VALUES  ({?}, {?}, {?}, {?}, {?})",
 117                          S::v('uid'), Post::v('bananasig'),
 118                          Post::v('bananamail'), Post::v('banananame'),
 119                          implode(',', $flags));
 120         }
 121     }
 122
 123     function handler_rss(&$page, $group, $alias, $hash, $file = null)
 124     {
 125         if (is_null($file)) {
 126             if (is_null($hash)) {
 127                 exit;
 128             }
 129             $this->handler_rss($page, null, $group, $alias, $hash);
 130         }
 131         require_once('rss.inc.php');
 132         $uid = init_rss(null, $alias, $hash);
 133         if (!$uid) {
 134             exit;
 135         }
 136         $res = XDB::query("SELECT id AS uid, alias AS forlife
 137                              FROM aliases
 138                             WHERE type = 'a_vie' AND id = {?}", $uid);
 139         $row = $res->fetchOneAssoc();
 140         $_SESSION = array_merge($row, $_SESSION);
 141
 142         require_once 'banana/forum.inc.php';
 143         $banana = new ForumsBanana(S::v('forlife'), array('group' => $group, 'action' => 'rss2'));
 144         $banana->run();
 145         exit;
 146     }
 147
 148     function handler_forums_bans(&$page, $action = 'list', $id = null)
 149     {
 150         $page->assign('xorg_title','Polytechnique.org - Administration - Bannissements des forums');
 151         $page->assign('title', 'Gestion des mises au ban');
 152         $table_editor = new PLTableEditor('admin/forums','forums.innd','id_innd');
 153         $table_editor->add_sort_field('priority', true, true);
 154         $table_editor->describe('read_perm','lecture',true);
 155         $table_editor->describe('write_perm','écriture',true);
 156         $table_editor->describe('priority','priorité',true);
 157         $table_editor->describe('comment','commentaire',true);
 158         $table_editor->apply($page, $action, $id);
 159         $page->changeTpl('forums/admin.tpl');
 160         $page->addJsLink('jquery.js');
 161     }
 162
 163     static function run_banana(&$page, $params = null)
 164     {
 165         $page->changeTpl('banana/index.tpl');
 166         $page->assign('xorg_title','Polytechnique.org - Forums & PA');
 167
 168         require_once 'banana/forum.inc.php';
 169         run_banana($page, 'ForumsBanana', $params);
 170     }
 171 }
 172
 173 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 174 ?>