2 /***************************************************************************
3 * Copyright (C) 2003-2009 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 require_once 'banana/banana.inc.php';
23 require_once 'banana/hooks.inc.php';
25 function hook_checkcancel($_headers)
27 return ($_headers['x-org-id'] == S
::v('hruid') or S
::admin());
30 class ForumsBanana
extends Banana
34 public function __construct(User
&$user, $params = null
)
39 Banana
::$msgedit_canattach = false
;
40 Banana
::$spool_root = $globals->banana
->spool_root
;
41 array_push(Banana
::$msgparse_headers, 'x-org-id', 'x-org-mail');
42 Banana
::$nntp_host = 'news://web_' . $user->login()
43 . ":{$globals->banana->password}@{$globals->banana->server}:{$globals->banana->port}/";
45 Banana
::$msgshow_mimeparts[] = 'source';
47 Banana
::$debug_nntp = ($globals->debug
& DEBUG_BT
);
48 Banana
::$debug_smarty = ($globals->debug
& DEBUG_SMARTY
);
49 if (!S
::v('core_rss_hash')) {
50 Banana
::$feed_active = false
;
52 parent
::__construct($params, 'NNTP', 'PlatalBananaPage');
53 if (@$params['action'] == 'profile') {
54 Banana
::$action = 'profile';
60 global $platal, $globals;
62 // Update last unread time
64 if (!is_null($this->params
) && isset($this->params
['updateall'])) {
65 $time = intval($this->params
['updateall']);
66 $_SESSION['banana_last'] = $time;
69 // Get user profile from SQL
70 $req = XDB
::query("SELECT nom, mail, sig,
71 FIND_IN_SET('threads',flags), FIND_IN_SET('automaj',flags),
72 tree_unread, tree_read
73 FROM {$globals->banana->table_prefix}profils
74 WHERE uid={?}", S
::i('uid'));
75 if (!(list($nom, $mail, $sig, $disp, $maj, $unread, $read) = $req->fetchOneRow())) {
76 $nom = S
::v('prenom')." ".S
::v('nom');
77 $mail = $this->user
->forlifeEmail();
78 $sig = $nom." (".S
::v('promo').")";
91 FROM {$globals->banana->table_prefix}abos
92 LEFT JOIN {$globals->banana->table_prefix}list ON list.fid=abos.fid
93 WHERE uid={?}", S
::i('uid'));
94 Banana
::$profile['headers']['From'] = "$nom <$mail>";
95 Banana
::$profile['headers']['Organization'] = make_Organization();
96 Banana
::$profile['signature'] = $sig;
97 Banana
::$profile['display'] = $disp;
98 Banana
::$profile['autoup'] = $maj;
99 Banana
::$profile['lastnews'] = S
::v('banana_last');
100 Banana
::$profile['subscribe'] = $req->fetchColumn();
101 Banana
::$tree_unread = $unread;
102 Banana
::$tree_read = $read;
104 // Update the "unread limit"
105 if (!is_null($time)) {
106 XDB
::execute("UPDATE auth_user_quick
107 SET banana_last = FROM_UNIXTIME({?})
112 if (!empty($GLOBALS['IS_XNET_SITE'])) {
113 Banana
::$page->killPage('forums');
114 Banana
::$page->killPage('subscribe');
115 Banana
::$spool_boxlist = false
;
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'));
124 Banana
::$page->registerPage('profile', 'Préférences', null
);
128 if (Banana
::$action == 'profile') {
129 Banana
::$page->run();
130 return $this->action_updateProfile();
132 return parent
::run();
136 public function post($dest, $reply, $subject, $body)
139 $res = XDB
::query('SELECT nom, prenom, promo
140 FROM auth_user_md5 AS u
141 WHERE u.user_id = {?}', $this->user
->id());
142 list($nom, $prenom, $promo) = $res->fetchOneRow();
143 Banana
::$profile['headers']['From'] = "$prenom $nom ($promo) <{$this->user->bestEmail()}>";
144 Banana
::$profile['headers']['Organization'] = make_Organization();
145 return parent
::post($dest, $reply, $subject, $body);
148 protected function action_saveSubs($groups)
153 Banana
::$profile['subscribe'] = array();
154 XDB
::execute("DELETE FROM {$globals->banana->table_prefix}abos WHERE uid={?}", $uid);
155 if (!count($groups)) {
159 $req = XDB
::iterRow("SELECT fid,nom FROM {$globals->banana->table_prefix}list");
161 while (list($fid,$fnom) = $req->next()) {
165 $diff = array_diff($groups, array_keys($fids));
166 foreach ($diff as $g) {
167 XDB
::execute("INSERT INTO {$globals->banana->table_prefix}list (nom) VALUES ({?})", $g);
168 $fids[$g] = XDB
::insertId();
171 foreach ($groups as $g) {
172 XDB
::execute("INSERT INTO {$globals->banana->table_prefix}abos (fid,uid) VALUES ({?},{?})",
174 Banana
::$profile['subscribe'][] = $g;
178 protected function action_updateProfile()
181 $page = Platal
::page();
183 $colors = glob(dirname(__FILE__
) . '/../../htdocs/images/banana/m2*.gif');
184 foreach ($colors as $key=>$path) {
185 $path = basename($path, '.gif');
186 $colors[$key] = substr($path, 2);
188 $page->assign('colors', $colors);
190 if (Post
::has('action') && Post
::v('action') == 'Enregistrer') {
191 S
::assert_xsrf_token();
192 $flags = new FlagSet();
193 if (Post
::b('bananadisplay')) {
194 $flags->addFlag('threads');
196 if (Post
::b('bananaupdate')) {
197 $flags->addFlag('automaj');
199 if (Post
::b('bananaxface')) {
200 $flags->addFlag('xface');
202 $unread = Post
::s('unread');
203 $read = Post
::s('read');
204 if (!in_array($unread, $colors) ||
!in_array($read, $colors)) {
205 $page->trigError('Le choix de type pour l\'arborescence est invalide');
206 } elseif (XDB
::execute("REPLACE INTO #forums#.profils (uid, sig, mail, nom, flags, tree_unread, tree_read)
207 VALUES ({?}, {?}, {?}, {?}, {?}, {?}, {?})",
208 S
::v('uid'), Post
::v('bananasig'),
209 Post
::v('bananamail'), Post
::v('banananame'),
210 $flags, $unread, $read)) {
211 $page->trigSuccess("Ton profil a été enregistré avec succès.");
213 $page->trigError("Une erreur s'est produite lors de l'enregistrement de ton profil");
218 SELECT nom, mail, sig,
219 FIND_IN_SET('threads', flags),
220 FIND_IN_SET('automaj', flags),
221 FIND_IN_SET('xface', flags),
224 FROM #forums#.profils
225 WHERE uid = {?}", S
::v('uid'));
226 if (!(list($nom, $mail, $sig, $disp, $maj, $xface, $unread, $read) = $req->fetchOneRow())) {
227 $nom = S
::v('prenom').' '.S
::v('nom');
228 $mail = S
::user()->forlifeEmail();
229 $sig = $nom.' ('.S
::v('promo').')';
236 $page->assign('nom' , $nom);
237 $page->assign('mail', $mail);
238 $page->assign('sig', $sig);
239 $page->assign('disp', $disp);
240 $page->assign('maj', $maj);
241 $page->assign('xface', $xface);
242 $page->assign('unread', $unread);
243 $page->assign('read', $read);
248 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: