root/alternc-sympa/trunk/bureau/admin/lst_delsub.php
| Revision 1432, 1.9 kB (checked in by benjamin, 6 years ago) | |
|---|---|
| |
| Line | |
|---|---|
| 1 | <?php |
| 2 | /* |
| 3 | $Id$ |
| 4 | ---------------------------------------------------------------------- |
| 5 | AlternC - Web Hosting System |
| 6 | Copyright (C) 2002 by the AlternC Development Team. |
| 7 | http://alternc.org/ |
| 8 | ---------------------------------------------------------------------- |
| 9 | Based on: |
| 10 | Valentin Lacambre's web hosting softwares: http://altern.org/ |
| 11 | ---------------------------------------------------------------------- |
| 12 | LICENSE |
| 13 | |
| 14 | This program is free software; you can redistribute it and/or |
| 15 | modify it under the terms of the GNU General Public License (GPL) |
| 16 | as published by the Free Software Foundation; either version 2 |
| 17 | of the License, or (at your option) any later version. |
| 18 | |
| 19 | This program is distributed in the hope that it will be useful, |
| 20 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 21 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 22 | GNU General Public License for more details. |
| 23 | |
| 24 | To read the license please visit http://www.gnu.org/copyleft/gpl.html |
| 25 | ---------------------------------------------------------------------- |
| 26 | Original Author of file: Louis Sylvain |
| 27 | Purpose of file: Delete subscribers in the mailing list |
| 28 | ---------------------------------------------------------------------- |
| 29 | */ |
| 30 | require_once("../class/config.php"); |
| 31 | |
| 32 | if(!$r=$sympa->get_ml($id)) { |
| 33 | $error=$err->errstr(); |
| 34 | } |
| 35 | |
| 36 | // On parcours les POST_VARS et on repere les del_. |
| 37 | reset($_POST); |
| 38 | while (list($key,$val)=each($_POST)) { |
| 39 | if (substr($key,0,4)=="del_") { |
| 40 | // Effacement des mails de la liste |
| 41 | $d=$sympa->del_user($id,$val); |
| 42 | } |
| 43 | } |
| 44 | $error=_("The mail(s) has been successfully unsubscribed from the list"); |
| 45 | |
| 46 | include("head.php"); |
| 47 | ?> |
| 48 | </head> |
| 49 | <body> |
| 50 | <div align="center"><h3><?php printf(_("Mailing list %s"),$r["list"]); ?></h3></div> |
| 51 | <?php |
| 52 | if ($error) { |
| 53 | echo "<font color=red>$error</font></body></html>"; |
| 54 | } |
| 55 | ?> |
| 56 | <br><br> |
| 57 | <a href="lst_affsub.php?id=<?php echo $id; ?>&offset=<?php echo $offset; ?>"><?php __("Back"); ?></a> |
| 58 | </body> |
| 59 | </html> |
Note: See TracBrowser for help on using the browser.
