Table editor fills the new entry form with the default values of the fields
[platal.git] / modules / banana.php
CommitLineData
f585e5a4 1<?php
2/***************************************************************************
3 * Copyright (C) 2003-2006 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
22class BananaModule extends PLModule
23{
24 function handlers()
25 {
26 return array(
3d9b1d30 27 'banana' => $this->make_hook('banana', AUTH_COOKIE),
28 'banana/profile' => $this->make_hook('profile', AUTH_MDP),
a3a1d23b 29 'banana/subscription' => $this->make_hook('subscription', AUTH_COOKIE),
f107d806 30 'banana/xface' => $this->make_hook('xface', AUTH_COOKIE),
a3a1d23b 31 );
f585e5a4 32 }
33
8d8f7607 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 require_once("xorg.mailer.inc.php");
49 $mymail = new XOrgMailer('mails/forums.promo.tpl');
50 $mymail->assign('promo', $promo);
51 $mymail->send();
52 }
53 }
54
55 while (list ($key, $val) = each ($cible)) {
56 XDB::execute("INSERT INTO forums.abos (fid,uid)
57 SELECT fid,{?} FROM forums.list WHERE nom={?}", $uid, $val);
58 }
59 }
60
3d9b1d30 61 function handler_banana(&$page, $group = null, $action = null, $artid = null)
f585e5a4 62 {
a3a1d23b 63 $get = Array();
64 if (!is_null($group)) {
65 $get['group'] = $group;
66 }
7e6495d4 67 if (Post::has('updateall')) {
85b9d118 68 $get['updateall'] = Post::v('updateall');
7e6495d4 69 }
a3a1d23b 70 if (!is_null($action)) {
71 if ($action == 'new') {
72 $get['action'] = 'new';
aafe5c09 73 } elseif ($action == 'reply' && !is_null($artid)) {
74 $get['action'] = 'new';
75 $get['artid'] = $artid;
76 } elseif ($action == 'cancel' && !is_null($artid)) {
a3a1d23b 77 $get['action'] = $action;
78 $get['artid'] = $artid;
79 } elseif ($action == 'from' && !is_null($artid)) {
80 $get['first'] = $artid;
81 } elseif ($action == 'read' && !is_null($artid)) {
82 $get['artid'] = $artid;
83 }
84 }
85 return BananaModule::run_banana($page, $get);
f585e5a4 86 }
87
3d9b1d30 88 function handler_profile(&$page, $action = null)
f585e5a4 89 {
90 global $globals;
91
92 $page->changeTpl('banana/profile.tpl');
93
94 if (!(Post::has('action') && Post::has('banananame') && Post::has('bananasig')
95 && Post::has('bananadisplay') && Post::has('bananamail')
5e2307dc 96 && Post::has('bananaupdate') && Post::v('action')=="OK" ))
f585e5a4 97 {
08cce2ff 98 $req = XDB::query("
f585e5a4 99 SELECT nom,mail,sig,if(FIND_IN_SET('threads',flags),'1','0'),
100 IF(FIND_IN_SET('automaj',flags),'1','0')
101 FROM forums.profils
cab08090 102 WHERE uid = {?}", S::v('uid'));
f585e5a4 103 if (!(list($nom,$mail,$sig,$disp,$maj) = $req->fetchOneRow())) {
cab08090 104 $nom = S::v('prenom').' '.S::v('nom');
105 $mail = S::v('forlife').'@'.$globals->mail->domain;
106 $sig = $nom.' ('.S::v('promo').')';
f585e5a4 107 $disp = 0;
108 $maj = 0;
109 }
110 $page->assign('nom' , $nom);
111 $page->assign('mail', $mail);
112 $page->assign('sig' , $sig);
113 $page->assign('disp', $disp);
114 $page->assign('maj' , $maj);
115 } else {
08cce2ff 116 XDB::execute(
f585e5a4 117 'REPLACE INTO forums.profils (uid,sig,mail,nom,flags)
118 VALUES ({?},{?},{?},{?},{?})',
5e2307dc 119 S::v('uid'), Post::v('bananasig'),
120 Post::v('bananamail'), Post::v('banananame'),
121 (Post::b('bananadisplay') ? 'threads,' : '') .
122 (Post::b('bananaupdate') ? 'automaj' : '')
f585e5a4 123 );
124 }
f585e5a4 125 }
3d9b1d30 126
a3a1d23b 127 function handler_subscription(&$page)
128 {
129 return $this->run_banana($page, Array('subscribe' => 1));
130 }
3d9b1d30 131
7e6495d4 132 function handler_xface(&$page, $face = null)
f107d806 133 {
a011eab2 134 header('Content-Type: image/gif');
7e6495d4 135 passthru('echo ' . escapeshellarg(base64_decode(strtr($face, '.:', '+/')))
f107d806 136 . '| uncompface -X '
7e6495d4 137 . '| convert -transparent white xbm:- gif:-');
f107d806 138 }
139
a3a1d23b 140 function run_banana(&$page, $params = null)
141 {
3d9b1d30 142 $page->changeTpl('banana/index.tpl');
c99ef281 143 $page->addCssLink('banana.css');
3d9b1d30 144 $page->assign('xorg_title','Polytechnique.org - Forums & PA');
145
57e834ac 146 require_once dirname(__FILE__).'/banana/banana.inc.php';
3d9b1d30 147
148 $res = PlatalBanana::run($params);
149 $page->assign_by_ref('banana', $banana);
150 $page->assign('banana_res', $res);
a3a1d23b 151 }
f585e5a4 152}
153
154?>