include/banana/forum.inc.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 require_once 'banana/banana.inc.php';
  23 require_once 'banana/hooks.inc.php';
  24
  25 function hook_checkcancel($_headers)
  26 {
  27     return ($_headers['x-org-id'] == S::v('forlife') or S::has_perms());
  28 }
  29
  30 function hook_makeLink($params)
  31 {
  32     global $globals;
  33     $base = $globals->baseurl . '/banana';
  34     if (isset($params['page'])) {
  35         return $base . '/' . $params['page'];
  36     }
  37     if (@$params['action'] == 'subscribe') {
  38         return $base . '/subscription';
  39     }
  40
  41     if (!isset($params['group'])) {
  42         return $base;
  43     }
  44     $base .= '/' . $params['group'];
  45     $base = $base . hook_platalMessageLink($params);
  46     if (@$params['action'] == 'showext') {
  47         $base .= '?action=showext';
  48     }
  49     return $base;
  50 }
  51
  52 class ForumsBanana extends Banana
  53 {
  54     function __construct($params = null)
  55     {
  56         global $globals;
  57         Banana::$msgedit_canattach = false;
  58         Banana::$spool_root = $globals->banana->spool_root;
  59         array_push(Banana::$msgparse_headers, 'x-org-id', 'x-org-mail');
  60         Banana::$nntp_host = 'news://web_'.S::v('forlife')
  61                            . ":{$globals->banana->password}@{$globals->banana->server}:{$globals->banana->port}/";
  62         if (S::has_perms()) {
  63             Banana::$msgshow_mimeparts[] = 'source';
  64         }
  65         parent::__construct($params);
  66     }
  67
  68     public function run()
  69     {
  70         global $platal, $globals;
  71
  72         // Update last unread time
  73         $time = null;
  74         if (!is_null($this->params) && isset($this->params['updateall'])) {
  75             $time = intval($this->params['updateall']);
  76             $_SESSION['banana_last']     = $time;
  77         }
  78
  79         // Get user profile from SQL
  80         $req = XDB::query("SELECT  nom, mail, sig,
  81                                    FIND_IN_SET('threads',flags), FIND_IN_SET('automaj',flags)
  82                              FROM  {$globals->banana->table_prefix}profils
  83                             WHERE  uid={?}", S::i('uid'));
  84         if (!(list($nom,$mail,$sig,$disp,$maj) = $req->fetchOneRow())) {
  85             $nom  = S::v('prenom')." ".S::v('nom');
  86             $mail = S::v('forlife')."@polytechnique.org";
  87             $sig  = $nom." (".S::v('promo').")";
  88             $disp = 0;
  89             $maj  = 1;
  90         }
  91         if ($maj) {
  92             $time = time();
  93         }
  94
  95         // Build user profile
  96         $req = XDB::query("
  97                  SELECT  nom
  98                    FROM  {$globals->banana->table_prefix}abos
  99               LEFT JOIN  {$globals->banana->table_prefix}list ON list.fid=abos.fid
 100                   WHERE  uid={?}", S::i('uid'));
 101         Banana::$profile['headers']['From']         = utf8_encode("$nom <$mail>");
 102         Banana::$profile['headers']['Organization'] = 'Utilisateur de Polytechnique.org';
 103         Banana::$profile['signature']               = utf8_encode($sig);
 104         Banana::$profile['display']                 = $disp;
 105         Banana::$profile['autoup']                  = $maj;
 106         Banana::$profile['lastnews']                = S::v('banana_last');
 107         Banana::$profile['subscribe']               = $req->fetchColumn();
 108
 109         // Update the "unread limit"
 110         if (!is_null($time)) {
 111             XDB::execute("UPDATE  auth_user_quick
 112                              SET  banana_last = FROM_UNIXTIME({?})
 113                            WHERE  user_id={?}",
 114                          $time, S::i('uid'));
 115         }
 116
 117         // Register custom Banana links and tabs
 118         if (!Banana::$profile['autoup']) {
 119             Banana::$page->registerAction('<a href=\'javascript:dynpostkv("'
 120                                 . $platal->path . '", "updateall", ' . time() . ')\'>'
 121                                 . 'Marquer tous les messages comme lus'
 122                                 . '</a>', array('forums', 'thread', 'message'));
 123         }
 124         Banana::$page->registerPage('profile', utf8_encode('Préférences'), null);
 125
 126
 127         // Run Banana
 128         return parent::run();
 129     }
 130
 131     protected function action_saveSubs($groups)
 132     {
 133         global $globals;
 134         $uid = S::v('uid');
 135
 136         Banana::$profile['subscribe'] = array();
 137         XDB::execute("DELETE FROM {$globals->banana->table_prefix}abos WHERE uid={?}", $uid);
 138         if (!count($groups)) {
 139             return true;
 140         }
 141
 142         $req  = XDB::iterRow("SELECT fid,nom FROM {$globals->banana->table_prefix}list");
 143         $fids = array();
 144         while (list($fid,$fnom) = $req->next()) {
 145             $fids[$fnom] = $fid;
 146         }
 147
 148         $diff = array_diff($groups, array_keys($fids));
 149         foreach ($diff as $g) {
 150             XDB::execute("INSERT INTO {$globals->banana->table_prefix}list (nom) VALUES ({?})", $g);
 151             $fids[$g] = XDB::insertId();
 152         }
 153
 154         foreach ($groups as $g) {
 155             XDB::execute("INSERT INTO {$globals->banana->table_prefix}abos (fid,uid) VALUES ({?},{?})",
 156                          $fids[$g], $uid);
 157             Banana::$profile['subscribe'][] = $g;
 158         }
 159     }
 160 }
 161
 162 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 163 ?>