Sponsor stub extension added (not fully working\!)
[mailer.git] / inc / modules / admin / what-del_sponsor.php
1 <?php
2 /************************************************************************
3  * MXChange v0.2.1                                    Start: 04/24/2005 *
4  * ===============                              Last change: 05/18/2008 *
5  *                                                                      *
6  * -------------------------------------------------------------------- *
7  * File              : what-del_sponsor.php                             *
8  * -------------------------------------------------------------------- *
9  * Short description : Edit sponsor account                             *
10  * -------------------------------------------------------------------- *
11  * Kurzbeschreibung  : Sponsorenaccount aendern                         *
12  * -------------------------------------------------------------------- *
13  *                                                                      *
14  * -------------------------------------------------------------------- *
15  * Copyright (c) 2003 - 2008 by Roland Haeder                           *
16  * For more information visit: http://www.mxchange.org                  *
17  *                                                                      *
18  * This program is free software. You can redistribute it and/or modify *
19  * it under the terms of the GNU General Public License as published by *
20  * the Free Software Foundation; either version 2 of the License.       *
21  *                                                                      *
22  * This program is distributed in the hope that it will be useful,      *
23  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
25  * GNU General Public License for more details.                         *
26  *                                                                      *
27  * You should have received a copy of the GNU General Public License    *
28  * along with this program; if not, write to the Free Software          *
29  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
30  * MA  02110-1301  USA                                                  *
31  ************************************************************************/
32
33 // Some security stuff...
34 if ((ereg(basename(__FILE__), $_SERVER['PHP_SELF'])) || (!is_admin()))
35 {
36         $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4)."/security.php";
37         require($INC);
38 }
39
40 // Add description as navigation point
41 ADD_DESCR("admin", basename(__FILE__));
42
43 if (!empty($HTTP_GET_VARS['id']))
44 {
45         // Check for selected sponsor
46         $result = SQL_QUERY_ESC("SELECT email, salut, surname, family FROM "._MYSQL_PREFIX."_sponsor_data WHERE id='%s' LIMIT 1",
47          array($HTTP_GET_VARS['id']), __FILE__, __LINE__);
48         if (SQL_NUMROWS($result) == 1)
49         {
50                 // Remove sponsor
51                 if (isset($HTTP_POST_VARS['ok']))
52                 {
53                         // Load data and remember it in constants
54                         list($email, $salut, $surname, $family) = SQL_FETCHROW($result);
55                         SQL_FREERESULT($result);
56                         define('__EMAIL'  , $email);
57                         define('__SALUT'  , TRANSLATE_SEX($salut));
58                         define('__SURNAME', $surname);
59                         define('__FAMILY' , $family);
60
61                         // Prepare message and send it away
62                         $msg = LOAD_EMAIL_TEMPLATE("del_sponsor", $HTTP_POST_VARS['reason'], $HTTP_GET_VARS['id']);
63                         SEND_EMAIL($email, SPONSOR_ADMIN_DEL_SUBJECT, $msg);
64
65                         // Remove account
66                         $result = SQL_QUERY_ESC("DELETE LOW_PRIORITY FROM "._MYSQL_PREFIX."_sponsor_data WHERE id='%s' LIMIT 1",
67                          array(bigintval($HTTP_GET_VARS['id'])), __FILE__, __LINE__);
68
69                         // Remove orders
70                         $result = SQL_QUERY_ESC("DELETE LOW_PRIORITY FROM "._MYSQL_PREFIX."_sponsor_orders WHERE sponsorid='%s' LIMIT 1",
71                          array(bigintval($HTTP_GET_VARS['id'])), __FILE__, __LINE__);
72
73                         // Output message
74                         LOAD_TEMPLATE("admin_settings_saved", false, SPONSOR_DELETED_1.$HTTP_GET_VARS['id'].SPONSOR_DELETED_2);
75                 }
76                  elseif (!empty($HTTP_POST_VARS['no']))
77                 {
78                         // Do not delete him...
79                         LOAD_URL(URL."/modules.php?module=admin&amp;what=list_sponsor&amp;id=".$HTTP_GET_VARS['id']);
80                 }
81                  else
82                 {
83                         // Load data
84                         list ($email, $salut, $sname, $fname) = SQL_FETCHROW($result);
85
86                         // Transfer data to constants for the template
87                         define('__EMAIL', $email);
88                         define('__SNAME', $sname);
89                         define('__FNAME', $fname);
90                         define('__SALUT', TRANSLATE_SEX($salut));
91                         define('__UID'  , $HTTP_GET_VARS['id']);
92
93                         // Display form
94                         LOAD_TEMPLATE("admin_del_sponsor");
95                 }
96         }
97          else
98         {
99                 // Sponsor not found!
100                 LOAD_TEMPLATE("admin_settings_saved", false, ADMIN_SPONSOR_404_1.$HTTP_GET_VARS['id'].ADMIN_SPONSOR_404_2);
101         }
102 }
103  else
104 {
105         // Not called by what-list_sponsor.php
106         LOAD_TEMPLATE("admin_settings_saved", false, ADMIN_CALL_NOT_DIRECTLY);
107 }
108
109 //
110 ?>