include/validations/listes.inc.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 // {{{ class ListeReq
  23
  24 class ListeReq extends Validate
  25 {
  26     // {{{ properties
  27
  28     var $liste;
  29     var $desc;
  30
  31     var $advertise;
  32     var $modlevel;
  33     var $inslevel;
  34
  35     var $owners;
  36     var $members;
  37
  38     var $rules = "Refuser les listes de binets si elles ne sont pas datées (apv20002@ et non apv@).
  39         Refuser également des listes qui pourraient nous servir (admin, postmaster,...)";
  40     // }}}
  41     // {{{ constructor
  42
  43     function ListeReq($_uid, $_liste, $_desc, $_advertise, $_modlevel, $_inslevel, $_owners, $_members, $_stamp=0)
  44     {
  45         global $globals;
  46         $this->Validate($_uid, true, 'liste', $_stamp);
  47
  48         $this->liste     = $_liste;
  49         $this->desc      = $_desc;
  50         $this->advertise = $_advertise;
  51         $this->modlevel  = $_modlevel;
  52         $this->inslevel  = $_inslevel;
  53         $this->owners    = $_owners;
  54         $this->members   = $_members;
  55     }
  56
  57     // }}}
  58     // {{{ function formu()
  59
  60     function formu()
  61     { return 'include/form.valid.listes.tpl'; }
  62
  63     // }}}
  64     // {{{ function _mail_subj
  65
  66     function _mail_subj()
  67     {
  68         return "[Polytechnique.org/LISTES] Demande de la liste {$this->liste}";
  69     }
  70
  71     // }}}
  72     // {{{ function _mail_body
  73
  74     function _mail_body($isok)
  75     {
  76         if ($isok) {
  77             return "  La mailing list {$this->liste} que tu avais demandée vient d'être créée.";
  78         } else {
  79             return "  La demande que tu avais faite pour la mailing list {$this->liste} a été refusée.";
  80         }
  81     }
  82
  83     // }}}
  84     // {{{ function commit()
  85
  86     function commit()
  87     {
  88         global $globals;
  89         require_once('xml-rpc-client.inc.php');
  90         require_once('lists.inc.php');
  91
  92         $client =& lists_xmlrpc(Session::getInt('uid'), Session::get('password'));
  93         $ret = $client->create_list($this->liste, $this->desc,
  94             $this->advertise, $this->modlevel, $this->inslevel,
  95             $this->owners, $this->members);
  96         $liste = strtolower($this->liste);
  97         if ($ret) {
  98             foreach(Array($liste, $liste."-owner", $liste."-admin", $liste."-bounces") as $l) {
  99                 $globals->xdb->execute("INSERT INTO aliases (alias,type) VALUES({?}, 'liste')", $l);
 100             }
 101         }
 102         return $ret;
 103     }
 104
 105     // }}}
 106 }
 107
 108 // }}}
 109
 110 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
 111 ?>