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 | |
0337d704 |
22 | // {{{ subscribe HOOK |
23 | |
24 | function banana_subscribe($forlife, $uid, $promo, $password) |
25 | { |
0337d704 |
26 | $cible = array('xorg.general','xorg.pa.emploi','xorg.pa.divers','xorg.pa.logements'); |
27 | $p_for = "xorg.promo.x$promo"; |
a3a049fc |
28 | |
0337d704 |
29 | // récupération de l'id du forum promo |
08cce2ff |
30 | $res = XDB::query("SELECT fid FROM forums.list WHERE nom={?}", $p_for); |
0337d704 |
31 | if ($res->numRows()) { |
32 | $cible[] = $p_for; |
33 | } else { // pas de forum promo, il faut le créer |
08cce2ff |
34 | $res = XDB::query("SELECT SUM(perms IN ('admin','user') AND deces=0),COUNT(*) |
0337d704 |
35 | FROM auth_user_md5 WHERE promo={?}", $promo); |
36 | list($effau, $effid) = $res->fetchOneRow(); |
37 | if (5*$effau>$effid) { // + de 20% d'inscrits |
38 | require_once("xorg.mailer.inc.php"); |
fcf2e33e |
39 | $mymail = new XOrgMailer('mails/forums.promo.tpl'); |
0337d704 |
40 | $mymail->assign('promo', $promo); |
41 | $mymail->send(); |
42 | } |
43 | } |
44 | |
45 | while (list ($key, $val) = each ($cible)) { |
08cce2ff |
46 | XDB::execute("INSERT INTO forums.abos (fid,uid) |
0337d704 |
47 | SELECT fid,{?} FROM forums.list WHERE nom={?}", $uid, $val); |
48 | } |
49 | } |
50 | |
51 | // }}} |
52 | |
53 | // vim:set et sw=4 sts=4 sws=4 foldmethod=marker: |
54 | ?> |