modules/banana.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2007 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 BananaModule extends PLModule
  23 {
  24     function handlers()
  25     {
  26         return array(
  27             'banana'              => $this->make_hook('banana', AUTH_COOKIE),
  28             'banana/profile'      => $this->make_hook('profile', AUTH_MDP),
  29             'banana/subscription' => $this->make_hook('subscription', AUTH_COOKIE),
  30             'banana/xface'        => $this->make_hook('xface', AUTH_COOKIE),
  31         );
  32     }
  33
  34     function on_subscribe($forlife, $uid, $promo, $password)
  35     {
  36         $cible = array('xorg.general', 'xorg.pa.divers', 'xorg.pa.logements');
  37         $p_for = "xorg.promo.x$promo";
  38
  39         // rÃ©cupÃ©ration de l'id du forum promo
  40         $res = XDB::query("SELECT fid FROM forums.list WHERE nom={?}", $p_for);
  41         if ($res->numRows()) {
  42             $cible[] = $p_for;
  43         } else { // pas de forum promo, il faut le crÃ©er
  44             $res = XDB::query("SELECT  SUM(perms IN ('admin','user') AND deces=0),COUNT(*)
  45                                  FROM  auth_user_md5 WHERE promo={?}", $promo);
  46             list($effau, $effid) = $res->fetchOneRow();
  47             if (5*$effau>$effid) { // + de 20% d'inscrits
  48                 $mymail = new PlMailer('mails/forums.promo.tpl');
  49                 $mymail->assign('promo', $promo);
  50                 $mymail->send();
  51             }
  52         }
  53
  54         while (list ($key, $val) = each ($cible)) {
  55             XDB::execute("INSERT INTO  forums.abos (fid,uid)
  56                                SELECT  fid,{?} FROM forums.list WHERE nom={?}", $uid, $val);
  57         }
  58     }
  59
  60     function handler_banana(&$page, $group = null, $action = null, $artid = null)
  61     {
  62         $get = Array();
  63         if (!is_null($group)) {
  64             $get['group'] = $group;
  65         }
  66         if (Post::has('updateall')) {
  67             $get['updateall'] = Post::v('updateall');
  68         }
  69         if (!is_null($action)) {
  70             if ($action == 'new') {
  71                 $get['action'] = 'new';
  72             } elseif (!is_null($artid)) {
  73                 $get['artid'] = $artid;
  74                 if ($action == 'reply') {
  75                     $get['action'] = 'new';
  76                 } elseif ($action == 'cancel') {
  77                     $get['action'] = $action;
  78                 } elseif ($action == 'from') {
  79                     $get['first'] = $artid;
  80                     unset($get['artid']);
  81                 } elseif ($action == 'read') {
  82                     $get['part']  = @$_GET['part'];
  83                 } elseif ($action == 'source') {
  84                     $get['part'] = 'source';
  85                 } elseif ($action == 'xface') {
  86                     $get['part']  = 'xface';
  87                 } elseif ($action) {
  88                     $get['part'] = str_replace('.', '/', $action);
  89                 }
  90             }
  91         }
  92         return BananaModule::run_banana($page, $get);
  93     }
  94
  95     function handler_profile(&$page, $action = null)
  96     {
  97         global $globals;
  98
  99         $page->changeTpl('banana/profile.tpl');
 100
 101         if (!(Post::has('action') && Post::has('banananame') && Post::has('bananasig')
 102         && Post::has('bananadisplay') && Post::has('bananamail')
 103         && Post::has('bananaupdate') && Post::v('action')=="OK" ))
 104         {
 105             $req = XDB::query("
 106                 SELECT  nom,mail,sig,if(FIND_IN_SET('threads',flags),'1','0'),
 107                         IF(FIND_IN_SET('automaj',flags),'1','0')
 108                   FROM  forums.profils
 109                  WHERE  uid = {?}", S::v('uid'));
 110             if (!(list($nom,$mail,$sig,$disp,$maj) = $req->fetchOneRow())) {
 111                 $nom  = S::v('prenom').' '.S::v('nom');
 112                 $mail = S::v('forlife').'@'.$globals->mail->domain;
 113                 $sig  = $nom.' ('.S::v('promo').')';
 114                 $disp = 0;
 115                 $maj  = 0;
 116             }
 117             $page->assign('nom' , $nom);
 118             $page->assign('mail', $mail);
 119             $page->assign('sig' , $sig);
 120             $page->assign('disp', $disp);
 121             $page->assign('maj' , $maj);
 122         } else {
 123             XDB::execute(
 124                 'REPLACE INTO  forums.profils (uid,sig,mail,nom,flags)
 125                        VALUES  ({?},{?},{?},{?},{?})',
 126                 S::v('uid'), Post::v('bananasig'),
 127                 Post::v('bananamail'), Post::v('banananame'),
 128                 (Post::b('bananadisplay') ? 'threads,' : '') .
 129                 (Post::b('bananaupdate') ? 'automaj' : '')
 130             );
 131         }
 132     }
 133
 134     function handler_subscription(&$page)
 135     {
 136         return $this->run_banana($page, Array('action' => 'subscribe'));
 137     }
 138
 139     function handler_xface(&$page, $face = null)
 140     {
 141         header('Content-Type: image/gif');
 142         passthru('echo ' . escapeshellarg(base64_decode(strtr($face, '.:', '+/')))
 143                 . '| uncompface -X '
 144                 . '| convert -transparent white xbm:- gif:-');
 145     }
 146
 147     static function run_banana(&$page, $params = null)
 148     {
 149         $page->changeTpl('banana/index.tpl');
 150         $page->assign('xorg_title','Polytechnique.org - Forums & PA');
 151
 152         require_once 'banana/forum.inc.php';
 153
 154         $banana = new ForumsBanana($params);
 155         $res = $banana->run();
 156         $page->assign_by_ref('banana', $banana);
 157         $page->assign('banana_res', $res);
 158         $page->addCssInline($banana->css());
 159         $page->addCssLink('banana.css');
 160     }
 161 }
 162
 163 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 164 ?>