remove the too complicated thing for menu, use a good old template
[platal.git] / hooks / banana.inc.php
CommitLineData
0337d704 1<?php
2/***************************************************************************
50a40a33 3 * Copyright (C) 2003-2006 Polytechnique.org *
0337d704 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// {{{ config HOOK
23
24// {{{ class SkinConfig
25
26class BananaConfig
27{
28 var $server = 'localhost';
29 var $port = 119;
30 var $password = '***';
31 var $web_user = '***';
32 var $web_pass = '***';
33
34 var $table_prefix = 'banana_';
35}
36
37// }}}
38
39function banana_config()
40{
41 global $globals;
42 $globals->banana = new BananaConfig;
43}
44
45// }}}
0337d704 46// {{{ subscribe HOOK
47
48function banana_subscribe($forlife, $uid, $promo, $password)
49{
0337d704 50 $cible = array('xorg.general','xorg.pa.emploi','xorg.pa.divers','xorg.pa.logements');
51 $p_for = "xorg.promo.x$promo";
a3a049fc 52
0337d704 53 // récupération de l'id du forum promo
08cce2ff 54 $res = XDB::query("SELECT fid FROM forums.list WHERE nom={?}", $p_for);
0337d704 55 if ($res->numRows()) {
56 $cible[] = $p_for;
57 } else { // pas de forum promo, il faut le créer
08cce2ff 58 $res = XDB::query("SELECT SUM(perms IN ('admin','user') AND deces=0),COUNT(*)
0337d704 59 FROM auth_user_md5 WHERE promo={?}", $promo);
60 list($effau, $effid) = $res->fetchOneRow();
61 if (5*$effau>$effid) { // + de 20% d'inscrits
62 require_once("xorg.mailer.inc.php");
fcf2e33e 63 $mymail = new XOrgMailer('mails/forums.promo.tpl');
0337d704 64 $mymail->assign('promo', $promo);
65 $mymail->send();
66 }
67 }
68
69 while (list ($key, $val) = each ($cible)) {
08cce2ff 70 XDB::execute("INSERT INTO forums.abos (fid,uid)
0337d704 71 SELECT fid,{?} FROM forums.list WHERE nom={?}", $uid, $val);
72 }
73}
74
75// }}}
76
77// vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
78?>