htdocs/listes/admin.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2004 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 if (!$page) {
  23     require_once("xorg.inc.php");
  24     if (!Env::has('liste')) header('Location: index.php');
  25     $liste  = strtolower(Env::get('liste'));
  26     $domain = $globals->mail->domain;
  27
  28     new_skinned_page('listes/admin.tpl', AUTH_MDP);
  29     require_once('lists.inc.php');
  30
  31     $client =& lists_xmlrpc(Session::getInt('uid'), Session::get('password'));
  32 }
  33
  34 if (Env::has('add_member')) {
  35
  36     require_once('user.func.inc.php');
  37     $members = explode(' ', Env::get('add_member'));
  38     if ($members) foreach ($members as $i => $alias) {
  39         if (($login = get_user_forlife($alias)) !== false) {;
  40                 $members[$i] = $login;
  41         }
  42     }
  43
  44     $arr = $client->mass_subscribe($liste, $members);
  45     if (is_array($arr)) {
  46         foreach($arr as $addr) {
  47             $page->trig("{$addr[0]} inscrit.");
  48         }
  49     }
  50 }
  51
  52 if (Env::has('del_member')) {
  53     $client->mass_unsubscribe($liste, Array(Env::get('del_member').'@'.$globals->mail->domain));
  54     header("Location: {$_SERVER['PHP_SELF']}?liste=$liste");
  55 }
  56
  57 if (Env::has('add_owner')) {
  58     require_once('user.func.inc.php');
  59
  60     $owners = explode(' ', Env::get('add_owner'));
  61
  62     if ($owners) foreach ($owners as $alias) {
  63         if (($login = get_user_forlife($alias)) === false) {;
  64                 $login = $alias;
  65         }
  66
  67         if($client->add_owner($liste, $login)) {
  68                 $page->trig($alias." ajouté aux modérateurs.");
  69         }
  70     }
  71 }
  72
  73 if (Env::has('del_owner')) {
  74     $client->del_owner($liste, Env::get('del_owner').'@'.$globals->mail->domain);
  75     header("Location: {$_SERVER['PHP_SELF']}?liste=$liste");
  76 }
  77
  78 if(list($det,$mem,$own) = $client->get_members($liste)) {
  79
  80     $membres = list_sort_members($mem, $tri_promo);
  81     $moderos = list_sort_owners($own, $tri_promo);
  82
  83     $page->assign_by_ref('details', $det);
  84     $page->assign_by_ref('members', $membres);
  85     $page->assign_by_ref('owners',  $moderos);
  86     $page->assign('np_m', count($mem));
  87
  88 } else {
  89     $page->kill("La liste n'existe pas ou tu n'as pas le droit de l'administrer");
  90 }
  91
  92 $page->run();
  93 ?>