modules/xnetgrp.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 function get_infos($email)
  23 {
  24     global $globals;
  25     // look for uid instead of email if numeric
  26     $field = is_numeric($email) ? 'uid' : 'email';
  27
  28     if ($field == 'email') {
  29         $email = strtolower($email);
  30         if (strpos($email, '@') === false) {
  31             $email .= '@m4x.org';
  32         }
  33         list($mbox,$dom) = explode('@', $email);
  34     }
  35
  36     $res = XDB::query(
  37             "SELECT  uid, nom, prenom, email, email AS email2, perms='admin', origine
  38                FROM  groupex.membres
  39               WHERE  $field = {?} AND asso_id = {?}", $email, $globals->asso('id'));
  40
  41     if ($res->numRows()) {
  42         return $res->fetchOneAssoc();
  43     } elseif ($dom == 'polytechnique.org' || $dom == 'm4x.org') {
  44         $res = XDB::query(
  45                 "SELECT  user_id AS uid, u.promo,
  46                          IF(u.nom_usage<>'', u.nom_usage, u.nom) AS nom,
  47                          u.prenom, b.alias,
  48                          CONCAT(b.alias, '@m4x.org') AS email,
  49                          CONCAT(b.alias, '@polytechnique.org') AS email2,
  50                          m.perms='admin' AS perms, m.origine
  51                    FROM  auth_user_md5   AS u
  52              INNER JOIN  aliases         AS a ON ( u.user_id = a.id AND a.type != 'homonyme' )
  53              INNER JOIN  aliases         AS b ON ( u.user_id = b.id AND b.type = 'a_vie' )
  54              INNER JOIN  groupex.membres AS m ON ( m.uid = u.user_id AND asso_id={?})
  55                   WHERE  a.alias = {?} AND u.user_id < 50000", $globals->asso('id'), $mbox);
  56         return $res->fetchOneAssoc();
  57     }
  58
  59     return null;
  60 }
  61
  62
  63 class XnetGrpModule extends PLModule
  64 {
  65     function handlers()
  66     {
  67         return array(
  68             '%grp'                => $this->make_hook('index',     AUTH_PUBLIC),
  69             '%grp/asso.php'       => $this->make_hook('index',     AUTH_PUBLIC),
  70             '%grp/logo'           => $this->make_hook('logo',      AUTH_PUBLIC),
  71             '%grp/edit'           => $this->make_hook('edit',      AUTH_MDP),
  72             '%grp/mail'           => $this->make_hook('mail',      AUTH_MDP),
  73             '%grp/annuaire'       => $this->make_hook('annuaire',  AUTH_MDP),
  74             '%grp/annuaire/vcard' => $this->make_hook('vcard',     AUTH_MDP),
  75             '%grp/subscribe'      => $this->make_hook('subscribe', AUTH_MDP),
  76             '%grp/paiement'       => $this->make_hook('paiement',  AUTH_MDP),
  77
  78             '%grp/admin/annuaire'
  79                  => $this->make_hook('admin_annuaire', AUTH_MDP),
  80
  81             '%grp/member'
  82                  => $this->make_hook('admin_member', AUTH_MDP),
  83             '%grp/member/new'
  84                  => $this->make_hook('admin_member_new', AUTH_MDP),
  85             '%grp/member/del'
  86                  => $this->make_hook('admin_member_del', AUTH_MDP),
  87         );
  88     }
  89
  90     function handler_index(&$page, $arg = null)
  91     {
  92         global $globals;
  93
  94         if (!is_null($arg)) {
  95             return PL_NOT_FOUND;
  96         }
  97
  98         $page->changeTpl('xnet/groupe/asso.tpl');
  99         $page->useMenu();
 100         $page->setType($globals->asso('cat'));
 101         $page->assign('is_member', is_member());
 102         $page->assign('logged', S::logged());
 103
 104         $page->assign('asso', $globals->asso());
 105     }
 106
 107     function handler_logo(&$page)
 108     {
 109         global $globals;
 110
 111         $res = XDB::query("SELECT logo, logo_mime
 112                                        FROM groupex.asso WHERE id = {?}",
 113                                     $globals->asso('id'));
 114         list($logo, $logo_mime) = $res->fetchOneRow();
 115
 116         if (!empty($logo)) {
 117             header("Content-type: $mime");
 118             header('Expires: Mon, 26 Jul 1997 05:00:00 GMT');
 119             header('Last-Modified:' . gmdate('D, d M Y H:i:s') . ' GMT');
 120             header('Cache-Control: no-cache, must-revalidate');
 121             header('Pragma: no-cache');
 122             echo $logo;
 123         } else {
 124             header('Content-type: image/jpeg');
 125             header('Expires: Mon, 26 Jul 1997 05:00:00 GMT');
 126             header('Last-Modified:' . gmdate('D, d M Y H:i:s') . ' GMT');
 127             header('Cache-Control: no-cache, must-revalidate');
 128             header('Pragma: no-cache');
 129             readfile(dirname(__FILE__).'/../htdocs/images/dflt_carre.jpg');
 130         }
 131
 132         exit;
 133     }
 134
 135     function handler_edit(&$page)
 136     {
 137         global $globals;
 138
 139         new_groupadmin_page('xnet/groupe/edit.tpl');
 140
 141         if (Post::has('submit')) {
 142             if (S::has_perms()) {
 143                 if (Post::v('mail_domain') && (strstr(Post::v('mail_domain'), '.') === false)) {
 144                     $page->trig("le domaine doit être un FQDN (aucune modif effectuée) !!!");
 145                     return;
 146                 }
 147                 XDB::execute(
 148                     "UPDATE  groupex.asso
 149                         SET  nom={?}, diminutif={?}, cat={?}, dom={?},
 150                              descr={?}, site={?}, mail={?}, resp={?},
 151                              forum={?}, mail_domain={?}, ax={?}, pub={?},
 152                              sub_url={?}, inscriptible={?}
 153                       WHERE  id={?}",
 154                       Post::v('nom'), Post::v('diminutif'),
 155                       Post::v('cat'), Post::i('dom'),
 156                       Post::v('descr'), Post::v('site'),
 157                       Post::v('mail'), Post::v('resp'),
 158                       Post::v('forum'), Post::v('mail_domain'),
 159                       Post::has('ax'), Post::has('pub')?'private':'public',
 160                       Post::v('sub_url'), Post::v('inscriptible'),
 161                       $globals->asso('id'));
 162                 if (Post::v('mail_domain')) {
 163                     XDB::execute('INSERT INTO virtual_domains (domain) VALUES({?})',
 164                                            Post::v('mail_domain'));
 165                 }
 166             } else {
 167                 XDB::execute(
 168                     "UPDATE  groupex.asso
 169                         SET  descr={?}, site={?}, mail={?}, resp={?},
 170                              forum={?}, ax={?}, pub= {?}, sub_url={?}
 171                       WHERE  id={?}",
 172                       Post::v('descr'), Post::v('site'),
 173                       Post::v('mail'), Post::v('resp'),
 174                       Post::v('forum'), Post::has('ax'),
 175                       Post::has('pub')?'private':'public',
 176                       Post::v('sub_url'), $globals->asso('id'));
 177             }
 178
 179             if ($_FILES['logo']['name']) {
 180                 $logo = file_get_contents($_FILES['logo']['tmp_name']);
 181                 $mime = $_FILES['logo']['type'];
 182                 XDB::execute('UPDATE groupex.asso
 183                                            SET logo={?}, logo_mime={?}
 184                                          WHERE id={?}', $logo, $mime,
 185                                         $globals->asso('id'));
 186             }
 187
 188             pl_redirect('../'.Post::v('diminutif', $globals->asso('diminutif')).'/edit');
 189         }
 190
 191         if (S::has_perms()) {
 192             $dom = XDB::iterator('SELECT * FROM groupex.dom ORDER BY nom');
 193             $page->assign('dom', $dom);
 194             $page->assign('super', true);
 195         }
 196     }
 197
 198     function handler_mail(&$page)
 199     {
 200         global $globals;
 201
 202         require_once 'lists.inc.php';
 203
 204         new_groupadmin_page('xnet/groupe/mail.tpl');
 205         $client =& lists_xmlrpc(S::v('uid'),
 206                                 S::v('password'),
 207                                 $globals->asso('mail_domain'));
 208         $page->assign('listes', $client->get_lists());
 209
 210         if (Post::has('send')) {
 211             $from  = Post::v('from');
 212             $sujet = Post::v('sujet');
 213             $body  = Post::v('body');
 214
 215             $mls = array_keys(Env::v('ml', array()));
 216
 217             require_once 'xnet/mail.inc.php';
 218             $tos = get_all_redirects(Post::has('membres'), $mls, $client);
 219             send_xnet_mails($from, $sujet, $body, $tos, Post::v('replyto'));
 220             $page->kill("Mail envoyé !");
 221             $page->assign('sent', true);
 222         }
 223     }
 224
 225     function handler_annuaire(&$page)
 226     {
 227         global $globals;
 228
 229         define('NB_PER_PAGE', 25);
 230
 231         if ($globals->asso('pub') == 'public') {
 232             new_group_page('xnet/groupe/annuaire.tpl');
 233         } else {
 234             new_groupadmin_page('xnet/groupe/annuaire.tpl');
 235         }
 236
 237         $page->assign('admin', may_update());
 238
 239         $sort = Env::v('order');
 240         switch (Env::v('order')) {
 241             case 'promo'    : $group = 'promo';    $tri = 'promo_o DESC, nom, prenom'; break;
 242             case 'promo_inv': $group = 'promo';    $tri = 'promo_o, nom, prenom'; break;
 243             case 'alpha_inv': $group = 'initiale'; $tri = 'nom DESC, prenom DESC, promo'; break;
 244             default         : $group = 'initiale'; $tri = 'nom, prenom, promo'; $sort = 'alpha';
 245         }
 246         $page->assign('sort', $sort);
 247
 248         if ($group == 'initiale')
 249             $res = XDB::iterRow(
 250                         'SELECT  UPPER(SUBSTRING(
 251                                      IF(m.origine="X", IF(u.nom_usage<>"", u.nom_usage, u.nom),m.nom),
 252                                      1, 1)) as letter, COUNT(*)
 253                            FROM  groupex.membres AS m
 254                       LEFT JOIN  auth_user_md5   AS u ON ( u.user_id = m.uid )
 255                           WHERE  asso_id = {?}
 256                        GROUP BY  letter
 257                        ORDER BY  letter', $globals->asso('id'));
 258         else
 259             $res = XDB::iterRow(
 260                         'SELECT  IF(m.origine="X",u.promo,"extérieur") AS promo,
 261                                  COUNT(*), IF(m.origine="X",u.promo,"") AS promo_o
 262                            FROM  groupex.membres AS m
 263                       LEFT JOIN  auth_user_md5   AS u ON ( u.user_id = m.uid )
 264                           WHERE  asso_id = {?}
 265                        GROUP BY  promo
 266                        ORDER BY  promo_o DESC', $globals->asso('id'));
 267
 268         $alphabet = array();
 269         $nb_tot = 0;
 270         while (list($char, $nb) = $res->next()) {
 271             $alphabet[] = $char;
 272             $nb_tot += $nb;
 273             if (Env::has($group) && $char == strtoupper(Env::v($group))) {
 274                 $tot = $nb;
 275             }
 276         }
 277         $page->assign('group', $group);
 278         $page->assign('request_group', Env::v($group));
 279         $page->assign('alphabet', $alphabet);
 280         $page->assign('nb_tot',   $nb_tot);
 281
 282         $ofs   = Env::i('offset');
 283         $tot   = Env::v($group) ? $tot : $nb_tot;
 284         $nbp   = intval(($tot-1)/NB_PER_PAGE);
 285         $links = array();
 286         if ($ofs) {
 287             $links['précédent'] = $ofs-1;
 288         }
 289         for ($i = 0; $i <= $nbp; $i++) {
 290             $links[(string)($i+1)] = $i;
 291         }
 292         if ($ofs < $nbp) {
 293             $links['suivant'] = $ofs+1;
 294         }
 295         if (count($links)>1) {
 296             $page->assign('links', $links);
 297         }
 298
 299         $ini = '';
 300         if (Env::has('initiale')) {
 301             $ini = 'AND IF(m.origine="X",
 302                            IF(u.nom_usage<>"", u.nom_usage, u.nom),
 303                            m.nom) LIKE "'.addslashes(Env::v('initiale')).'%"';
 304         } elseif (Env::has('promo')) {
 305             $ini = 'AND IF(m.origine="X", u.promo, "extérieur") = "'
 306                  .addslashes(Env::v('promo')).'"';
 307         }
 308
 309         $ann = XDB::iterator(
 310                   "SELECT  IF(m.origine='X',IF(u.nom_usage<>'', u.nom_usage, u.nom) ,m.nom) AS nom,
 311                            IF(m.origine='X',u.prenom,m.prenom) AS prenom,
 312                            IF(m.origine='X',u.promo,'extérieur') AS promo,
 313                            IF(m.origine='X',u.promo,'') AS promo_o,
 314                            IF(m.origine='X',a.alias,m.email) AS email,
 315                            IF(m.origine='X',FIND_IN_SET('femme', u.flags), m.sexe) AS femme,
 316                            m.perms='admin' AS admin,
 317                            m.origine='X' AS x,
 318                            m.uid
 319                      FROM  groupex.membres AS m
 320                 LEFT JOIN  auth_user_md5   AS u ON ( u.user_id = m.uid )
 321                 LEFT JOIN  aliases         AS a ON ( a.id = m.uid AND a.type='a_vie' )
 322                     WHERE  m.asso_id = {?} $ini
 323                            AND (m.origine = 'ext' OR u.perms != 'pending')
 324                  ORDER BY  $tri
 325                     LIMIT  {?},{?}", $globals->asso('id'), $ofs*NB_PER_PAGE, NB_PER_PAGE);
 326
 327         $page->assign('ann', $ann);
 328     }
 329
 330     function handler_vcard(&$page)
 331     {
 332         global $globals;
 333
 334         if (($globals->asso('pub') == 'public' && is_member()) || may_update()) {
 335             $res = XDB::query('SELECT uid
 336                                  FROM groupex.membres
 337                                 WHERE asso_id = {?}', $globals->asso('id'));
 338             require_once('vcard.inc.php');
 339             $vcard = new VCard($res->fetchColumn(), 'Membre du groupe ' . $globals->asso('nom'));
 340             $vcard->do_page($page);
 341         } else {
 342             return PL_NOTALLOWED;
 343         }
 344     }
 345
 346     function handler_subscribe(&$page, $u = null)
 347     {
 348         global $globals;
 349
 350         $page->changeTpl('xnet/groupe/inscrire.tpl');
 351
 352         $page->useMenu();
 353         $page->setType($globals->asso('cat'));
 354         $page->assign('asso', $globals->asso());
 355         $page->assign('admin', may_update());
 356
 357         if (!$globals->asso('inscriptible'))
 358                 $page->kill("Il n'est pas possible de s'inscire en ligne à ce "
 359                             ."groupe. Essaie de joindre le contact indiqué "
 360                             ."sur la page de présentation.");
 361
 362         if (!is_null($u) && may_update()) {
 363             $page->assign('u', $u);
 364             $res = XDB::query("SELECT nom, prenom, promo, user_id
 365                                            FROM auth_user_md5 AS u
 366                                      INNER JOIN aliases AS al ON (al.id = u.user_id
 367                                                                   AND al.type != 'liste')
 368                                           WHERE al.alias = {?}", $u);
 369
 370             if (list($nom, $prenom, $promo, $uid) = $res->fetchOneRow()) {
 371                 $res = XDB::query("SELECT  COUNT(*)
 372                                                FROM  groupex.membres AS m
 373                                          INNER JOIN  aliases  AS a ON (m.uid = a.id
 374                                                                        AND a.type != 'homonyme')
 375                                               WHERE  a.alias = {?} AND m.asso_id = {?}",
 376                                             $u, $globals->asso('id'));
 377                 $n   = $res->fetchOneCell();
 378                 if ($n) {
 379                     $page->kill("$prenom $nom est déjà membre du groupe !");
 380                     return;
 381                 }
 382                 elseif (Env::has('accept'))
 383                 {
 384                     XDB::execute("INSERT INTO groupex.membres
 385                                             VALUES ({?}, {?}, 'membre', 'X', NULL, NULL, NULL, NULL, NULL)",
 386                                             $globals->asso('id'), $uid);
 387                     require_once 'diogenes/diogenes.hermes.inc.php';
 388                     $mailer = new HermesMailer();
 389                     $mailer->addTo("$u@polytechnique.org");
 390                     $mailer->setFrom('"'.S::v('prenom').' '.S::v('nom')
 391                                      .'" <'.S::v('forlife').'@polytechnique.org>');
 392                     $mailer->setSubject('['.$globals->asso('nom').'] Demande d\'inscription');
 393                     $message = "Cher Camarade,\n"
 394                              . "\n"
 395                              . "  Suite à ta demande d'adhésion à ".$globals->asso('nom').",\n"
 396                              . "j'ai le plaisir de t'annoncer que ton inscription a été validée !\n"
 397                              . "\n"
 398                              . "Bien cordialement,\n"
 399                              . "{$_SESSION["prenom"]} {$_SESSION["nom"]}.";
 400                     $mailer->setTxtBody($message);
 401                     $mailer->send();
 402                     $page->kill("$prenom $nom a bien été inscrit");
 403                 }
 404                 elseif (Env::has('refuse'))
 405                 {
 406                     require_once 'diogenes/diogenes.hermes.inc.php';
 407                     $mailer = new HermesMailer();
 408                     $mailer->addTo("$u@polytechnique.org");
 409                     $mailer->setFrom('"'.S::v('prenom').' '.S::v('nom')
 410                                      .'" <'.S::v('forlife').'@polytechnique.org>');
 411                     $mailer->setSubject('['.$globals->asso('nom').'] Demande d\'inscription annulée');
 412                     $mailer->setTxtBody(Env::v('motif'));
 413                     $mailer->send();
 414                     $page->kill("la demande $prenom $nom a bien été refusée");
 415                 } else {
 416                     $page->assign('show_form', true);
 417                     $page->assign('prenom', $prenom);
 418                     $page->assign('nom', $nom);
 419                     $page->assign('promo', $promo);
 420                     $page->assign('uid', $uid);
 421                 }
 422                 return;
 423             }
 424             return PL_NOT_FOUND;
 425         }
 426
 427         if (is_member()) {
 428             $page->kill("tu es déjà membre !");
 429             return;
 430         }
 431
 432         if (Post::has('inscrire')) {
 433             $res = XDB::query('SELECT  IF(m.email IS NULL,
 434                                                     CONCAT(al.alias,"@polytechnique.org"),
 435                                                     m.email)
 436                                            FROM  groupex.membres AS m
 437                                      INNER JOIN  aliases         AS al ON (al.type = "a_vie"
 438                                                                            AND al.id = m.uid)
 439                                           WHERE  perms="admin" AND m.asso_id = {?}',
 440                                          $globals->asso('id'));
 441             $emails = $res->fetchColumn();
 442             $to     = implode(',', $emails);
 443
 444             $append = "\n"
 445                     . "-- \n"
 446                     . "Ce message a été envoyé suite à la demande d'inscription de\n"
 447                     . S::v('prenom').' '.S::v('nom').' (X'.S::v('promo').")\n"
 448                     . "Via le site www.polytechnique.net. Tu peux choisir de valider ou\n"
 449                     . "de refuser sa demande d'inscription depuis la page :\n"
 450                     .
 451                     "http://www.polytechnique.net/".$globals->asso("diminutif")."/subscribe/"
 452                         .S::v('forlife')."\n"
 453                     . "\n"
 454                     . "En cas de problème, contacter l'équipe de Polytechnique.org\n"
 455                     . "à l'adresse : support@polytechnique.org\n";
 456
 457             if (!$to) {
 458                 $to = $globals->asso("mail").", support@polytechnique.org";
 459                 $append = "\n-- \nLe groupe ".$globals->asso("nom")
 460                         ." n'a pas d'administrateur, l'équipe de"
 461                         ." Polytechnique.org a été prévenue et va rapidement"
 462                         ." résoudre ce problème.\n";
 463             }
 464
 465             require_once 'diogenes/diogenes.hermes.inc.php';
 466             $mailer = new HermesMailer();
 467             $mailer->addTo($to);
 468             $mailer->setFrom('"'.S::v('prenom').' '.S::v('nom')
 469                              .'" <'.S::v('forlife').'@polytechnique.org>');
 470             $mailer->setSubject('['.$globals->asso('nom').'] Demande d\'inscription');
 471             $mailer->setTxtBody(Post::v('message').$append);
 472             $mailer->send();
 473         }
 474     }
 475
 476     function handler_paiement(&$page)
 477     {
 478         global $globals;
 479
 480         new_group_page('xnet/groupe/telepaiement.tpl');
 481
 482         $res = XDB::query(
 483                 "SELECT id, text
 484                   FROM {$globals->money->mpay_tprefix}paiements
 485                  WHERE asso_id = {?} AND NOT FIND_IN_SET(flags, 'old')
 486               ORDER BY id DESC", $globals->asso('id'));
 487         $tit = $res->fetchAllAssoc();
 488         $page->assign('titres', $tit);
 489
 490         $order = Env::v('order', 'timestamp');
 491         $orders = array('timestamp', 'nom', 'promo', 'montant');
 492         if (!in_array($order, $orders)) {
 493             $order = 'timestamp';
 494         }
 495         $inv_order = Env::v('order_inv', 0);
 496         $page->assign('order', $order);
 497         $page->assign('order_inv', !$inv_order);
 498
 499         if ($order == 'timestamp') {
 500             $inv_order = !$inv_order;
 501         }
 502
 503         if ($inv_order) {
 504             $inv_order = ' DESC';
 505         } else {
 506             $inv_order = '';
 507         }
 508         if ($order == 'montant') {
 509             $order = 'LENGTH(montant) '.$inv_order.', montant';
 510         }
 511
 512         $orderby = 'ORDER BY '.$order.$inv_order;
 513         if ($order != 'nom') {
 514             $orderby .= ', nom'; $inv_order = '';
 515         }
 516         $orderby .= ', prenom'.$inv_order;
 517         if ($order != 'timestamp') {
 518             $orderby .= ', timestamp DESC';
 519         }
 520
 521         if (may_update()) {
 522             $trans = array();
 523             foreach($tit as $foo) {
 524                 $pid = $foo['id'];
 525                 $res = XDB::query(
 526                         "SELECT  IF(u.nom_usage<>'', u.nom_usage, u.nom) AS nom,
 527                                  u.prenom, u.promo, a.alias, timestamp AS `date`, montant
 528                            FROM  {$globals->money->mpay_tprefix}transactions AS t
 529                      INNER JOIN  auth_user_md5  AS u ON ( t.uid = u.user_id )
 530                      INNER JOIN  aliases        AS a ON ( t.uid = a.id AND a.type='a_vie' )
 531                           WHERE  ref = {?} ".$orderby, $pid);
 532                 $trans[$pid] = $res->fetchAllAssoc();
 533                 $sum = 0;
 534                 foreach ($trans[$pid] as $i => $t) {
 535                     $sum += strtr(substr($t['montant'], 0, strpos($t['montant'], 'EUR')), ',', '.');
 536                 }
 537                 $trans[$pid][] = array('nom' => 'somme totale',
 538                                        'montant' => strtr($sum, '.', ',').' EUR');
 539             }
 540             $page->assign('trans', $trans);
 541         }
 542     }
 543
 544     function handler_admin_annuaire(&$page)
 545     {
 546         global $globals;
 547
 548         require_once 'lists.inc.php';
 549         require_once 'xnet/mail.inc.php';
 550
 551         new_groupadmin_page('xnet/groupe/annuaire-admin.tpl');
 552         $client =& lists_xmlrpc(S::v('uid'), S::v('password'),
 553                                 $globals->asso('mail_domain'));
 554         $lists  = $client->get_lists();
 555         if (!$lists) $lists = array();
 556         $listes = array_map(create_function('$arr', 'return $arr["list"];'), $lists);
 557
 558         $subscribers = array();
 559
 560         foreach ($listes as $list) {
 561             list(,$members) = $client->get_members($list);
 562             $mails = array_map(create_function('$arr', 'return $arr[1];'), $members);
 563             $subscribers = array_unique(array_merge($subscribers, $mails));
 564         }
 565
 566         $not_in_group_x = array();
 567         $not_in_group_ext = array();
 568
 569         foreach ($subscribers as $mail) {
 570             $res = XDB::query(
 571                        'SELECT  COUNT(*)
 572                           FROM  groupex.membres AS m
 573                      LEFT JOIN  auth_user_md5   AS u ON (m.uid=u.user_id AND m.uid<50000)
 574                      LEFT JOIN  aliases         AS a ON (a.id=u.user_id and a.type="a_vie")
 575                          WHERE  asso_id = {?} AND
 576                                 (m.email = {?} OR CONCAT(a.alias, "@polytechnique.org") = {?})',
 577                         $globals->asso('id'), $mail, $mail);
 578             if ($res->fetchOneCell() == 0) {
 579                 if (strstr($mail, '@polytechnique.org') === false) {
 580                     $not_in_group_ext[] = $mail;
 581                 } else {
 582                     $not_in_group_x[] = $mail;
 583                 }
 584             }
 585         }
 586
 587         $page->assign('not_in_group_ext', $not_in_group_ext);
 588         $page->assign('not_in_group_x', $not_in_group_x);
 589         $page->assign('lists', $lists);
 590     }
 591
 592     function handler_admin_member_new(&$page, $email = null)
 593     {
 594         global $globals;
 595
 596         new_groupadmin_page('xnet/groupe/membres-add.tpl');
 597
 598         if (is_null($email)) {
 599             return;
 600         }
 601
 602         list(,$fqdn) = explode('@', $email);
 603         $fqdn = strtolower($fqdn);
 604         $x = ($fqdn == 'polytechnique.org' || $fqdn == 'melix.org' ||
 605               $fqdn == 'm4x.org' || $fqdn == 'melix.net');
 606
 607         if ($x) {
 608             require_once 'user.func.inc.php';
 609             if ($forlife = get_user_forlife($email)) {
 610                 XDB::execute(
 611                     'INSERT INTO  groupex.membres (uid,asso_id,origine)
 612                           SELECT  user_id,{?},"X"
 613                             FROM  auth_user_md5 AS u
 614                       INNER JOIN  aliases       AS a ON (u.user_id = a.id)
 615                            WHERE  a.alias={?}', $globals->asso('id'), $forlife);
 616                 pl_redirect("member/$email");
 617             } else {
 618                 $page->trig($email." n'est pas un alias polytechnique.org valide");
 619             }
 620         } else {
 621             if (isvalid_email($email)) {
 622                 $res = XDB::query('SELECT MAX(uid)+1 FROM groupex.membres');
 623                 $uid = max(intval($res->fetchOneCell()), 50001);
 624                 XDB::execute('INSERT INTO  groupex.membres (uid,asso_id,origine,email)
 625                                         VALUES({?},{?},"ext",{?})', $uid,
 626                                         $globals->asso('id'), $email);
 627                 pl_redirect("member/$email");
 628             } else {
 629                 $page->trig("« <strong>$email</strong> » n'est pas une adresse mail valide");
 630             }
 631         }
 632     }
 633
 634     function handler_admin_member_del(&$page, $user = null)
 635     {
 636         global $globals;
 637
 638         new_groupadmin_page('xnet/groupe/membres-del.tpl');
 639         $user = get_infos($user);
 640         if (empty($user)) {
 641             return PL_NOT_FOUND;
 642         }
 643         $page->assign('user', $user);
 644
 645         if (!Post::has('confirm')) {
 646             return;
 647         }
 648
 649         XDB::execute(
 650                 "DELETE FROM  groupex.membres WHERE uid={?} AND asso_id={?}",
 651                 $user['uid'], $globals->asso('id'));
 652
 653         // don't unsubscribe email from list if other user use same email
 654         $user_same_email = get_infos($user['email']);
 655
 656         if (($domain = $globals->asso('mail_domain')) && empty($user_same_email)) {
 657
 658             require 'lists.inc.php';
 659             $client =& lists_xmlrpc(S::v('uid'), S::v('password'), $domain);
 660             $listes = $client->get_lists($user['email2']);
 661
 662             foreach ($listes as $liste) {
 663                 if ($liste['sub'] == 2) {
 664                     $client->mass_unsubscribe($liste['list'], Array($user['email2']));
 665                     $page->trig("{$user['prenom']} {$user['nom']} a été"
 666                                 ." désinscrit de {$liste['list']}");
 667                 } elseif ($liste['sub']) {
 668                     $page->trig("{$user['prenom']} {$user['nom']} a une"
 669                                 ." demande d'inscription en cours sur la"
 670                                 ." liste {$liste['list']}@ !");
 671                 }
 672             }
 673
 674             XDB::execute(
 675                     "DELETE FROM  virtual_redirect
 676                            USING  virtual_redirect
 677                       INNER JOIN  virtual USING(vid)
 678                            WHERE  redirect={?} AND alias LIKE {?}", $user['email'], '%@'.$domain);
 679             if (mysql_affected_rows()) {
 680                 $page->trig("{$user['prenom']} {$user['nom']} a été désabonné des alias du groupe !");
 681             }
 682         }
 683
 684         $page->trig("{$user['prenom']} {$user['nom']} a été retiré du groupe !");
 685     }
 686
 687     function handler_admin_member(&$page, $user)
 688     {
 689         global $globals;
 690
 691         new_groupadmin_page('xnet/groupe/membres-edit.tpl');
 692
 693         $user = get_infos($user);
 694         if (empty($user)) {
 695             return PL_NOT_FOUND;
 696         }
 697
 698         require 'lists.inc.php';
 699         $client =& lists_xmlrpc(S::v('uid'), S::v('password'),
 700                                 $globals->asso('mail_domain'));
 701
 702         if (Post::has('change')) {
 703             if ($user['origine'] != 'X') {
 704                 XDB::query('UPDATE groupex.membres
 705                                SET prenom={?}, nom={?}, email={?}, sexe={?}
 706                              WHERE uid={?} AND asso_id={?}',
 707                            Post::v('prenom'), Post::v('nom'),
 708                            Post::v('email'), Post::v('sexe'),
 709                            $user['uid'], $globals->asso('id'));
 710                 $user['nom']    = Post::v('nom');
 711                 $user['prenom'] = Post::v('prenom');
 712                 $user['sexe']   = Post::v('sexe');
 713                 $user['email']  = Post::v('email');
 714                 $user['email2'] = Post::v('email');
 715             }
 716
 717             $perms = Post::i('is_admin');
 718             if ($user['perms'] != $perms) {
 719                 XDB::query('UPDATE groupex.membres SET perms={?}
 720                              WHERE uid={?} AND asso_id={?}',
 721                             $perms ? 'admin' : 'membre',
 722                             $user['uid'], $globals->asso('id'));
 723                 $user['perms'] = $perms;
 724                 $page->trig('permissions modifiées');
 725             }
 726
 727             foreach (Env::v('ml1', array()) as $ml => $state) {
 728                 $ask = empty($_REQUEST['ml2'][$ml]) ? 0 : 2;
 729                 if ($ask == $state) continue;
 730                 if ($state == '1') {
 731                     $page->trig("{$user['prenom']} {$user['nom']} a "
 732                                ."actuellement une demande d'inscription en "
 733                                ."cours sur <strong>$ml@</strong> !!!");
 734                 } elseif ($ask) {
 735                     $client->mass_subscribe($ml, Array($user['email2']));
 736                     $page->trig("{$user['prenom']} {$user['nom']} a été abonné à $ml@");
 737                 } else {
 738                     $client->mass_unsubscribe($ml, Array($user['email2']));
 739                     $page->trig("{$user['prenom']} {$user['nom']} a été désabonné de $ml@");
 740                 }
 741             }
 742
 743             foreach (Env::v('ml3', array()) as $ml => $state) {
 744                 $ask = !empty($_REQUEST['ml4'][$ml]);
 745                 if($state == $ask) continue;
 746                 if($ask) {
 747                     XDB::query("INSERT INTO  virtual_redirect (vid,redirect)
 748                                                SELECT  vid,{?} FROM virtual WHERE alias={?}",
 749                                          $user['email'], $ml);
 750                     $page->trig("{$user['prenom']} {$user['nom']} a été abonné à $ml");
 751                 } else {
 752                     XDB::query("DELETE FROM  virtual_redirect
 753                                                 USING  virtual_redirect
 754                                            INNER JOIN  virtual USING(vid)
 755                                                 WHERE  redirect={?} AND alias={?}",
 756                                          $user['email'], $ml);
 757                     $page->trig("{$user['prenom']} {$user['nom']} a été désabonné de $ml");
 758                 }
 759             }
 760         }
 761
 762         $page->assign('user', $user);
 763         $listes = $client->get_lists($user['email2']);
 764         $page->assign('listes', $listes);
 765
 766         $res = XDB::query(
 767                 'SELECT  alias, redirect IS NOT NULL as sub
 768                    FROM  virtual          AS v
 769               LEFT JOIN  virtual_redirect AS vr ON(v.vid=vr.vid AND redirect={?})
 770                   WHERE  alias LIKE {?} AND type="user"',
 771                 $user['email'], '%@'.$globals->asso('mail_domain'));
 772         $page->assign('alias', $res->fetchAllAssoc());
 773     }
 774 }
 775
 776 ?>