2 /************************************************************************
3 * Mailer v0.2.1-FINAL Start: 09/14/2008 *
4 * =================== Last change: 09/14/2008 *
6 * -------------------------------------------------------------------- *
7 * File : purge-general.php *
8 * -------------------------------------------------------------------- *
9 * Short description : General autopurging, nothing extension-specific *
10 * -------------------------------------------------------------------- *
11 * Kurzbeschreibung : Allgemeine, nicht erweiterunsabhaengige Auto- *
13 * -------------------------------------------------------------------- *
16 * $Tag:: 0.2.1-FINAL $ *
18 * -------------------------------------------------------------------- *
19 * Copyright (c) 2003 - 2009 by Roland Haeder *
20 * Copyright (c) 2009 - 2012 by Mailer Developer Team *
21 * For more information visit: http://mxchange.org *
23 * This program is free software; you can redistribute it and/or modify *
24 * it under the terms of the GNU General Public License as published by *
25 * the Free Software Foundation; either version 2 of the License, or *
26 * (at your option) any later version. *
28 * This program is distributed in the hope that it will be useful, *
29 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
30 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
31 * GNU General Public License for more details. *
33 * You should have received a copy of the GNU General Public License *
34 * along with this program; if not, write to the Free Software *
35 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, *
37 ************************************************************************/
39 // Some security stuff...
40 if (!defined('__SECURITY')) {
42 } elseif ((!isExtensionActive('autopurge')) || (!isAutoPurgingActive())) {
47 if (getAutoPurge() > 0) {
54 // Then check for outdated mail order. We don't delete them just the confirmation links will be deleted.
55 $result = SQL_QUERY('SELECT
61 `{?_MYSQL_PREFIX?}_user_stats` AS `s`
63 `{?_MYSQL_PREFIX?}_payments` AS `t`
65 `s`.`payment_id`=`t`.`id`
67 (UNIX_TIMESTAMP() - `s`.`timestamp_ordered`) >= {?auto_purge?}
69 `s`.`userid` ASC', __FILE__, __LINE__);
70 if (!SQL_HASZERONUMS($result)) {
71 // Start deleting procedure
74 while ($content = SQL_FETCHARRAY($result)) {
75 // Check if confirmation links are purged or not
76 $result_links = SQL_QUERY_ESC("SELECT `id` FROM `{?_MYSQL_PREFIX?}_user_links` WHERE `stats_id`=%s LIMIT 1",
77 array(bigintval($content['id'])), __FILE__, __LINE__);
79 // Is there one entry?
80 if (SQL_NUMROWS($result_links) == 1) {
81 // At least one link was found, enougth to pay back the points
82 if (($userid != $content['userid']) && (isValidId($userid)) && ($points > 0)) {
83 // Directly add points back to senders account
84 addPointsAutoPurge($userid, $points);
89 $userid = $content['userid'];
90 $points += $content['price'];
91 $admin_points += $content['price'];
93 // Remove confirmation links from queue
94 addSql(SQL_QUERY_ESC("DELETE LOW_PRIORITY FROM `{?_MYSQL_PREFIX?}_user_links` WHERE `stats_id`=%s",
95 array(bigintval($content['id'])), __FILE__, __LINE__, FALSE));
97 // Update status of order
98 addSql(SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_pool` SET `data_type`='DELETED' WHERE `id`=%s LIMIT 1",
99 array(bigintval($content['pool_id'])), __FILE__, __LINE__, FALSE));
103 SQL_FREERESULT($result_links);
106 // Are some points collected?
107 if (($points > 0) && (isValidId($userid))) {
108 // Add last points to last user account
109 addPointsAutoPurge($userid, $points);
114 SQL_FREERESULT($result);
116 // Is the 'bonus' extension installed and activated?
117 if (isExtensionActive('bonus', TRUE)) {
118 // Check for bonus campaigns
119 $result = SQL_QUERY("SELECT `id`, `points` FROM `{?_MYSQL_PREFIX?}_bonus` WHERE `data_type`='SEND' AND `timestamp` <= {?auto_purge?} ORDER BY `id` ASC", __FILE__, __LINE__);
120 if (!SQL_HASZERONUMS($result)) {
121 // Start deleting procedure
123 while ($content = SQL_FETCHARRAY($result)) {
124 // Check if confirmation links are purged or not
125 $result_links = SQL_QUERY_ESC("SELECT `id` FROM `{?_MYSQL_PREFIX?}_user_links` WHERE `bonus_id`=%s",
126 array(bigintval($content['id'])), __FILE__, __LINE__);
127 if (!SQL_HASZERONUMS($result_links)) {
128 // At least one link was found, enougth to pay back the points
129 $points += $content['points'] * SQL_NUMROWS($result_links);
132 SQL_FREERESULT($result_links);
134 // Remove confirmation links from queue
135 addSql(SQL_QUERY_ESC("DELETE LOW_PRIORITY FROM `{?_MYSQL_PREFIX?}_user_links` WHERE `bonus_id`=%s",
136 array(bigintval($content['id'])), __FILE__, __LINE__, FALSE));
138 // Update status of order
139 addSql(SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_bonus` SET `data_type`='DELETED' WHERE `id`=%s LIMIT 1",
140 array(bigintval($content['id'])), __FILE__, __LINE__, FALSE));
144 // Is ext-jackpot installed?
145 if (isExtensionActive('jackpot')) {
146 // Add points to jackpot
147 addPointsToJackpot($points);
150 // Add points for the admin
151 $admin_points += $points;
155 SQL_FREERESULT($result);
158 // Add points from deleted accounts to jackpot, but here just add to notify mail
159 if ($admin_points > 0) {
160 // Send mail to admin
161 sendAdminNotification('{--ADMIN_AUTOPURGE_SUBJECT--}', 'admin_purge_points', $admin_points);
165 runFilterChain('run_sqls');