hooks/banana.inc.php

   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
  22 // {{{ config HOOK
  23
  24 // {{{ class SkinConfig
  25
  26 class 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
  39 function banana_config()
  40 {
  41     global $globals;
  42     $globals->banana = new BananaConfig;
  43 }
  44
  45 // }}}
  46 // {{{ menu HOOK
  47
  48 function banana_menu()
  49 {
  50     global $globals;
  51     $globals->menu->addPrivateEntry(XOM_SERVICES, 10, 'Forums & PA', 'banana/');
  52 }
  53
  54 // }}}
  55 // {{{ subscribe HOOK
  56
  57 function banana_subscribe($forlife, $uid, $promo, $password)
  58 {
  59     global $globals;
  60
  61     $cible = array('xorg.general','xorg.pa.emploi','xorg.pa.divers','xorg.pa.logements');
  62     $p_for = "xorg.promo.x$promo";
  63
  64     // récupération de l'id du forum promo
  65     $res = $globals->xdb->query("SELECT fid FROM forums.list WHERE nom={?}", $p_for);
  66     if ($res->numRows()) {
  67         $cible[] = $p_for;
  68     } else { // pas de forum promo, il faut le créer
  69         $res = $globals->xdb->query("SELECT  SUM(perms IN ('admin','user') AND deces=0),COUNT(*)
  70                                        FROM  auth_user_md5 WHERE promo={?}", $promo);
  71         list($effau, $effid) = $res->fetchOneRow();
  72         if (5*$effau>$effid) { // + de 20% d'inscrits
  73             require_once("xorg.mailer.inc.php");
  74             $mymail = new XOrgMailer('forums.promo.tpl');
  75             $mymail->assign('promo', $promo);
  76             $mymail->send();
  77         }
  78     }
  79
  80     while (list ($key, $val) = each ($cible)) {
  81         $globals->xdb->execute("INSERT INTO  forums.abos (fid,uid)
  82                                      SELECT  fid,{?} FROM forums.list WHERE nom={?}", $uid, $val);
  83     }
  84 }
  85
  86 // }}}
  87
  88 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
  89 ?>