2 /***************************************************************************
3 * Copyright (C) 2003-2007 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 class BananaModule
extends PLModule
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/rss' => $this->make_hook('rss', AUTH_PUBLIC
),
34 function on_subscribe($forlife, $uid, $promo, $password)
36 $cible = array('xorg.general', 'xorg.pa.divers', 'xorg.pa.logements');
37 $p_for = "xorg.promo.x$promo";
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()) {
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);
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);
60 function handler_banana(&$page, $group = null
, $action = null
, $artid = null
)
62 $page->changeTpl('banana/index.tpl');
63 $page->assign('xorg_title','Polytechnique.org - Forums & PA');
66 if (Post
::has('updateall')) {
67 $get['updateall'] = Post
::v('updateall');
69 require_once 'banana/forum.inc.php';
70 get_banana_params($get, $group, $action, $artid);
71 run_banana($page, 'ForumsBanana', $get);
74 function handler_profile(&$page, $action = null
)
78 $page->changeTpl('banana/profile.tpl');
80 if (!(Post
::has('action') && Post
::has('banananame') && Post
::has('bananasig')
81 && Post
::has('bananadisplay') && Post
::has('bananamail')
82 && Post
::has('bananaupdate') && Post
::v('action')=="OK" ))
85 SELECT nom,mail,sig,if(FIND_IN_SET('threads',flags),'1','0'),
86 IF(FIND_IN_SET('automaj',flags),'1','0')
88 WHERE uid = {?}", S
::v('uid'));
89 if (!(list($nom,$mail,$sig,$disp,$maj) = $req->fetchOneRow())) {
90 $nom = S
::v('prenom').' '.S
::v('nom');
91 $mail = S
::v('forlife').'@'.$globals->mail
->domain
;
92 $sig = $nom.' ('.S
::v('promo').')';
96 $page->assign('nom' , $nom);
97 $page->assign('mail', $mail);
98 $page->assign('sig' , $sig);
99 $page->assign('disp', $disp);
100 $page->assign('maj' , $maj);
103 'REPLACE INTO forums.profils (uid,sig,mail,nom,flags)
104 VALUES ({?},{?},{?},{?},{?})',
105 S
::v('uid'), Post
::v('bananasig'),
106 Post
::v('bananamail'), Post
::v('banananame'),
107 (Post
::b('bananadisplay') ?
'threads,' : '') .
108 (Post
::b('bananaupdate') ?
'automaj' : '')
113 function handler_subscription(&$page)
115 $page->changeTpl('banana/index.tpl');
116 $page->assign('xorg_title','Polytechnique.org - Forums & PA');
118 require_once 'banana/forum.inc.php';
119 run_banana($page, 'ForumsBanana', Array('action' => 'subscribe'));
122 function handler_rss(&$page, $group, $alias, $hash, $file = null
)
124 if (is_null($file)) {
125 if (is_null($hash)) {
128 $this->handler_rss($page, null
, $group, $alias, $hash);
130 require_once('rss.inc.php');
131 $uid = init_rss(null
, $alias, $hash);
135 $res = XDB
::query("SELECT id AS uid, alias AS forlife
137 WHERE type = 'a_vie' AND id = {?}", $uid);
138 $row = $res->fetchOneAssoc();
139 $_SESSION = array_merge($row, $_SESSION);
141 require_once 'banana/forum.inc.php';
142 $banana = new ForumsBanana(S
::v('forlife'), array('group' => $group, 'action' => 'rss2'));
147 static function run_banana(&$page, $params = null
)
149 $page->changeTpl('banana/index.tpl');
150 $page->assign('xorg_title','Polytechnique.org - Forums & PA');
152 require_once 'banana/forum.inc.php';
153 run_banana($page, 'ForumsBanana', $params);
157 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: