-/************************************************************************
- * Mailer v0.2.1-FINAL Start: 09/14/2008 *
- * =================== Last change: 09/14/2008 *
- * *
- * -------------------------------------------------------------------- *
- * File : purge-general.php *
- * -------------------------------------------------------------------- *
- * Short description : General autopurging, nothing extension-specific *
- * -------------------------------------------------------------------- *
- * Kurzbeschreibung : Allgemeine, nicht erweiterunsabhaengige Auto- *
- * Loeschung *
- * -------------------------------------------------------------------- *
- * $Revision:: $ *
- * $Date:: $ *
- * $Tag:: 0.2.1-FINAL $ *
- * $Author:: $ *
- * Needs to be in all Files and every File needs "svn propset *
- * svn:keywords Date Revision" (autoprobset!) at least!!!!!! *
- * -------------------------------------------------------------------- *
- * Copyright (c) 2003 - 2009 by Roland Haeder *
- * Copyright (c) 2009, 2010 by Mailer Developer Team *
- * For more information visit: http://www.mxchange.org *
- * *
- * This program is free software; you can redistribute it and/or modify *
- * it under the terms of the GNU General Public License 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. *
- * *
- * You should have received a copy of the GNU General Public License *
- * along with this program; if not, write to the Free Software *
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, *
- * MA 02110-1301 USA *
- ************************************************************************/
-
-// Some security stuff...
-if (!defined('__SECURITY')) {
- die();
-}
-
-// Abort if autopurge is not active or disabled by admin
-if ((!isExtensionActive('autopurge')) || (getConfig('auto_purge_active') != 'Y')) {
- // Abort here
- return false;
-}
-
-if ((getConfig('auto_purge_active') == 'Y') && (getConfig('auto_purge') > 0)) {
- // Init SQLs
- initSqls();
-
- // First calculate the timestamp
- $PURGE = getConfig('auto_purge');
-
- // Init variables
- $admin_points = '0';
-
- // Then check for outdated mail order. We don't delete them just the confirmation links will be deleted.
- $result = SQL_QUERY_ESC("SELECT
- s.id, s.userid, s.pool_id, t.price
-FROM
- `{?_MYSQL_PREFIX?}_user_stats` AS s
-LEFT JOIN
- `{?_MYSQL_PREFIX?}_payments` AS t
-ON
- s.payment_id=t.id
-WHERE
- s.timestamp_ordered <= (UNIX_TIMESTAMP() - %s)
-ORDER BY
- s.userid ASC",
- array(bigintval($PURGE)), __FILE__, __LINE__);
- if (SQL_NUMROWS($result) > 0) {
- // Start deleting procedure
- $userid = '0'; $points = '0';
- while ($content = SQL_FETCHARRAY($result)) {
- // Check if confirmation links are purged or not
- $result_links = SQL_QUERY_ESC("SELECT `id` FROM `{?_MYSQL_PREFIX?}_user_links` WHERE `stats_id`=%s LIMIT 1",
- array(bigintval($content['id'])), __FILE__, __LINE__);
- if (SQL_NUMROWS($result_links) == 1) {
- // Free memory
- SQL_FREERESULT($result_links);
-
- // At least one link was found, enougth to pay back the points
- if (($userid != $content['userid']) && ($userid > 0) && ($points > 0)) {
- // Directly add points back to senders account
- addPointsAutoPurge($userid, $points);
- $points = '0';
- } // END - if
-
- // Add points
- $userid = $content['userid']; $points += $content['price']; $admin_points += $content['price'];
-
- // Remove confirmation links from queue
- addSql(SQL_QUERY_ESC("DELETE LOW_PRIORITY FROM `{?_MYSQL_PREFIX?}_user_links` WHERE `stats_id`=%s",
- array(bigintval($content['id'])), __FILE__, __LINE__, false));
-
- // Update status of order
- addSql(SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_pool` SET `data_type`='DELETED' WHERE `id`=%s LIMIT 1",
- array(bigintval($content['pool_id'])), __FILE__, __LINE__, false));
- } // END - if
- } // END - while
-
- // Add last points to last user account
- if ($points > 0) addPointsAutoPurge($userid, $points);
- } // END - if
-
- // Free memory
- SQL_FREERESULT($result);
-
- // Is the 'bonus' extension installed and activated?
- if (isExtensionActive('bonus', true)) {
- // Check for bonus campaigns
- $result = SQL_QUERY_ESC("SELECT `id`, `points` FROM `{?_MYSQL_PREFIX?}_bonus` WHERE `data_type`='SEND' AND `timestamp` <= %s ORDER BY `id` ASC",
- array(bigintval($PURGE)), __FILE__, __LINE__);
- if (SQL_NUMROWS($result) > 0) {
- // Start deleting procedure
- $points = '0';
- while ($content = SQL_FETCHARRAY($result)) {
- // Check if confirmation links are purged or not
- $result_links = SQL_QUERY_ESC("SELECT `id` FROM `{?_MYSQL_PREFIX?}_user_links` WHERE `bonus_id`=%s",
- array(bigintval($content['id'])), __FILE__, __LINE__);
- if (SQL_NUMROWS($result_links) > 0) {
- // At least one link was found, enougth to pay back the points
- $points += $content['points'] * SQL_NUMROWS($result_links);
-
- // Free memory
- SQL_FREERESULT($result_links);
-
- // Remove confirmation links from queue
- addSql(SQL_QUERY_ESC("DELETE LOW_PRIORITY FROM `{?_MYSQL_PREFIX?}_user_links` WHERE `bonus_id`=%s",
- array(bigintval($content['id'])), __FILE__, __LINE__, false));
-
- // Update status of order
- addSql(SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_bonus` SET `data_type`='DELETED' WHERE `id`=%s LIMIT 1",
- array(bigintval($content['id'])), __FILE__, __LINE__, false));
- } // END - if
- } // END - while
-
- // Add points to jackpot
- if (isExtensionActive('jackpot')) addPointsToJackpot($points);
-
- // Add points for the admin
- $admin_points += $points;
- } // END - if
-
- // Free memory
- SQL_FREERESULT($result);
- } // END - if
-
- // Add points from deleted accounts to jackpot, but here just add to notify mail
- if ($admin_points > 0) {
- // Send mail to admin
- sendAdminNotification(getMessage('AUTOPURGE_ADMIN_SUBJECT'), 'admin_autopurge_points', translateComma($admin_points));
- } // END - if
-
- // Run all SQLs here
- runFilterChain('run_sqls');
-} // END - if
-
-//