root/alternc-sympa/trunk/bureau/admin/lst_del.php

<?php
/*
 $Id$
 ----------------------------------------------------------------------
 AlternC - Web Hosting System
 Copyright (C) 2002 by the AlternC Development Team.
 http://alternc.org/
 ----------------------------------------------------------------------
 Based on:
 Valentin Lacambre's web hosting softwares: http://altern.org/
 ----------------------------------------------------------------------
 LICENSE

 This program is free software; you can redistribute it and/or
 modify it under the terms of the GNU General Public License (GPL)
 as published by the Free Software Foundation; either version 2
 of the License, or (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 To read the license please visit http://www.gnu.org/copyleft/gpl.html
 ----------------------------------------------------------------------
 Original Author of file: Benjamin Sonntag
 Purpose of file: Delete mailing-lists
 ----------------------------------------------------------------------
*/
require_once("../class/config.php");

$stchange=(!$quota->cancreate("sympa"));

$error="";
// On parcours les POST_VARS et on repere les del_.
reset($_POST);
while (list($key,$val)=each($_POST)) {
    if (substr($key,0,4)=="del_") {
        // Effacement de la ml $val
        $r=$sympa->delete_lst($val);
        if (!$r) {
            $error.=$err->errstr()."<br>";
        } else {
            $error.=sprintf(_("The list %s has been successfully deleted"),$r)."<br>";
        }
    }
}
include("lst_list.php");
exit();
?>