win32 to unix line delimiters changed
[mailer.git] / 0.2.1 / inc / libs / transfer_functions.php
1 <?php
2 /************************************************************************
3  * MXChange v0.2.1                                    Start: 10/13/2004 *
4  * ===============                              Last change: 10/13/2004 *
5  *                                                                      *
6  * -------------------------------------------------------------------- *
7  * File              : transfer_functions.php                           *
8  * -------------------------------------------------------------------- *
9  * Short description : Special functions for transfer extension         *
10  * -------------------------------------------------------------------- *
11  * Kurzbeschreibung  : Spezielle Funktion fuer transfer-Erweiterung     *
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, or    *
21  * (at your option) any later version.                                  *
22  *                                                                      *
23  * This program is distributed in the hope that it will be useful,      *
24  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
25  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
26  * GNU General Public License for more details.                         *
27  *                                                                      *
28  * You should have received a copy of the GNU General Public License    *
29  * along with this program; if not, write to the Free Software          *
30  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
31  * MA  02110-1301  USA                                                  *
32  ************************************************************************/
33
34 // Some security stuff...
35 if (ereg(basename(__FILE__), $_SERVER['PHP_SELF']))
36 {
37         $INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4) . "/security.php";
38         require($INC);
39 }
40 //
41 function TRANSFER_AUTPPURGE($max, $age)
42 {
43         global $link;
44         // First get total in-going lines
45         $result = SQL_QUERY("SELECT id FROM "._MYSQL_PREFIX."_user_transfers_in ORDER BY id", __FILE__, __LINE__);
46         if (SQL_NUMROWS($result) > $max)
47         {
48                 // Update overdue transfers
49                 $remove = SQL_NUMROWS($result) - $max;
50
51                 // This will make it really old, so the final removal query will find it
52                 $result = SQL_QUERY("UPDATE "._MYSQL_PREFIX."_user_transfers_in SET time_trans='0' ORDER BY id LIMIT ".$remove, __FILE__, __LINE__);
53         }
54         // Second get total out-going lines
55         $result = SQL_QUERY("SELECT id FROM "._MYSQL_PREFIX."_user_transfers_out ORDER BY id", __FILE__, __LINE__);
56         if (SQL_NUMROWS($result) > $max)
57         {
58                 // Update overdue transfers
59                 $remove = SQL_NUMROWS($result) - $max;
60
61                 // This will make it really old, so the final removal query will find it
62                 $result = SQL_QUERY("UPDATE "._MYSQL_PREFIX."_user_transfers_out SET time_trans='0' ORDER BY id LIMIT ".$remove, __FILE__, __LINE__);
63         }
64
65         // Remove old in-going transfers
66         $result = SQL_QUERY("DELETE LOW_PRIORITY FROM "._MYSQL_PREFIX."_user_transfers_in WHERE time_trans < ".(time() - $age), __FILE__, __LINE__);
67         $REMOVE = SQL_AFFECTEDROWS($link);
68
69         // Remove old out-going transfers
70         $result = SQL_QUERY("DELETE LOW_PRIORITY FROM "._MYSQL_PREFIX."_user_transfers_out WHERE time_trans < ".(time() - $age), __FILE__, __LINE__);
71         $REMOVE += SQL_AFFECTEDROWS($link);
72
73         // Only send email to admin(s) when we have removed entries
74         if ($REMOVE > 0)
75         {
76                 if (GET_EXT_VERSION("admins") >= "0.4.1")
77                 {
78                         SEND_ADMIN_EMAILS_PRO(TRANSFER_ADMIN_AUTOPURGE, "admin_transfer_ap", $REMOVE, 0);
79                 }
80                  else
81                 {
82                         $msg = LOAD_EMAIL_TEMPLATE("admin_transfer_ap", $REMOVE, 0);
83                         SEND_ADMIN_EMAILS(TRANSFER_ADMIN_AUTOPURGE, $msg);
84                 }
85         }
86 }
87 //
88 ?>