Code rewritings, load base config improved and many minor fixes...
[mailer.git] / 0.2.1 / inc / modules / admin / what-list_newsletter.php
1 <?php\r
2 /************************************************************************\r
3  * MXChange v0.2.1                                    Start: 03/04/2005 *\r
4  * ===============                              Last change: 03/05/2005 *\r
5  *                                                                      *\r
6  * -------------------------------------------------------------------- *\r
7  * File              : what-list_newsletter.php                         *\r
8  * -------------------------------------------------------------------- *\r
9  * Short description : Handle HTML or text newsletter                   *\r
10  * -------------------------------------------------------------------- *\r
11  * Kurzbeschreibung  : Verwalten von HTML- oder Text-Newslettern        *\r
12  * -------------------------------------------------------------------- *\r
13  *                                                                      *\r
14  * -------------------------------------------------------------------- *\r
15  * Copyright (c) 2003 - 2008 by Roland Haeder                           *\r
16  * For more information visit: http://www.mxchange.org                  *\r
17  *                                                                      *\r
18  * This program is free software; you can redistribute it and/or modify *\r
19  * it under the terms of the GNU General Public License as published by *\r
20  * the Free Software Foundation; either version 2 of the License, or    *\r
21  * (at your option) any later version.                                  *\r
22  *                                                                      *\r
23  * This program is distributed in the hope that it will be useful,      *\r
24  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *\r
25  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *\r
26  * GNU General Public License for more details.                         *\r
27  *                                                                      *\r
28  * You should have received a copy of the GNU General Public License    *\r
29  * along with this program; if not, write to the Free Software          *\r
30  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *\r
31  * MA  02110-1301  USA                                                  *\r
32  ************************************************************************/\r
33 \r
34 // Some security stuff...\r
35 if ((ereg(basename(__FILE__), $_SERVER['PHP_SELF'])) || (!IS_ADMIN()))\r
36 {\r
37         $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4) . "/security.php";\r
38         require($INC);\r
39 }\r
40 \r
41 // Add description as navigation point\r
42 ADD_DESCR("admin", basename(__FILE__));\r
43 \r
44 if ((!empty($_POST['uid'])) && (!empty($_POST['id'])))\r
45 {\r
46         // Update database...\r
47         // First user's account\r
48         $result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_data SET nl_until='".time()."+nl_timespan', nl_receive='N', nl_timespan='0' WHERE userid=%d LIMIT 1",\r
49          array(bigintval($_POST['uid'])), __FILE__, __LINE__);\r
50 \r
51         // Next the task system...\r
52         $result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_task_system SET status='SOLVED' WHERE id=%d LIMIT 1",\r
53          array(bigintval($_POST['id'])), __FILE__, __LINE__);\r
54 \r
55         // Send mail to user\r
56         $msg = LOAD_EMAIL_TEMPLATE("member_newsletter_done", true, bigintval($_POST['uid']));\r
57         SEND_EMAIL(bigintval($_POST['uid']), NL_MEMBER_DONE_SUBJECT, $msg);\r
58 \r
59         // Output message to admin\r
60         LOAD_TEMPLATE("admin_settings_saved", false, ADMIN_NL_MEMBER_DONE);\r
61 }\r
62  else\r
63 {\r
64         // Currently under construction!\r
65         LOAD_TEMPLATE("admin_settings_saved", false, UNDER_CONSTRUCTION);\r
66 }\r
67 //\r
68 ?>\r